Ich habe ein Makro geschrieben, um unsere Zeichnungen so zu bereinigen, dass nur der Umriss des Teils beibehalten wird, um ein DXF für die Lasermaschine zu erstellen.
Wenn ich die DXF-Datei manuell exportiere, erhalte ich einen Vorschlag von SolidWorks, um zu wissen, ob ich auf alle Ebenen oder auf die sichtbaren Ebenen exportieren soll.
(siehe Anhang)
Wie lässt sich das in das Makro übersetzen? Es muss ein Parameter auf dem SaveAs3 oder eine Option sein, aber ich kann sie nicht finden....
Im Anhang befindet sich das betreffende Makroteil....
Set Part = swApp.ActiveDoc
Pfadname = UCase(Teil.GetPfadname)
txt = Rechts(Pfadname, Länge(Pfadname) - 10)
txt1 = Links(txt, 8)
txt2 = txt1 & "-" & Links(activesheetname, Len(activesheetname) - 3) & ".dxf"
swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swDxfExportSplinesAsSplines, False
boolstatus = swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swDxfMultiSheetOption, swDxfMultisheet_e.swDxfActiveSheetOnly)
Part.ClearSelection2 Wahr
longstatus = Teil.SaveAs3("S:\SWX\Vorbereitung\" & txt2, 0, 0)
api_dxf1.jpg