Hallo
Zunächst einmal hoffe ich, dass ich in der richtigen Rubrik bin und entschuldige mich, wenn es nicht der Fall ist, ich fange erst im Forum an.
Meine Frage ist folgende: Ich habe ein Makro, das mein Teil im DXF-Format an einem Ort speichert, den ich im Makro angegeben habe.
So weit so gut, aber ich möchte noch ein bisschen mehr hinzufügen:
Ich möchte, dass wir am Ende der Ausführung dieses Makros eine Vorschau des erstellten DXF haben.
Und zwar auf die gleiche Weise, wie wenn Sie sich als .dxf usw. registrieren. Auf diese Weise haben wir eine Vorschau des DXF erstellt.
Falls es nützlich sein könnte, kopiere ich mein Makro unten:
Dies könnte vielleicht auch für die Integration der Vorschau in das Makro genutzt werden.
Wenn jemand eine Idee hat, bin ich dafür. Egal wie sehr ich gesucht habe, ich kann nichts finden...
Sub main()
Dim swApp als SldWorks.SldWorks
Dim swmodel As SldWorks.ModelDoc2
Dim stPath As String
Dim lgFile so lange
Dim sReference As String
Dim blretval as Boolean
Fehler so lange dimmen
Schwache Warnungen, solange sie nicht angezeigt werden
Legen Sie swApp = Application.SldWorks fest
"Auschecken des aktiven Dokuments
Legen Sie swmodel = swApp.ActiveDoc fest.
Wenn nicht, ist swmodel nichts, dann
"Wir überprüfen, ob die Datei registriert ist
Wenn swmodel. GetPathName = "" dann
MsgBox "Bitte speichern Sie Ihr Dokument", vbInformation
Ende
Oder
"Wir erhalten den Speicherort der Datei
stPath = swmodel. GetPathName (Englisch)
stPath = swmodel. GetPathName' ruft den Anzeigenamen des aktuellen Dokuments ab
sReference = Mid(stPath, InStrRev(stPath, "\") + 1) 'Ruft alles nach dem letzten \ ab
sReference = Left(sReference, Len(sReference) - 7) 'Die 6 Zeichen, die der Dateierweiterung entsprechen, und die .
stPath = Left(stPath, InStrRev(stPath, "\")) 'Ruft den Pfad ohne Dateinamen ab
"Wir bringen die Anzahl der Zeichen auf . der Erweiterung
'lgFile = InStrRev(stPath, ".", -1, vbTextCompare) - 1
"Wir gewinnen den Weg ohne die Verlängerung zurück
' Wenn lgFile > 0 dann
' stPath = Links(stPfad, lgDatei)
" Ende, wenn
Ende, wenn
"Handelt es sich bei dem Dokument um ein Dokument
Wenn swmodel. GetType = swDocPART Dann
Wir schaffen die entwickelten
blretval = swmodel. ExportFlatPatternView("C:\Users\Stage-02\Desktop\DXF\" & sReference & ". DXF", 1)
Das DXF wurde erstellt
blretval = swmodel. SaveAs3(sReference & ". DXF", 0, 0)
"Handelt es sich bei dem Dokument um eine Zeichnung
ElseIf sw-Modell. GetType = swDocDRAWING Dann
Das DXF wurde erstellt
blretval = swmodel. SaveAs3(sReference & "_drw. DXF", 0, 0)
Ende, wenn
"Wir speichern die Datei
blretval = swmodel. Speichern3(0, 0, 0)
Ende, wenn
Ende Sub