Een macro optimaliseren

Macro
1

Hoi allemaal.

Ik gebruik een VBA-commando dat ik samen met een collega heb ontwikkeld. Deze macro maakt het mogelijk om vanuit een tekening het bestand naar verschillende formaten te converteren: .dwg / .dxf en .pdf

Hiermee kunt u ook het 3D-bestand naar .step converteren.

Het probleem is dat we op dat moment het VBA-commando niet konden vinden waarmee we een 3D-bestand vanuit de tekening konden openen.

We moesten daarom het adres herschrijven waarin het 3D-bestand zich bevindt (hetzelfde als het 2D-bestand, behalve in geval van configuratie en uitzonderlijke gevallen)

Als iemand de VBA-opdracht kent waarmee je een 3D-bestand vanuit de tekening kunt openen, kan ik mijn code betrouwbaarder maken.

Bedankt.


export_2020-11-04_test.swp
2

Hallo

Een enigszins vergelijkbaar onderwerp hier.

Vriendelijke groeten

1 like
3

Of iets dergelijks:

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

Vriendelijke groeten

2 likes