---

Hallo,

ich habe mit Hilfe diesen Forums und ein paar anderen Seiten mir ein Macro zusammengeschustert/kopiert um per Klick ein PDF und DWG File von der Zeichnung zu erstellen.

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

saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dwg" ' Speichern als DXF-Datei
Part.SaveAs2 saveFileName, 0, True, False
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".pdf"  ' Speichern als PDF-Datei
Part.SaveAs2 saveFileName, 0, True, False

End Sub

Ich würde jetzt gerne noch das die Versionsnummer, die von PDM Works kommt, mit in dem Dateiname abgespeichert wird.
Allso Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + "Version" +  ".dwg"

Leider kriege ich das nicht hin. Ich bekomme die Versionsnummer irgendwie nicht mit VBA rein (finde die Variable nicht)
Danke schonmal für jeden Tip.

PS: unter Dateieigenschaften wird "Version" beim Bauteil hinterlegt und Angezeigt. Bei der Zeichnungsnummer habe ich z.B. daher:
Zeichnungsnummer  =  $PRP:"SW-Dateiname".$PRP:"Version"
Diesen Ausdruck bräuchte ich als Dateiname.

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

---

Hallo Gaius Julius Caesar

Bei uns wir der Index in den Eigenschaften der Datei (Baugruppe, Teil und Zeichnung) als Variable hinterlegt.

Das Auslesen funktioniert folgendermassen

Code:

---

Dim swApp As Object
Dim Part As Object
Dim sPathName As String
Dim nRetVal As Long
Dim nErrors As Long
Dim nWarnings As Long
Dim bRet As Boolean
Dim retval As Boolean
Dim vSheetProps As Variant
Dim blattsize As Long
Dim SelObj As Object

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set DrawingDoc = swApp.ActiveDoc

Index = Part.GetCustomInfoValue("", "Variablenname")

---

Gruss
Mike

------------------

The Power Of Dreams

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

---

Was Du brauchst ist so etwas in der Art:

Code:

---

Version = Part.GetCustomInfoValue("", "Version")

---

Noch ein Tipp: Wenn Du Strings zusammenhängen möchtest, benutze NICHT +, sondern &! Ich hatte mal Probleme, wo eine Zahl, als String, zu etwas anderem addiert wurde! 

+ "Version" +  ".dwg"  ==> wird dann so aussehen: & Version & ".dwg"

------------------

http://www.worldcommunitygrid.org

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

---

Hallo,

danke für die Tips.
Ich hätte das auch so gedacht. Aber ich bekomme immer die Fehlermeldung das "Version" leer ist oder nix hinterlegt. Kann es sein das Version keine "Custom-Feld" ist und ich es anders abfragen muss? (der Wert wird ja vom PDM vergeben bzw gesteuert)

[Diese Nachricht wurde von Julius am 30. Okt. 2008 editiert.]

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

---

Ist das "Custom field" in der Dateieigenschaft?
Datei -> Eigenschaften... Wenn es dort "Version" unter Eigenschaftsnamen nicht gibt, dann kannst Du das so nicht abfragen.

Von PDM habe ich leider keine Ahnung.

------------------

http://www.worldcommunitygrid.org

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

---

Hi,

versuch's mal mit

swModel.GetCustomInfoValue("", "Revision")

Gruß, HG

------------------
Nicht vergessen: Vor dem Posten Gehirn einschalten!

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

---

Hallo,

wir haben als PDM Pro.File und ich lese die Revision bzw Version folgendermaßen aus:

    Dim vConfigName As Variant
    Dim Rev, Ver, Workflow, Bez, ZeichNr As String

    Rev = swModel.GetCustomInfoValue(vConfigName, "Rev")
    Debug.Print "Revision = " + Rev
    Ver = swModel.GetCustomInfoValue(vConfigName, "Vers")
    Debug.Print "Revision = " + Vers
    Workflow = swModel.GetCustomInfoValue(vConfigName, "Workflowstatus")
    Debug.Print "Workflow = " + Workflow
    Bez = swModel.GetCustomInfoValue(vConfigName, "Description")
    Debug.Print "Bezeichnung = " + Bez
    ZeichNr = swModel.GetCustomInfoValue(vConfigName, "Zeichnungs_Nr.")
    Debug.Print "Zeichnungsnummer = " + ZeichNr

    NewName = ZeichNr & "-" & Rev & "-" & Ver & "-" & Workflow & "_" & Bez

Wie gesagt, die Variablen werden in den Dateieigenschaften von Pro.File gefüllt und hiermit problemlos ausgelesen, damit erzeuge ich einen neuen Dateinamen (NewName), zum speichern mit den Pro.File Eigenschaften.
Zum Testen des Ergenis schreibe ich meistens gleich danach dein Befehl (Debug.Print) für den Direktbereich.

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

---

Hallo Julius,

kann das vielleicht sein, dass du die Versionsnummer gar nicht als benutzerdefinierte Dateieigenschaft ablegst, sondern als konfigurationsspezifisch?
Denn dann müsste

Code:

---

swModel.GetCustomInfoValue("HIER", "Revision")

---

noch der Konfigurationsname eingetragen werden!
Grüße

Tobias

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

---

Hallo,

kann mir vll. jemand weiter helfen...
unter SW2009 SP5.0 läuft das dinges nicht mehr!!!
Hat jemand vll Rat??

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

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

End

Danke und Gruß

Torsten

------------------
CSWA - Certified SolidWorks Associate
CSWP - Certified SolidWorks Professional

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

---

Hallo f-m,

was heisst denn "läuft nicht mehr"?
Gibt's auch ne Fehlermeldung oder -beschreibung?

Gruß, Günter

------------------
*** Denken hilft! ***

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

---

Hallo,

er öffnet VB, markiert "LEFT" gelb und
gibt folgen Meldung aus:

Fehler beim Kompilieren:
Projekt oder Bibliothek nicht gefunden.

Gruß

Torsten

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

---

Probiers doch mal mit

Code:

---

Strings.Left

---

bzw.

Code:

---

Strings.Len

---

Grüße

Tobias

------------------
Besucht mich doch mal in meiner Tischlerei

[Diese Nachricht wurde von MWN am 25. Nov. 2009 editiert.]

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

---

OHJE!!!!

WIE EINFACH, FUNKT WIEDER!!!!!!!!!

Besten Dank.

Gruß

Torsten

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

---

Zitat:

---

Original erstellt von f-m:
... er öffnet VB, markiert "LEFT" gelb und gibt folgen Meldung aus:
Fehler beim Kompilieren: Projekt oder Bibliothek nicht gefunden...

---

Hallo Torsten

Diese Meldung kommt, wenn noch ein Verweis zu einer alten SWX-Version angehakt ist. Einfach im VBA-Editor unter Extras->Verweise... alle alten SWX-Verweise abhaken und die neuen anhaken.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hallo Julius,

der Gedanke kam mir heute auch erst, dass ich dafür mal ein Makro bräuchte - bin aber absolut Makrounfähig (Userbezogen). So wie ich das verstanden habe liest Dein Makro auch die Versionsnummer aus und verquickt die mit dem Dateinamen?

Also wenn das mal läuft wäre ich Dir zu Dank verpflichtet, wenn Du die Datei hier mal reinstellst 

LG
Rotmilan

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