Optymalizowanie makra

Macro
1

Cze wszystkim.

Używam polecenia VBA, które opracowałem wraz z kolegą. To makro pozwala, z rysunku, przekonwertować plik na różne formaty: .dwg / .dxf i .pdf

Umożliwia także konwersję pliku 3D do formatu .step.

Problem polega na tym, że w tamtym czasie nie mogliśmy znaleźć polecenia VBA, które pozwoliło nam otworzyć plik 3D z rysunku.

W związku z tym musieliśmy przepisać adres, pod którym znajduje się plik 3D (taki sam jak plik 2D, z wyjątkiem przypadku konfiguracji i wyjątkowego przypadku)

Jeśli ktoś zna polecenie VBA, które pozwala otworzyć plik 3D z rysunku, może mi to pozwolić uczynić mój kod bardziej niezawodnym.

Dziękuję.


export_2020-11-04_test.swp
2

Witam

Nieco podobny temat tutaj.

Pozdrowienia

1 polubienie
3

Lub coś takiego:

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

Pozdrowienia

2 polubienia