---

Hallo Kollegen,

habe hier ein Makro das mir von der Zeichnung ein pdf erstellt,
aber wie kann ich die Eigenschaft "Version" nicht von der Zeichnung sondern vom Modell erhalten?
Was auch noch gut wäre ist eine Meldung das es funktioniert hat.
Das bringe ich leider nicht hin.
Vielleicht kann mir jemand helfen?

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim saveFileName As String
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If

Version = Part.GetCustomInfoValue("", "Version")
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) & "_" & Version & ".pdf"  ' Speichern als PDF-Datei
Part.SaveAs2 saveFileName, 0, True, False

Set swApp = Application.SldWorks
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo CSchnitz,

dazu musst du aus der Zeichnung zunächst auslesen, welche Zeichenansicht für die benutzerdefinierten Eigenschaften des Modells zuständig ist (ein Beispiel dafür findest du in der MakroMania unter http://solidworks.cad.de/mm_37.htm.  Von dieser View kannst du dann mit View::ReferencedDocument das dazu passende Modell ermitteln, ein Beispiel steht in der API Hilfe unter "Get Document Referenced by Drawing View (VBA)". Von da aus kannst du dann die Version genauso auslesen wie jetzt.

Für die Meldung, ob das Speichern geklappt hat, wertest du einfach den Rückgabewert deiner Speicher-Methode aus - bisher ignorierst du die einfach. Also so was in der Art von

Code:

---

If Part.SaveAs2(saveFileName, 0, True, False) = True Then
   Msgbox "Heureka, das PDF wurde erstellt"
else
   Msgbox "Upps, irgendwas ist schief gegangen"
endif

---

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

schriftfeld-10.jpg schriftfeld-konf.zip

Hallo CSchnitz,
anbei habe ich dir mein Schriftfeldmakro angehängt.
(das Urmakro ist von Stefan  , aber um einiges erweitert.)

Darin sind unter anderem eine Menge Exportformate enthalten.
Allen Exporten werden dem Dateinamen des Originals der Revisionsstand angehängt.
Bei Zeichnungen wird der Revisionsstand vom Part oder der Baugruppe geholt.
Aber Achtung, bei uns ist der in den Konfigurationen gespeichert.

Zumindest kannst du aus diesem Makro die Logik entnehmen.

Eine andere Funktion daraus wurde hier diskutiert. http://ww3.cad.de/foren/ubb/Forum2/HTML/023352.shtml#000012

Bis dann, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP