Hier ist, was ich geschafft habe, indem ich rechts und links wiederhergestellt habe.
Option Explizit
Öffentliche Enumerations swDocumentTypes_e
swDocNONE = 0 ' Früher TYPE_NONE
swDocPART = 1 ' Früher TYPE_PART
swDocASSEMBLY = 2 ' Früher TYPE_ASSEMBLY
swDocDRAWING = 3 ' Früher TYPE_DRAWING
Ende der Enumeration
Dimmen swApp als Objekt
Dim swModel As ModelDoc2
Dim sPathName als Zeichenfolge
Dim sReference As String
Dim sSaveName als Zeichenfolge
Dim longstatus As Long
myRev als String dimmen
Sub main()
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
Wenn swModel nichts ist, dann
MsgBox ("Kein geöffnetes Dokument")
ElseIf swModel.GetType <> 3 dann
MsgBox ("Dies ist keine Zeichnung")
Oder
sPathName = swModel.GetPathName' ruft den Anzeigenamen des aktuellen Dokuments ab
sReference = Mid(sPathName, InStrRev(sPathName, "\") + 1) 'Ruft alles nach dem letzten \ ab
sReference = Left(sReference, Len(sReference) - 7) 'Die 6 Zeichen, die der Dateierweiterung entsprechen, und die .
sPathName = Left(sPathName, InStrRev(sPathName, "\")) 'Ruft den Pfad ohne Dateinamen ab
'myRev = swModel.CustomInfo2("", "Hinweis") 'Ruft den Hinweis aus den Dokumenteigenschaften ab
myRev = swModel.GetCustomInfoValue("", "Index")
longstatus = swModel.SaveAs3("X:\" + sReference + myRev + ".PDF", 0, 0)
longstatus = swModel.SaveAs3("X:\" + sReference + myRev + ". DXF", 0, 0)
Ende, wenn
Ende Sub
Letztes kleines Problem:
Ich kann die Eigenschaft "Hinweis", die mit dem Teil verknüpft ist, nicht abrufen.
swModel.CustomInfo2("", "Index") und swModel.GetCustomInfoValue("", "Index") geben mir nichts zurück.
Was muss ich schreiben, um die Eigenschaft "Index" abzurufen?