Listing blocs dynamiques

[cadcov]

Bonjour ,

 

J'ai un bloc dynamique avec une variable "distance".(qui permet d'allonger ou raccourcir la longueur du bloc)

Y a t il un moyen de créer un listing indiquant la "distance" de chaque bloc présent dans le dessin ?

Merci

[x_all]

 listing indiquant la "distance" de chaque bloc présent dans le dessin

ça doit pouvoir se faire avec l'extraction de données

j'ai un Lisp qui fait le cumul de tous les paramètre dyn d'un nom donné,

voir ici

 

 

[Steven]

Salut,

Je plussoie @x_all,

C'est possible avec l'extraction de données.

[Fraid]

Bonjour,

Sinon un petit lisp.

 

(defun c:lstd (/ acdc)
    (setq acdc (vla-get-activedocument (vlax-get-acad-object)))
    (vlax-for obj (vla-get-modelspace acdc)
        (if (and (= (vla-get-ObjectName obj) "AcDbBlockReference") (= (vla-get-IsDynamicBlock obj) :vlax-true))
            (foreach prop   (vlax-invoke obj 'getDynamicBlockProperties)
                (if (wcmatch (vla-get-PropertyName prop) "Distance*")
                    (princ (strcat "\n" (rtos (vlax-variant-value (vla-get-value prop)))))
                )
            )
        )
    )
    (textscr)
    (princ)
)