---

Hallo,

ich habe folgende Entity-Liste
Entity-Liste: MTEXT

((-1 . <Objektname: 7ffff836960> ) (0 . "MTEXT") (330 . <Objektname:
7ffff829d90> ) (5 . "58E") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"A_Text") (100 . "AcDbMText") (10 11.8143 -5.78678 1.00017e-014) (40 . 0.4375)
(41 . 5.35354) (46 . 0.0) (71 . 1) (72 . 5) (1 . "Zeile 3 Produktionen") (7 .
"Arial") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 4.44137) (43 . 0.44705) (50 .
0.0) (73 . 1) (44 . 1.0)) ((-1 . <Objektname: 7ffff836960> ) (0 . "MTEXT") (330
. <Objektname: 7ffff829d90> ) (5 . "58E") (100 . "AcDbEntity") (67 . 0) (410 .
"Model") (8 . "A_Text") (100 . "AcDbMText") (10 11.8143 -5.78678 1.00017e-014)
(40 . 0.4375) (41 . 5.35354) (46 . 0.0) (71 . 1) (72 . 5) (1 . "Zeile 3
Produktionen") (7 . "Arial") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 4.44137)
(43 . 0.44705) (50 . 0.0) (73 . 1) (44 . 1.0))

--------------------
Warum hat die folgende Zeile keinerlei Auswirkung auf den MTEXT?
Damit möchte ich den MTEXT-Rahmen in der Breite optimieren:
(entmod (list (cons 41(* maxzeich 0.326126))(assoc -1(entget en))))
;maxzeich = (strlen txtinhalt)
ich bekomme zwar keine Fehlermeldung, aber die entmod-Zeile hat auch keinerlei Auswirkung auf den MTEXT?

------------------
Danke Stefan

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

---

guck dir mal deine Liste für Entmod an ....

Lösung sollte was in der richtung sein :

(setq DATA (entget OBJ))
(entmod (subst (cons 41(* maxzeich 0.326126)) (assoc 41 DATA) DATA))

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

dein Code funktioniert. Erstmal vielen Dank.

Aber ich habe noch eine Frage. Gibt es eine Funktion, mit der ich für mehrzeiligen MTEXT den Textbegrenzungrahmen optimieren kann (Breite der längsten Zeile). Ich habe hier Zeichnungen in denen der Textrahmen viiiiiieeeeellll zu breit ist. Ich habe mir eine Routine geschreiben, mit der ich Texte an ihrem "sichtbaren Mittelpunkt" drehen kann. Bei MTEXT wird der Text um den Mittelpunkt der Diagonale des Textbegrenzungrahmens gedreht. Da landen die MTEXTE beim Drehen natürlich im Nirvava.

------------------
Danke Stefan

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

---

Zitat:

---

Original erstellt von cadking:
... Aber ich habe noch eine Frage. Gibt es eine Funktion, mit der ich für mehrzeiligen MTEXT den Textbegrenzungrahmen optimieren kann (Breite der längsten Zeile). ...

---

Wenn du die ExpressTools installiert hast, dann schau dir mal die acettxt.lsp an. Da ist zu erkennen, wie du die Textbox ermitteln kannst. Dem zugrunde liegt eine arx, welche auch von den ExpressTools genutzt wird.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

du kannst dir aber auch das mal anschauen:
http://lee-mac.com/boxtext.html

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Nur weil ich den Code zufällig kenne und es nicht unbedingt sofort auffällt:
Lee hat darin sozusagen nicht die "interne" Ausrichtung von Mtexten berücksichtigt.

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

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

---

Hallo Holger,

vielen Dank. ich habe mir die acettxt.lsp mal angesehen aber ich habe ein weiteres Problem. Wie lautet der Gruppencode für die "Papierdefinierte Breite" von MTEXT mit Beschriftung (maßstabsabhängig)? Mit 41 ändert sich da nichts (bei maßstabsabhängig wohl schreibgeschützt?).

------------------
Danke Stefan

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