Convertir blocs dynamiques en blocs standard

[PP12BEK]

Bonjour,

j'ai développé tout un tas de blocs dynamiques.
Quand je communique mes plans aux clients, j'aimerai que ces blocs dynamiques soient convertis en blocs standard (en conservant l'état de visibilté qu'ils ont).
Est-ce possible?

Peut-être que le sujet a déjà été abordé, mais je n'ai pas trouvé...
D'avance merci de vos réponses!

[Fraid]

Bonjour,

J'ai une solution, mais je n'ai pas essayé sur LT.

; Chargement des fonctions VLA/Activex.
(vl-load-com)
;;;Supprime le dynamisme des blocs
(defun c:ddn (/ nom cpt)
    (setq cpt 0)
    (vlax-for blk (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
        (vlax-for obj blk
            (if  (and (= (vla-get-ObjectName obj) "AcDbBlockReference")(= (vla-get-IsDynamicBlock obj) :vlax-true))
                (progn
                  (setq cpt (1+ cpt) nom (strcat(vla-get-effectivename obj)"_ND" (itoa cpt)))
                  (vla-ConvertToAnonymousBlock obj)
                  (vla-converttostaticblock obj nom)
                )
            )
        )
    )
    (princ)
)

 

[PP12BEK]

Merci Fraid! 
 

Je ne connais pas du tout le LISP. C'est bien une routine LISP que tu m'as envoyée?
Si oui, je vais regarder des tutos pour savoir comment m'en servir! 🙂
 

En tous cas merci de ta réponse rapide!

[Fraid]

Il y a 4 heures, PP12BEK a dit :

comment m'en servir

Bonjour.

Il y a moult façons d'utiliser du code Autolisp.

- Copier / coller dans la barre de commande, entrée, puis taper ddn.

- Si tu veux utiliser tout le temps ton lisp, tu enregistre le code dans un fichier texte avec l'extension .lsp.

Tu tapes appload , et tu ajoutes ce fichier au démarrage. Tu pourras taper ddn.

Bon courage.

[PP12BEK]

Merci! Je n'avais pas vu ta réponse.
J'essaye de suite.

[PP12BEK]

Quand je fais ce que tu me dis, après avoir taper DDN, j'ai ce message :

; erreur: Erreur Automation Clé dupliquée

Possible que ça ne marche pas sur AutocadLT?

[Fraid]

Bonjour,

Effectivement, le code ne fonctionne que pour un bloc, je l'ai modifié.

Cordialement

[PP12BEK]

Merci Fraid! 
Ca marche nickel.
C'est exactement ce que je voulais!