Mod Tool: Difference between revisions

Mod Tool (view source)

Revision as of 18:40, 25 October 2013

415 bytes removed , 25 October 2013

m

no edit summary

Paradox-01

8,484

edits

@@ Line 1,650: / Line 1,650: @@
   logmessage XSIUtils.ResolvePath("$XSI_HOME/") & "Application\DSScripts\Model.vbs"
   ' C:\Softimage\Softimage_Mod_Tool_7.5\Application\DSScripts\'''Model.vbs'''
+A backup of the original file can be found '''[https://dl.dropboxusercontent.com/u/139715/OniGalore/ModToolScript/Model.vbs here.]'''
 There are two issues that can be fixed by modifying this file.
@@ Line 1,663: / Line 1,664: @@
   end if
+Following function is always triggered, so we will modify it.
-'''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
+  	<font style="color:#DD0000">if instr(in_Filename,"file:///") = 1 then
   		in_Filename = replace(in_Filename, "file:///", "")
   	end if
-  	Set objFSO = CreateObject("Scripting.FileSystemObject")
+  	Set objFSO = CreateObject("Scripting.FileSystem<Object")
   	FileExt = objFSO.GetExtensionName(in_Filename)</font>
-  	[...] ' work in progress
- end sub
+ 	if application.license = "Avid 3D" then
+ 		SIImportDotXSIFile in_Filename, in_Parent
+ 	else
+ 		Set oFS = CreateObject("Scripting.FileSystemObject")
+ 		<font style="color:#DD0000">if oFS.FileExists(in_Filename) = True then
+ 			if FileExt = "xml" then
+ 				' is this an Oni xml file ?
+ 		 		Set xmlDoc = CreateObject("Microsoft.XMLDOM")
+ 				xmlDoc.Async = "False"
+ 				xmlDoc.Load(in_Filename)
+ 				if xmlDoc.selectNodes("Oni").length > 0 then
+ 					logmessage "Oni xml file detected"
+ 					read_xml "OFGA", in_Filename
+ 				end if
+ 				exit sub
+ 			end if</font>
+The lines in red has been added.
@@ Line 1,789: / Line 1,763: @@
 '''version roadmap'''
 * v7 (current)
-* v7.1 furniture: basic, import/export (OFGA*.xml -> BINAJJBOfurniture.xml)
+* v7.1 furniture: basic import (OFGA*.xml) & export (BINACJBOFurniture.xml)
-* v7.2 furniture, advanced import/export
+* v7.2 turrets: basic import/export
-* v7.3 turrets, basic import/export
+* v7.? furniture: advanced import (OFGA*.xml / BINACJBOFurniture.xml) & export (OFGA*.xml/.oni as new class, BINACJBOFurniture.xml)
-* v7.4 turrets, advanced import/export
+* v7.? turrets: advanced import/export
 * ...
 * v8 final Oni Object Library