8,452
edits
Mod Tool: Difference between revisions
examining Mod Tool's Model.vbs file a bit more
Paradox-01 (talk | contribs) m (allowing relative pathes) |
Paradox-01 (talk | contribs) (examining Mod Tool's Model.vbs file a bit more) |
||
| Line 1,649: | Line 1,649: | ||
The original file can be found at: | The original file can be found at: | ||
logmessage XSIUtils.ResolvePath("$XSI_HOME/") & "Application\DSScripts\Model.vbs" | logmessage XSIUtils.ResolvePath("$XSI_HOME/") & "Application\DSScripts\Model.vbs" | ||
' C:\Softimage\Softimage_Mod_Tool_7.5\Application\DSScripts\Model.vbs | ' C:\Softimage\Softimage_Mod_Tool_7.5\Application\DSScripts\'''Model.vbs''' | ||
There are two issues that can be fixed by modifying this file. | There are two issues that can be fixed by modifying this file. | ||
| Line 1,663: | Line 1,663: | ||
end if | end if | ||
[...] | |||
'''Let's have a look what functions get triggered.''' | |||
' triggered by dae DnD with relative path from html page | |||
' (it seems this is actually for *.xsi files ...) | |||
function FdotXSIOptionsDialog(in_Import) | |||
' triggered by dae DnD | |||
' triggered by dae DnD with absolute path from html page | |||
sub ImportDotXSIProc( in_Filename, in_Parent ) | |||
'''core change 1/2''' | |||
function FdotXSIOptionsDialog(in_Import) | |||
logmessage "function FdotXSIOptionsDialog(in_Import)" | |||
Dim l_Title | |||
Dim l_PPG | |||
<font color="#FF0000">' reroute Oni-related dae/xml files | |||
' add later a second check: file must be from shared folder | |||
if instr(in_Import,"file:///") = 1 then | |||
'stop this function, import via ImportDotXSIProc( in_Filename ) | |||
'for an unknown reason ImportDotXSIProc calls itself here so we don't need to call it | |||
exit function | |||
else</font> | |||
if in_Import then | |||
l_Title = ".xsi Import Options" | |||
l_PPG = "dotXSIImportOptions" | |||
else | |||
l_Title = ".xsi Export Options" | |||
l_PPG = "dotXSIExportOptions" | |||
end if | |||
On Error Resume Next | |||
InspectObj l_PPG,,l_Title, siModal | |||
if Err.Number <> 0 then | |||
FdotXSIOptionsDialog = vbCancel | |||
else | |||
FdotXSIOptionsDialog = vbOk | |||
end if | |||
<font color="#FF0000">end if</font> | |||
end function | |||
'''core change 2/2''' | |||
sub ImportDotXSIProc( in_Filename, in_Parent ) | |||
<font color="#FF0000">if instr(in_Filename,"file:///") = 1 then | |||
in_Filename = replace(in_Filename, "file:///", "") | |||
end if | |||
Set objFSO = CreateObject("Scripting.FileSystemObject") | |||
FileExt = objFSO.GetExtensionName(in_Filename)</font> | |||
[...] ' work in progress | |||
end sub | |||