---

Moin!
Ich nutze überwiegend Mtext und füge auch einige Texte über eigene Befehle mit vorgegebenen Eintragungen ein. Allerdings möchte ich die Breite immer auf 0 stellen, so sieht man z.B. beim Verschieben den Text und nicht nur den Kasten. Gibt es unter AutoCAD 2004 irgendeinen Befehl, den ich auch in Werkzeugkästen bzw. als Lisp-Part nutzen kann, um nur die Breite zu ändern oder muss ich ihn immer erst anklicken und über Eigenschaften gehen? In den Vorversionen war das doch auch irgendwie möglich, oder?  
wölfin

[Diese Nachricht wurde von die wölfin am 21. Nov. 2003 editiert.]

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

---

Hallo,
nun kenne ich deine eigenen Befehle nicht, aber dort wo AC nach dem zweiten Punkt fragt,kann auch die Breite 0 eingegeben werden.
Ein Blick in die Befehlszeile wirkt manchmal Wunder.
Wie heißt es doch so schön: AutoCAD spricht mit dir, du musst nur zuhören 
.

------------------

gruß
thomas

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

---

Ich geb zu, ich habs blöd geschildert.
Es geht um bereits fertige Elemente, die von jemand anderem die Breite XY erhalten haben. Ich möchte gern einen Befehl formulieren, den ich in das Kontextmenü bei Anklicken des MTextes einsetze, um nach Auswahl eines XY-breiten Textes die Breite auf 0 setzen zu können. Nur kenne ich nicht den Befehl, um nur die Breite im nachhinein ändern zu können, ausser man geht über "Eigenschaften".

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

---

Servus

Einen eigenen Befehl wird es wahrscheinlich nicht geben

Filter>Mtext>Alle>Eigenschaftsfenster

Sonst würd ich sagen etwas für LISP od. VBA

------------------
Wer Rechtschreibfehler findet, darf sie der Analphabetenvereinigung schenken.
Warum einfach, es geht auch Kompliziert.
mfG Bernd P. 

[Diese Nachricht wurde von Bernd P am 20. Nov. 2003 editiert.]

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

---

Hier ein kleines Lisp:

(defun c:mta0()
(setq as (ssget "X" '((0 . "MTEXT"))))
(setq n 0 en (ssname as n))
(while en
(setq el (entget en))
(setq el (subst (cons 41 0.0)(assoc 41 el) el))
(entmod el)
(entupd en)
(setq n (1+ n))
(setq en (ssname as n))
) ;endwhile
) ; enddefun

------------------

gruß
Stephan

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

---

Suuuuper!
Wenn ich könnte, würde ich Dich umarmen.
Danke Danke Danke!!! 
wölfin

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