Macro pour enregistrer mise en plan en automatique

3D Design Volume Model
1

bonjour

je souhaite créer une macro me permettant d'enregistrer la mise en plan de ma piece

le but: de la piéce je créé sa mise plan, je dispose les vues et a ce moment la je souhaiterai lancer une Macro

qui enregistre la mise en plan dans le même repertoire que la piece avec comme nom la proprieté "titre" de ma piéce et ensuite je comtinue ma mise en plan.

j'ai déjà ébauché une macro qui fonctionne quasiment,

j'explique lorsque j'ai ma mise en plan a l'écran (pas enregisrtée) je lance ma macro le fichier se crée bien dans le bon repertoire avec le bon mon mais la mise en plan que j'ai a l'ecran n'est toujours pas enregistrée (j'ai un doublon un sur solid pas enregistré et un fermé dans mon repertoire)

je fais appel à vos lumiéres je ne suis pas expert loin de la.

j'espere avoir etait assez clair

merci

voici ma macro


macro3.swp
2

Salut.

 

Ba en fait, tu fais une fonction "enregistrer sous" avec ton saveas ... tu devrais peut etre plutot tenter la fonction save2 ?

 

Dim instance As IModelDoc2
Dim Silent As Boolean
Dim value As Integer
 
value = instance.Save2(Silent)

 

Tu as l'air d'avoir ta propre soupe et tes propres fonction, alors je te laisse remettre tout ça dans le bon sens. Mais ça doit être un truc du genre 

 

swModel.Save2 "" & chemin & "" & "" & theRev & "" & ".slddrw", 0, True, False

1 « J'aime »