Aller au contenu

RECUPERER LE TEXT DES COTE


Messages recommandés

Posté(e)

HELLO

 

je voudrais récuperer le txt des cotes pour le remettre sur d'autres cotes

 

 

oupsss j'ai trouvé merci gile

 

a+

phil

 

 (defun C:CTC (/ cot-b)
 (setvar "cmdecho" 0)
 (while (not cot-b)
   (setq cot-b (car (entsel "\nSELECTIONNEZ LA COTE DE BASE :")))
   (if	cot-b
     (if (not (equal (cdr (assoc 0 (entget cot-b))) "DIMENSION"))
(setq cot-b nil)
     )
   )
 )
 (setq TXT1 (cdr (assoc 1 (entget cot-b))))
 (prompt (strcat "\nLE TEXTE DE BASE EST : " TXT1))
 (setq TEST NIL)
 (setq TEST2 0)
 (prompt "\nCLIQUER LA COTE POUR MODIFIER LE TEXTE :")
 (setq ENTG NIL)
 (while (null ENTG) (setq ENTG (ssget '((0 . "DIMENSION")))))
 (setq COM (sslength ENTG))
 (setq COMPT 0)
 (while (< COMPT COM)
   (progn (setq SJ2 (entget (ssname ENTG COMPT)))
   (setq TXT2 (assoc 1 SJ2))
   (setq SJ2 (subst (cons 1 TXT1) (assoc 1 SJ2) SJ2))
   (entmod SJ2)
   (redraw ENT1 4)
   (prompt (strcat "\nL'ANCIEN TEXTE     : " (cdr TXT2)))
   (prompt (strcat "\nA ETE REMPLACE PAR : " TXT1))
   (setq COMPT (1+ COMPT))
   )
 )
 (princ)
)

 

 

[Edité le 12/1/2010 par PHILPHIL]

FREELANCE

Autodesk Architecture 2025 sous windows 11 64

REVIT

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

Posté(e)

Salut,

 

Vite fait en vlisp (pas de contrôle sur le type d'entité)

(setq source (vlax-ename->vla-object (car (entsel "\nCote source: ")))
     cible  (vlax-ename->vla-object (car (entsel "\nCote cible: ")))
)
(vla-put-TextOverride cible (vla-get-TextOverride source))

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Posté(e)

hello gile

 

 

ca marche nettement plus concis que ma version

 

mercii

 

phil

FREELANCE

Autodesk Architecture 2025 sous windows 11 64

REVIT

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

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é