CADxp: [RESOLU ] REMPLACER UN TEXTE - CADxp

Aller au contenu

Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

[RESOLU ] REMPLACER UN TEXTE

#1 L'utilisateur est hors-ligne   PHILPHIL 

  • ceinture noire 1er dan
  • Groupe : Membres
  • Messages : 918
  • Inscrit(e) : 24-janvier 06
  • LocationNANTES

Posté 11 juillet 2018 - 15:34

bonjour

pour un lisp

je cherche un bout de lisp permettant de remplacer n'importe quel texte par n'importe quel texte
( les longueurs peuvent etre differente donc et l'emplacement dans le texte de base non définit )

j'ai du voir passer ca sur le site, créer par les experts du lisp mais je ne le retrouve plus.

est ce que vous avez ca en stock ?

merci

Phil
Autodesk Architecture 2015 sous SEVEN 64et REVIT 2015
ecrans 30 pouces horizontal + 24 pouces vertical
0

#2 L'utilisateur est hors-ligne   je56 

  • ceinture marron
  • Groupe : Membres
  • Messages : 243
  • Inscrit(e) : 29-septembre 05
  • LocationNANTES

Posté 11 juillet 2018 - 16:03

Bonjour Phil

Et si tu essayais tout simplement la commande "Rechercher" native d'AutoCAD ?

Eric
1

#3 L'utilisateur est hors-ligne   DenisHen 

  • ceinture rouge et blanche 6em dan
  • Groupe : Membres
  • Messages : 3114
  • Inscrit(e) : 17-décembre 05
  • LocationSAINT FLORENTIN (Yonne)

Posté 12 juillet 2018 - 07:43

Salut Phil.

Je t'ai écris ça :
(defun c:Phil_RemplTxt (/)
  (setq Txt_Old (getstring (strcat "Taper le texte à remplacer :")))
  (setq Txt_New (getstring (strcat "Taper le texte de remplacement :")))
  (setq Select (ssget "_X" '((0 . "TEXT"))))
  (setq n 0)
  (while (setq Ent (ssname Select n))
    (setq elst (entget Ent)
          n    (+ 1 n)
    ) ;_ Fin de setq
    (if (= (cdr (assoc 1 elst)) Txt_Old)
      (progn (setq elst (subst (cons 1 Txt_New) (assoc 1 elst) elst)) (entmod elst))
    ) ;_ Fin de if
  ) ;_ Fin de progn
  (princ)
)

LinkedIn et mon site...
Windows 10 Pro 64bits / AutoCAD MAP 3D 2018.0.2
Covadis 16 / Microstation V8i

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres...
Davantage d'avantages, avantagent davantage. (Bobby Lapointe)
La connaissance s'accroît quand on la partage.(Socrate)
0

Partager ce sujet :


Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

1 utilisateur(s) en train de lire ce sujet
0 membre(s), 1 invité(s), 0 utilisateur(s) anonyme(s)