Hi SolidWorks Macro specialists,
I have a simple macro to export drawings to DXF.
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Set swApp = _
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
If (swApp.ActiveDoc.GetPathName = "") Then 'Check if file is saved
MsgBox ("First save the drawing!")
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dxf" ' Save as DXF
longstatus = Part.SaveAs2(saveFileName, 0, 1, 1)
Now the goal is to export the drawing without saving it before. How can I get the name and Path of the parent part? This is needed for, I think it is called like "flat pattern ..." in English. In this case there is no need to save the drawing.
Hopefully you understand my explanation.
Thank you very much!