Passer un bloc en annotatif

[Iu63]

Bonjour à tous,

Je voulais savoir s’il existe un moyen, lorsqu’on est dans l’éditeur de blocs, de passer un bloc standard en bloc annotatif directement, sans passer par la palette des propriétés (comme on le fait habituellement à la main, voir image jointe).

Plus précisément, je cherche à modifier la propriété "Annotatif" d’un bloc via LISP. Est-ce que c’est possible ? Et si oui, comment y accéder et la modifier en LISP tout en étant dans l’édition du bloc ?

Merci d’avance pour vos retours !

[Vincent P.]

Hello,

Tu peut regarder du coté de la variable ANNOTATIVEDWG peut-être 

 

Lispement
Vincent P.

[Iu63]

Merci pour ta suggestion. Cependant, la variable ANNOTATIVEDWG est en lecture seule de mon coté, ce qui empêche sa modification directe de son contenu. J’ai du mal à obtenir exactement ce que je souhaite. Si tu as d'autres idées ou suggestions, je suis preneur !

[didier]

Bonjour @lu63

Ce n'est pas très compliqué de passer un bloc en annotatif mais sans gérer les échelles.
Chercher le bloc dans les tables avec tblsearch puis une fois trouvé lui appliquer un entmod.

Exemple :
 

(entmod
	   (append (entget (cdr (assoc 330 (entget blo))))
		   '((-3
		      ("AcadAnnotative"
		       (1000 . "AnnotativeData")
		       (1002 . "{")
		       (1070 . 1)
		       (1070 . 1)
		       (1002 . "}")
		      )
		     )
		    )
	   )
	 )

Amicalement

 

[Iu63]

Bonjour @didier,

Je te remercie pour ta réponse, cependant, le entmod que je lui applique semble ne pas bien fonctionner, est-il mal placé ?  Voici la fonction :

 

(defun c:AnnotBloc ( / blo ename)
  (vl-load-com)
  (setq blo (tblsearch "BLOCK" "test1"))
  (if blo
 (entmod
       (append (entget (cdr (assoc 330 (entget blo))))
           '((-3
              ("AcadAnnotative"
               (1000 . "AnnotativeData")
               (1002 . "{")
               (1070 . 1)
               (1070 . 1)
               (1002 . "}")
              )
             )
            )
       )
     )
    )
  )
 

[didier]

Bonjour @Iu63

J'ai dû m'emmêler les touches du clavier, il faut que la variable "blo" soit définie ainsi :

(setq blo (tblobjname "block" "toto"))

Et une fois mémorisée, lui appliquer le entmod du message précédent.

Amicalement