---

Hallo,
ich fange gerade an mich in Makroprogramierung in VB einzuarbeiten. Deshalb besitze ich lediglich Anfängerwissen. Ich möchte gerne eine Part-Datei als 3D Pdf über ein Makro abspeichern. Als Normales PDF bekomme ich das hin nur leider bekomme ich das die 3D Funktion nicht aktiviert. In der API Hilfe habe ich dazu einen Eintrag gefunden nur leider kann ich damit nicht viel anfangen. Kann mir evt jemand ein Beispielprogramm posten? Das wäre mir eine riesen Hilfe!

vielen Dank im Vorraus!

mfg

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

---

Hallo, denke das geht. Guck mal auch hier http://www.acronaut.de/category2/
Möglich, dass man Adobe Acrobat 3D kaufren muss. Glaube aber, dass es mit SWX2008 geht.

Stöber mal in o.g. Forum.

Gruß und viel Glück 
Fredy

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

---

hab noch nachgesehen: es geht ab SWX2005. Allerdings mit Acrobat 3D + §D Toolkit. Wird wohl was kosten  . Der dortige Admin "acronaut" hilft dir bei Problemen sicher gerne weiter  .

Gruß
Fredy

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

---

Vielen Dank für die schnelle Antwort. Jedoch ist das leider nicht die Hilfe zu meinem Problem. Also, SolidWorks kann Part-Dateien als 3D Pdf abspeichern, jedoch bekomme ich das nicht in ein Makro eingebaut.
Mein Makro sieht zurzeit folgendermaßen aus (es ist nur ein Auszug):

Private Sub Speichern_Click()

Dim swApp As Object
Dim Model As Object
Dim SelMgr As Object
Dim longstatus As Long, longwarnings As Long
Dim Name As String
Dim Filename As String

    Dim sFolder    As String          'Variable für das Windows-Verzeichnis
    Dim sFile      As String          'Variable für die Dateisuche
    Dim asFiles()  As String          'Datenfeld für die Ergebnisdateien
    Dim lCounter    As Long            'Zählervariable

Set swApp = Application.SldWorks
Set Model = swApp.ActiveDoc
Set SelMgr = Model.SelectionManager

.
.
.

        If PDF3D = True Then
        ExportPdfData.ExportAs3D = True
        Model.SaveAs2 "K:\CAD, 3-D\3-D-PDF`s\3D-PDF Dokumente\" + Teilenummer.Text + ".pdf", 0, True, True
        Call MsgBox("Dateien wurden erfolgreich gespeichert.", vbOKOnly, "Information")
        End If

...

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

---

Hallo Thorsten,

du musst dein dein ExportData Objekt auch in die SaveAs Methode übergeben. Dieser Parameter existiert in der neusten SaveAs Methode ModelDocExtension.SaveAs.

Such mal in der der API Hilfe nach dem Beispiel "Save File as PDF Example (VB)". Dieses wird die sicherlich helfen.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks Api Snippets

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

---

Hallo

hast Du eigentlich schon mal die API-Online-Hilfe bemüht?
unter dem Stichwort "ExportPdfData Object" steht dort

------------------------------------------------------------------
Allows access to the PDF export data interface, which allows you to save:

drawing sheets to PDF.

parts and assemblies to 3D PDF.

To export drawing sheets to PDF:

Get the ExportPdfData object using SldWorks::GetExportFileData.

Set the sheets to export to PDF using ExportPdfData::SetSheets.

Save the sheets using ModelDocExtension::SaveAs.

To export a part or assembly to 3D PDF:

Get the ExportPdfData object using SldWorks::GetExportFileData.

Set ExportPdfData::ExportAs3D to TRUE.

Save the part or drawing document using ModelDocExtension::SaveAs.

Use the Accessors link above to get a list of functions that return this object.

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

und das dazugehörige Beispiel angesehen?

------------------
Grüße
Heinz

[Diese Nachricht wurde von nahe am 05. Nov. 2008 editiert.]

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

---

Danke nochmalf für die schnelle Hilfe!

Leider bin ich wie gesagt ein blutiger Anfänger, deswegen funktioniert es wohl auch immernoch nicht! Ich habe jetzt folgendes geschrieben:

Private Sub Speichern_Click()

Dim swApp As Object
Dim Model As Object
Dim SelMgr As Object
Dim longstatus As Long, longwarnings As Long
Dim Name As String
Dim Filename As String

Dim swModel            As SldWorks.ModelDoc2
Dim swModelDocExt      As SldWorks.ModelDocExtension
Dim swExportPDFData    As SldWorks.ExportPdfData

Dim sFolder    As String          'Variable für das Windows-Verzeichnis
Dim sFile      As String          'Variable für die Dateisuche
Dim asFiles()  As String          'Datenfeld für die Ergebnisdateien
Dim lCounter    As Long            'Zählervariable

Set swApp = Application.SldWorks
Set Model = swApp.ActiveDoc
Set SelMgr = Model.SelectionManager
.
.
.
        If PDF3D = True Then
        swExportPDFData.ExportAs3D = True
        'Model.SaveAs2 "K:\CAD, 3-D\3-D-PDF`s\3D-PDF Dokumente\" + Teilenummer.Text + ".pdf", 0, True, False
        swModelDocExt.SaveAs2 "K:\CAD, 3-D\3-D-PDF`s\3D-PDF Dokumente\" + Teilenummer.Text + ".pdf", 0, 0, swExportPDFData
        Call MsgBox("Datei wurden erfolgreich gespeichert.", vbOKOnly, "Information")
        End If

