Optimieren eines Makros

Macro
1

Hallo ihr alle.

Ich verwende einen VBA-Befehl, den ich mit einem Kollegen entwickelt habe. Dieses Makro ermöglicht es, aus einer Zeichnung heraus die Datei in verschiedene Formate zu konvertieren: .dwg / .dxf und .pdf

Es ermöglicht Ihnen auch, die 3D-Datei in .step zu konvertieren.

Das Problem ist, dass wir zu diesem Zeitpunkt den VBA-Befehl nicht finden konnten, mit dem wir eine 3D-Datei aus der Zeichnung öffnen konnten.

Wir mussten daher die Adresse, in der sich die 3D-Datei befindet, neu schreiben (die gleiche wie die 2D-Datei, außer im Falle der Konfiguration und in Ausnahmefällen)

Wenn jemand den VBA-Befehl kennt, mit dem Sie eine 3D-Datei aus der Zeichnung öffnen können, kann ich meinen Code zuverlässiger machen.

Vielen Dank.


export_2020-11-04_test.swp
2

Hallo

Ein ähnliches Thema hier.

Herzliche Grüße

1 „Gefällt mir“
3

Oder so ähnlich wie folgt:

Sub main()

    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    Dim swSheet As SldWorks.Sheet
    Dim swView As SldWorks.View
    Dim bRet As Boolean

    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
    Set swSheet = swDraw.GetCurrentSheet
    Set swView = swDraw.GetFirstView

    While Not swView Is Nothing
        Debug.Print swView.GetReferencedModelName
        Set swView = swView.GetNextView
    Wend

End Sub

Herzliche Grüße

2 „Gefällt mir“