table des blocs

[capde06]

Bonjour

le but est de mettre un commentaire a tous les blocs de la table

mais ca ne veux pas marcher

le code

(defun c:commentblk ()
(setq comment "commentaire")

 (vlax-for b (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
   (setq n (vla-get-name B))
   (vla-put-description b comment)
   (print n)
 )
)

 

bizarre

[Patrick_35]

Salut

 

(defun c:commentblk ()
 (setq comment "commentaire")

 (vlax-for b (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
   (and (eq (vla-get-islayout B) :vlax-false)
     (progn
(setq n (vla-get-name B))
(vla-put-comments b comment)
(print n)
     )
   )
 )
 (princ)
)

 

@+

[capde06]

tiptop

 

et

encore une fois

merci patrick