Dabei bekomme ich in dieser Zeile:
            swExportPDFData.ExportAs3D = True
die Fehlermeldung:
            Objektvariable oder With-Blockvariable nicht festgelegt.

ich vermute mal ganz stark das auch noch mehr Fehler in dem Abschnitt sind!
Wenn ich alles aus texte also in hochkomma setzte funktioniert der rest des programms den ich nicht gepostet habe ganz wunderbar! also muss hier irgendwo der fehler sein.

Die hilfedateien habe ich mir angesehen... nur so wie es aussieht kann ich damit nicht umgehen!

ich bin für jede hilfe sehr dankbar!

mfg Thorsten

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

---

Hallo Thorsten,

du musst deine Objekte initialisieren damit du die Befehle und Eigenschaften dieser verwenden kannst.

Ich kann dir wirklich nur empfehlen die das Beispiel "Save File as PDF Example (VB)" aus der SolidWorks API Hilfe (SolidWorks Menü > Hilfe > API Hilfethemen) anzuschauen und Schritt für Schritt den Code auszuführen.

Deine Objekte swModel, swModelDocExt und swExportPDFData initialisiert man zum Beispiel so:

Code:

---

Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swExportPDFData = swApp.GetExportFileData(1)

---

Hinweis: Ich hoffe du hast bemerkt das du zwei ModelDoc Variablen (swModel & Model) hast. Eine Variable würde für deine Aufgabe reichen.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks Api Snippets

[Diese Nachricht wurde von tbd am 05. Nov. 2008 editiert.]

[Diese Nachricht wurde von tbd am 05. Nov. 2008 editiert.]

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

---

So langsam wird es mir echt peinlich, aber einen Veruch will ich noch waagen! Ich habe jetzt ein selbsttändiges Makro begonnen, leider sind die PDF Files die erzeugt werden immernoch 2D-PDF's also einfach nur bilder die Nicht gedreht werden können. Habt ihr irgendeine Idee was jetzt falsch ist. Das sieht doch jetzt fast genau so aus wie in der API Hilfe!

    Dim swApp              As SldWorks.SldWorks
    Dim swModel            As SldWorks.ModelDoc2
    Dim swModelDocExt      As SldWorks.ModelDocExtension
    Dim swExportPDFData    As SldWorks.ExportPdfData
    Dim boolstatus          As Boolean
    Dim filename            As String
    Dim lErrors            As Long
    Dim lWarnings          As Long

Sub main()
    ' Path to which to save PDF file of drawing
    filename = "K:\CAD, 3-D\3-D-PDF`s\3D-PDF Dokumente\123.PDF"

    Set swApp = Application.SldWorks

    swApp.Visible = True

    ' Open specified drawing
    Set swModel = swApp.ActiveDoc

    Set swModelDocExt = swModel.Extension

    Set swExportPDFData = swApp.GetExportFileData(1)

 
    If swExportPDFData Is Nothing Then MsgBox "Nothing"

    boolstatus = swExportPDFData.ExportAs3D
   
    boolstatus = swModelDocExt.SaveAs(filename, 0, 0, swExportPDFData, lErrors, lWarnings)

End Sub

mfg Thorsten

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

---

Hallo Thorsten,

OT: nur ein Hinweis, bei Pfaden und Dateinamen solltest Du auf Leer- und Sonderzeichen verzichten.
    Sowas kann bei manchen Funktionen unter Umständen zu Problemen führen.

Gruß HaPe

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

---

So habe das Makro jetzt hinbekommen!

Hier ist der richtige code zum erstellen von 3D PDF Dokumenten über ein Makro:

    Dim swApp              As SldWorks.SldWorks
    Dim swModel            As SldWorks.ModelDoc2
    Dim swModelDocExt      As SldWorks.ModelDocExtension
    Dim swExportPDFData    As SldWorks.ExportPdfData
    Dim boolstatus          As Boolean
    Dim filename            As String
    Dim lErrors            As Long
    Dim lWarnings          As Long

Sub main()
    ' Path to which to save PDF file of drawing
    filename = "K:\CAD, 3-D\3-D-PDF`s\3D-PDF Dokumente\123.PDF"

    Set swApp = Application.SldWorks

    swApp.Visible = True

    ' Open specified drawing
    Set swModel = swApp.ActiveDoc

    Set swModelDocExt = swModel.Extension

    Set swExportPDFData = swApp.GetExportFileData(1)

 
    If swExportPDFData Is Nothing Then MsgBox "Nothing"

    swExportPDFData.ExportAs3D = True
   
    boolstatus = swModelDocExt.SaveAs(filename, 0, 0, swExportPDFData, lErrors, lWarnings)

End Sub

vielen Dank nochmal für eure Hilfe!!

mfg

Thorsten

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

---

Das erste eigene Makro, herzlichen Glückwunsch!

Aller Anfang ist schwer, nur nicht aufgeben!
In der SolidWorks API Hilfe, auf Stefans Seite und auf meiner Seite findest du weitere Beispiele und Hinweise zum lernen.
Wenn du ab und zu nachschaust ist die SolidWorks API kein Geheimnis mehr für dich!

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks Api Snippets

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