Aller au contenu

Retirer annotativité des objets


Bortch59

Messages recommandés

Salut,

 

As-tu AutoCAD ExpressTools ?

 

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

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

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)
)

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

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

AIOBJECTSCALEREMOVEOTHERS__AnnotationScaling.zip

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

  • 2 semaines après...

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

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

  • 7 ans après...

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 🤬

www.cad-is.fr
Autocad Map 2021 - Covadis/Autopiste V18.0c
Pisser sous la douche ne suffira pas
Lien vers le commentaire
Partager sur d’autres sites

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é.

www.cad-is.fr
Autocad Map 2021 - Covadis/Autopiste V18.0c
Pisser sous la douche ne suffira pas
Lien vers le commentaire
Partager sur d’autres sites

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.

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité