---

Hallo liebe CAD-Community,

wir haben in einem Plan jede Menge Texte, die im Modellbereich nen Ober und Unterstrich aufweisen.
Dies entstehen durch im Inhalt des Textes enthaltene Zeichenkombination %%U und %%O.

Somit ist die Zeichenkette zb.: %%u%%oDO12.2.1  Im Plan selbst ist dadurch der Text "DO12.2.1" mit Ober und Unterstrich zu sehen.

Wie schafft man es, diesen Ober und Unterstrich zu entfernen? Und zwar recht automatisch auf alle befindlichen Texte im dwg?

Besten Dank im Voraus
BiAir

[Diese Nachricht wurde von BiAir am 19. Okt. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also damit gehts auf die grobe Art mit ALLEN Texten.
Nicht mit MTEXT und nicht mit ATTRIBUT, kann man aber erweitern.

(vlax-for blk (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
      )
  (vlax-for obj blk
    (if (= (vla-get-objectname obj) "AcDbText")
      (progn
(vla-put-textstring
  obj
  (vl-string-subst "" "%%u" (vla-get-textstring obj))
)
(vla-put-textstring
  obj
  (vl-string-subst "" "%%U" (vla-get-textstring obj))
)
(vla-put-textstring
  obj
  (vl-string-subst "" "%%o" (vla-get-textstring obj))
)
(vla-put-textstring
  obj
  (vl-string-subst "" "%%O" (vla-get-textstring obj))
)
      )
    )
  )
)

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Andreas Kraus:
Also damit gehts auf die grobe Art mit ALLEN Texten.
Nicht mit MTEXT und nicht mit ATTRIBUT, kann man aber erweitern.
[...]

---

Hmm... da kommt bei mir

; Fehler: no function definition: VLAX-GET-ACAD-OBJECT

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

dann schreibe eine Zeile darüber noch (vl-load-com)

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ach neee ... hab ich das schon wieder vergessen 

(naja irgendwann weis es jeder, dann kann ichs ja weglassen  )

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja der wahnsinn was alles geht!

Hat super geklappt! Dankeschön

Schönen Tag noch
BiAir

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP