Optimisation d'une macro

Bonjour à tous.

J'utilise une commande VBA que j'avais élaboré avec un collègue. Cette macro permet, depuis une mise en plan de convertir le fichier en diffèrent formats : .dwg / .dxf et .pdf

Il permet aussi de convertir le fichier 3D en .step.

Le problème est, qu'à cette époque, nous n'arrivons pas à trouver la commande VBA qui permet d'ouvrir un fichier 3D depuis la mise en plan.

Nous avons donc dû, par un programme un peu long, réécrire l'adresse dans lequel ce trouve le fichier 3D ( le même que le fichier 2D sauf cas de configuration et cas exceptionnel )

 Si quelqu'un connais la commande VBA qui permet d'ouvrir un fichier 3D depuis la mise en plan, cela pourrais me permettre de fiabiliser mon code.

Merci à vous.


export_2020-11-04_test.swp

Bonjour,

Sujet un peu similaire ICI.

Cordialement,

1 « J'aime »

Ou alors quelque chose comme ce qui suit :

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

Cordialement,

2 « J'aime »