Hallo
Vielen Dank für Ihre Antworten.
gdm Ich habe einen Fehler "Kompilierung: Variable nicht definiert" mit "swSaveAsOptions_e"
Natürlich d.roger unterhalb des Codeteils für die Registrierung.
Cyril.f ja die Eigenschaft und in der Zeichnung verwendet, habe ich eine Notiz mit dem Namen des Attributs "INFO_QUALITE05" erstellt
Legen Sie swApp = Application.SldWorks fest
Set Part = swApp.ActiveDoc
' Kontrolle über die richtige Datei hinzugefügt
Wenn Teil nichts ist, dann
MsgBox "Derzeit sind keine Dateien geöffnet."
Exit Sub ' Wenn derzeit kein Modell geladen ist, dann beenden
Ende, wenn
' Bestimmen Sie die Dokumentart. Wenn es sich bei dem Dokument um eine Zeichnung handelt, senden Sie eine Nachricht an den Benutzer.
if (Part.GetType <> 3) then '1Part 2Assembly 3Document
MsgBox "Dieses Makro gilt nur für eine Zeichnung"
Sub beenden
Ende, wenn
Datei = Teil.GetPfadName
Wenn Datei = "" Dann
MsgBox "Für dieses Makro muss die Datei vorher gespeichert werden"
Sub beenden
Ende, wenn
Pfad = links(Datei, InStrRev(Datei, "\"))
Dateiname = Teil.GetCustomInfoValue("", "REGISTRIERUNG")
Festlegen von swModelDocExt = Part.Extension
Set swExportPDFData = swApp.GetExportFileData(1)
Set swdraw = Teil
vSheetNames = swdraw. GetSheetNames (Englisch)
Sonne i So lang
Sonne j So lang
j = 0
ReDim strSheetName(UBound(vSheetNames))
Für i = 0 Bis UBound(vSheetNames)
Wenn InStr(vSheetNames(i), "Plan") <> 0 ist, dann
strSheetName(j) = vSheetNames(i)
j = d + 1
Ende, wenn
Nächster
varSheetName = strSheetName
Wenn swExportPDFData nichts ist, dann msgBox "nichts"
boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, varSheetName)
"Zuschlag für Teileigentum
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
Set swdraw = swModel
Legen Sie swview = swdraw fest. GetFirstView
Setze swview = swview. GetNextView (Englisch)
v = swview. GetVisibleComponents (Englisch)
Setze comp = v(0)
Setze swmod = comp. GetModelDoc2 (Englisch)
Eigenschaftsname = swmod. GetCustomInfoNames
Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
Debug.Print swmod. GetCustomInfoValue(config, "BESCHREIBUNG")
REGISTRIERUNG
boolstatus = swModelDocExt.SaveAs(Pfad & "\" & Dateiname & "" & swmod. GetCustomInfoValue(config, "INFO_QUALITE05") & ".PDF", 0, 0, swExportPDFData, lErrors, lWarnings)
proprietes_mep.png