Retirer annotativité des objets

[Bortch59]

Bonjour,

 

Est-il possible de retirer l'annotativité de tous les objets (textes, cotations, blocs...) d'un fichier via une routine LISP.

Si oui (et j'imagine que oui), quelle est la paire pointée responsable de cet état annotatif?

 

Merci

[DenisHen]

Salut,

 

As-tu AutoCAD ExpressTools ?

 

Si oui, la commande "burst" devrait peut-être faire l'affaire.

 

Denis...

[Big666]

bonjour

j'ai longtemps néglige les ExpressTools. mais plus je m'en sers, plus je m'en sert.

je pense même qu'il me pousse un troisièmement bras.

[lecrabe]

Hello

 

Apres qq recherches (Niveau 1), voici ce que j'ai trouve !?

 

SVP il faudrait qu'un Pro du Lisp/VLisp ameliore ces routines ...

pour que l'on puisse faire une selection AutoCAD classique, donc traiter N entites en une seule fois !

 

Bye, lecrabe

 

 

;;; 
;;; http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/turn-on-off-annotative/m-p/3926999#M311479
;;; To remove annotative mode from a text
;;; Routine: RemoveAnnotativeText by hmsilva
;;; 

;;; (defun c:test (/ ed) 
(defun c:RemoveAnnotativeText (/ ed) 

 (setq ed (entget (car (entsel)) '("AcadAnnotative")))
 (setq	ed (subst (list	-3
		(list "AcadAnnotative"
		      '(1000 . "AnnotativeData")
		      '(1002 . "{")
		      '(1070 . 1)
		      '(1070 . 0)
		      '(1002 . "}")
		)
	  )
	  (assoc -3 ed)
	  ed
   )
 )
 (entmod ed)
 (princ)
)

 

 

;;; 
;;; http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/turn-on-off-annotative/m-p/3926999#M311479
;;; To remove annotative mode of attribute inside a block
;;; Routine: RemoveAnnotativeBlock by hmsilva
;;; 

;;; (defun c:test (/ ed blk att) 
(defun c:RemoveAnnotativeBlock (/ ed blk att) 

 (setq blk (car (entsel "\nSelect a Block to Remove Annotative Prop from Text: ")))
 (setq att blk)
 (if (assoc 66 (entget blk))
   (while (= (cdr (assoc 0 (entget (setq att (entnext att))))) "ATTRIB")
     (setq ed (entget att '("AcadAnnotative")))
     (setq ed (subst (list -3
		    (list "AcadAnnotative" '(1000
					     .
					     "AnnotativeData"
					    ) '(1002 . "{")
			  '(1070 . 1) '(1070 . 0) '(1002 . "}"))
	      )
	      (assoc -3 ed)
	      ed
       )
     )
     (entmod ed)
   )
 )
 (princ)
)

[lecrabe]

Hello

 

Et maintenant voici le resultat de mes recherches Niveau 2 !

 

Une routine de competition en Dotnet par le "champion" du Dotnet : Kean Walmsley

 

------ AIOBJECTSCALEREMOVEOTHERS__AnnotationScaling.dll ------

 

http://through-the-interface.typepad.com/through_the_interface/2011/10/delete-all-but-current-annotation-scales-on-autocad-objects-using-net.html

 

http://forums.autodesk.com/t5/AutoCAD-Civil-3D-General/How-to-get-this-code-to-run/m-p/3186336/highlight/false#M161546

 

Chargement par : NETLOAD

Puis execution par la commande : AIOBJECTSCALEREMOVEOTHERS

 

Je viens de la tester sur MAP 2011, MAP 2012, MAP 2014

sur un dessin avec des Textes Annotatifs et des Blocs Annotatifs : IMPRESSIONNANT D'EFFICACITE !!

 

Bye, lecrabe

 

[Bortch59]

Bonjour,

tout d'abord merci pour toutes vos réponses et désolé pour le retard de la mienne.

 

Je n'arrive pas à faire fonctionner la routine de compétition, voici le retour d'AutoCAD (version 2012)

 

Commande: AIOBJECTSCALEREMOVEOTHERS

Select annotative objects: Spécifiez le coin opposé: 2 trouvé(s)

Select annotative objects: 1 trouvé(s), 3 au total

Select annotative objects: 1 trouvé(s), 4 au total

Select annotative objects:

0 scales removed from 0 objects.

 

Une idée? Merci

[Bortch59]

Bonjour,

 

tout d'abord merci pour vos réponses et désolé pour ma réponse tardive.

 

La routine de compétition ne fonctionne pas chez moi (AutoCAD v2012).

Voici le retour suite au lancement de la commande:

 

Commande: AIOBJECTSCALEREMOVEOTHERS

Select annotative objects: Spécifiez le coin opposé: 2 trouvé(s)

Select annotative objects: 1 trouvé(s), 3 au total

Select annotative objects: 1 trouvé(s), 4 au total

Select annotative objects:

0 scales removed from 0 objects.

 

Une idée? Merci

[La Lozère]

Bonjour,

Je relance un VIEUUUUX topic....
Quelque soit la solution proposé (burst, lisp, AIOBJECTSCALEREMOVEOTHERS en .net) je n'arrive pas à supprimer la notion d'annotativité dans mon document.

Y aurait-il quelque chose que je ferais mal ? Mais avec ma 2018, même après avoir utilisé ces commandes, lorsque je clic sur le petit icône pour afficher ou non les objets annotatif (variable ANNOALLVISIBLE), ben mes objets disparaissent.

Décidemment, je hais définitivement cette notion d'annotation 🤬

[La Lozère]

Bon finalement en cherchant un peu, et mon dessin n'étant pas trop fournis en objet annotatifs (texte, ligne de côtes et lignes de repères), j'ai sélectionné ces objets et mis dans les propriétés sur "Non" à la notion d'annotativité.

[Eric]

Tu peux aussi simplement utiliser la commande _CHANGE

En allant dans les propriétés de la commande, il y a une option ANNOTATIF pour l'activer ou le désactiver sur plusieurs objets de nature différente.

Bon ça ne fonctionne sur les blocs parce que pour ces objets-là il faut aller dans l'éditeur de bloc.