RECUPERER LE TEXT DES COTE

[PHILPHIL]

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]

[(gile)]

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

[PHILPHIL]

hello gile

 

 

ca marche nettement plus concis que ma version

 

mercii

 

phil