![]() ![]() Set filetxt = objFSO.CreateTextFile(ConvScript, ForWriting)įiletxt.WriteLine("import FreeCAD, Mesh, Part, Import")įiletxt.WriteLine("Mesh.open('" & nameIN & "')")įiletxt.WriteLine("FreeCAD.getDocument('Unnamed').addObject('Part::Feature', '" & namePart & "001')")įiletxt.WriteLine("_shape_ = Part.Shape()")įiletxt.WriteLine("_shape_.makeShapeFromMesh(FreeCAD.getDocument('Unnamed').getObject('" & namePart & "').Mesh.Topology, 0.1)")įiletxt.WriteLine("FreeCAD.getDocument('Unnamed').getObject('" & namePart & "001').Shape = _shape_")įiletxt.WriteLine("FreeCAD.getDocument('Unnamed').getObject('" & namePart & "001').purgeTouched()")įiletxt.WriteLine("_objs_.append(FreeCAD.getDocument('Unnamed').getObject('" & namePart & "001'))")įiletxt.WriteLine("Import.export(_objs_, '" & path & nameOUT & "')")įiletxt.WriteLine("import FreeCAD, Mesh, importDAE")įiletxt.WriteLine("Mesh.open(u'" & nameIN & "')")įiletxt.WriteLine("_objs_.append(FreeCAD.getDocument('Unnamed').getObject('" & namePart & "'))")įiletxt.WriteLine("importDAE.export(_objs_, u'" & path & nameOUT & "')")įiletxt.WriteLine("import FreeCAD, Mesh, Part")įiletxt.WriteLine("_shape_=Part.Shape()")įiletxt.WriteLine("FreeCAD.getDocument('Unnamed').getObject('" & namePart & "001').Shape=_shape_")įiletxt.WriteLine("Part.export(_objs_, u'" & path & nameOUT & "')")įiletxt.WriteLine("shape = Part.Shape()")įiletxt.WriteLine("shape.read('" & nameIN & "')")įiletxt.WriteLine("doc = App.newDocument(""Doc"")")įiletxt.WriteLine("pf = doc.addObject(""Part::Feature"",""MyShape"")")įiletxt.WriteLine("Mesh.export(, " & chr(34) & path & nameOUT & chr(34) & ")")įiletxt.WriteLine("import FreeCAD, Mesh, Part, importDAE")įiletxt.WriteLine("importDAE.export(, " & chr(34) & path & nameOUT & chr(34) & ")")įiletxt.WriteLine("import FreeCAD, Part")įiletxt.WriteLine("Part.export(, " & chr(34) & path & nameOUT & chr(34) & ")")įiletxt.WriteLine("importDAE.open(u'" & nameIN & "')")įiletxt.WriteLine("_objs_.append(FreeCAD.getDocument('" & namePart & "').getObject('Mesh'))")įiletxt.WriteLine("Mesh.export(_objs_, u'" & path & nameOUT & "')")įiletxt.WriteLine("import FreeCAD, importDAE, Part, Import")įiletxt.WriteLine("FreeCAD.getDocument('" & namePart & "').addObject('Part::Feature', 'Mesh001')")įiletxt.WriteLine("_shape_.makeShapeFromMesh(FreeCAD.getDocument('" & namePart & "').getObject('Mesh').Mesh.Topology, 0.1)")įiletxt.WriteLine("FreeCAD.getDocument('" & namePart & "').getObject('Mesh001').Shape=_shape_")įiletxt.WriteLine("FreeCAD.getDocument('" & namePart & "').getObject('Mesh001').purgeTouched()")įiletxt.WriteLine("_objs_.append(FreeCAD.getDocument('" & namePart & "').getObject('Mesh001'))")įiletxt.WriteLine("Import.export(_objs_, u'" & path & nameOUT & "')")įiletxt.WriteLine("import FreeCAD, importDAE, Part")įiletxt.WriteLine("import FreeCAD, Part, Mesh")įiletxt.WriteLine("import FreeCAD, Part, Import")įiletxt.WriteLine("Import.export(, " & chr(34) & path & nameOUT & chr(34) & ")")įiletxt.WriteLine("import FreeCAD, Part, importDAE")ĭestDir = "C:\Users\ff\AppData\Roaming\FreeCAD\Macro\"ĬonvScript = DestDir & "FILECONV.FCMACRO"ĬurDir = objFSO.GetAbsolutePathName(".") & "\" X = objPopup.Popup(MsgLine, 10, "Job completed!", 64)įunction FileConv(extIN, extOUT, nameIN, nameOUT, namePart, path) X = objPopup.Popup(MsgLine, 3, "Work in progress", 64) Wscript.echo "No " & INfiletype & " file found!" ![]() If UCase(objFSO.GetExtensionName(objFile.Name)) = INfiletype Then Wscript.echo "Input file type not supported!" If InStr(INsupported, INfiletype) = 0 Or InStr(OUTsupported, OUTfiletype) = 0 Then Wscript.echo "IN and OUT file format is identical!" Wscript.echo "Missing parameters!" & vbCrLf & "Syntax:" & vbCrLf & "CONVERT.VBS " Set objPopup = CreateObject("WScript.Shell")Ĭonst ShowWindow = 1, DontShowWindow = 0, WaitUntilFinished = true, DontWaitUntilFinished = false Set objShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject")
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |