---

Ich möchte aus meinem Plankopf (eingefügter Block) einen rtext mit der Funktion: $(getvar,dwgprefix)$(getvar,dwgname) automatisch entfernen lassen. Leider hab ich diesen nicht auf einen seperaten Layer gelegt sondern nur auf einen seperaten Text-Style gelegt!!

Meine Frage also:
Kann ich eignetlich nach solchen rtexten in einem Block suchen lassen ohne das ich in den Block hineingehe??
Oder besser wäre wenn man einfach alles was auf einen bestimmten Text-Style löschen könnte!!!!!

Hat jemand schon so etwas gemacht einen bestimmten Text-Style zu löschen obwohl noch etwas daraufliegt was in meinem Fall ja von Vorteil wäre!?!?

Danke

lg Petra

------------------
LG Petra

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

---

Für deinen RTEXT :
(command "_erase" (ssget "_x" '((0 . "RTEXT")(1 . "$(getvar,dwgprefix)$(getvar,dwgname)"))) "")

Für TEXTSTIL
(command "_erase" (ssget "_x" '((7 . "TEXTSTILNAME"))))

in die Befehlszeile kopieren oder ins Script ...

...seh gerade "im Block" .. na da ist es ein wenig mehr Aufwand!

------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 16. Aug. 2004 editiert.]

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

---

Hallo CADmium

Danke für die Antwort aber auf beide Befehle bekomme ich immer nur "nil" zurück und der Text steht noch immer da.

Es ist bestimmt wichtig zu wissen das auf den Text-style noch etwas geschrieben ist eben nur diese rtxt und dieser ist in einem Block drinnen.

LG Petra

------------------
LG Petra

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

---

Hallo ich binŽs nochmal!!

Ich habŽs noch mal ausprobiert und zwar bin ich in den Block reingegangen und da haben beide super funktioniert!!!!! Aber genau das möchte ich nicht, das ich in den Block reingehen muß!!!
Ist das außerhalb des Blocks denn auch möglich zu machen??? So das ich genauso das Ergebnis erhalte als wenn ich im Block wäre??

Lg Petra

------------------
LG Petra

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

---

Hallo Petra,

ja, möglich ist das. Dazu musst du die Elemente der Blockdefinition mit einem Lisp durchlaufen und dann eben den RText löschen.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Holger

StimmtŽs oder hab ich recht das ist für einen Lisp Neuling auch ein ganz schöner Brocken!!!

Ahhhh das ist zum   

LG Petra

------------------
LG Petra

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

---

Hallo Petra,

ja, aber irgendwo muss man ja anfangen. Schau am besten mal in der Hilfe nach:
entnext
while
if
entdel
entmake
subst
tblobjname
cons
assoc
entget
car, cdr
an.
Grundlegend sind für Deine Aufgabe auch Kenntnisse der DXF-Strukturen, Gruppencodes usw.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo
ein Frage noch und zwar:
wenn ich den Befehl von CADmium
(command "_erase" (ssget "_x" '((0 . "RTEXT")(1 . "$(getvar,dwgprefix)$(getvar,dwgname)"))) "")

ganz normal über die Befehlszeilen eingebe Funktioniert der Befehl
lege ich mir allerding ein Button an wo dies enthalten ist gibt er mir als Antwort:
(command "_erase" (ssget "_x" '((0 . "RTEXT")(1 . """)
Fehler: extra cdrs in dotted pair on input

an was liegt es das er mir wenn ich über den Button den Befehl laufen lasse es nicht funktioniert!?!?

lg Petra

------------------
LG Petra

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

---

Hallo Petra,

das kommt wegen des $-Zeichens, welches in Menüs eine eigene Bedeutung hat.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo

Das dacht ich mir schon fast. aber wiso funktioniert es in der Befehlszeile und im Button nicht??
Wie kann ich das umgehen im Button so das er mir den Befehl korrekt zu ende führt?!

LG Petra

------------------
LG Petra

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

---

^C^C(command "_erase" (ssget "_x" (list'(0 . "RTEXT")(cons 1 (strcat(chr 36)"(getvar,dwgprefix)"(chr 36)"(getvar,dwgname)")))))

------------------
- Thomas -

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