PHILPHIL Posté(e) le 12 janvier 2010 Posté(e) le 12 janvier 2010 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
(gile) Posté(e) le 12 janvier 2010 Posté(e) le 12 janvier 2010 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
PHILPHIL Posté(e) le 12 janvier 2010 Auteur Posté(e) le 12 janvier 2010 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
Messages recommandés
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 compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant