---

Hallo

ich habe noch eine Frage zu AutoCAD R13. Wie kann ich mehrere Texte auswählen und die Schrifthöhe und Schritart ändern. Gibt es da einen Befehl oder braucht man eine weissnichtwas?
Außerdem habe ich noch ein anderes Problemchen, wie kann ich ein Postscriptfüllung dazu bringen nicht über Polylinien zu drucken?
Es sieht für mich so aus als wäre die Füllung in eine Ebene über den Linien, kann man die Ebenen nicht tauschen?
Falls Ihr euch fragt warum ACAD R13 wenn ich doch Inventor im Profil stehen habe, ich muß noch ein paar Zeichnungen auf einem alten Rechner bearbeiten, danach werde ich umsteigen.

Vielleicht habt Ihr ja ein paar Vorschläge.
Vielen Dank schon einmal.

Gruß

------------------
Karin Fritsch-Kirchner

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

---

Texthöhe, kenne R13 nicht, drum lese mal (falls es ihn gibt) den
Befehl _matchprop bzw. EIGANPASS nach.

In aktuellen ACADversionen (mind. ab 2000) hat der Befehl verschiedene Optionen,
unter anderem "Text" und "LAYER" etc. - diese korrekt eingestellt, kann man
den Befehl dazu verwenden.

hoffe es hilft.

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

---

High,
soweit ich mich erinnern kann, ging bei R13 das gleichzeitige Ändern der Schrifthöhe usw. bei mehreren Texten nicht. Man konnte zwar mehrere Auswählen, aber über ->Ändern ->Eigenschaften musste man dann für jeden einzelnen ausgewählten Text die ganzen Parameter durchgehen.

Hatte da mit meinen rudimentären Lisp-kenntnissen mal was zusammengefummelt

Code:

---

;;;
(defun ANZAHL ()
(setq AUSWAHLSATZ (ssget))
(setq L (sslength AUSWAHLSATZ))
)
;;;
;;;
(defun WHO ()
(setq A1 (ssname AUSWAHLSATZ (- L 1)))
(setq A2 (ssadd))
(ssadd A1 A2)
(setq H (entget A1))
(setq H1 (assoc '0 H))
(setq H2 (cdr H1))
)
;;;
(defun C:TEXTHIGH ()
(ANZAHL)
(setq NH (getreal "neue Texth”he: "))
(while (> L 0)
(WHO)
(if (= H2 "TEXT") (progn
(command "_CHANGE" A2 "" "" "" "" NH "" "")
)
)
(setq L (1- L))
)
(ENDE)
)
;;;
;;; gibt jedem Text im Auswahlsatz einen neuen Stil
;;;
(defun C:TEXTSTIL ()
(ANZAHL)
(setq NS (getstring "neuer Textstil: "))
(while (> L 0)
(WHO)
(if (= H2 "TEXT") (progn
(command "_CHANGE" A2 "" "" "" NS "" "" "")
)
)
(setq L (1- L))
)
(ENDE)
)
;;;

---

------------------
Ciao
J-SC
    ... geht's vielleicht doch?

[Diese Nachricht wurde von j-sc am 14. Feb. 2007 editiert.]

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

---

Vielen Dank für die schnelle Antwort.
Ich werds ausprobieren und berichten.

Grüße

------------------
Karin Fritsch-Kirchner

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

---

chtext.lsp.txt

Zitat:

---

Wie kann ich mehrere Texte auswählen und die Schrifthöhe und Schritart ändern. Gibt es da einen Befehl oder braucht man eine weissnichtwas?

---

Weiss nicht, ob es in R13 bereits die Bonus-Tools gab.
Mit chtext.lsp kann man global alles auswählen und wie durch eine Filterfunktion einfach die Texteigenschaften ändern.

------------------
Grüße Karin

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

---

Zur Ergänzung - CHTEXT.lsp gabs mindestens schon bei AutoCAD R12 (das läuft bei mir nämlich zu Testzwecken noch) und gehört zur Standardinstallation - müsste also im Supportordner liegen.
Einfach (LOAD "CHTEXT") eingeben, dann Befehl CHT aufrufen, Objekte wählen und dan Option Höhe/Height wählen und neue Höhe für alle Texte eingeben.

------------------
Mit freundlichem Gruß

Udo Hübner

[Diese Nachricht wurde von CAD-Huebner am 14. Feb. 2007 editiert.]

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

---

Hallo

vielen Dank erstmal, chtext.lsp hat mir bei der Höhe auf jeden Fall geholfen. Den Stil konnte ich nicht ändern, da "TMS" nicht gefunden wurde. Was mich dabei irritiert ist, das TMS in der Auswahlliste steht wenn man mit ai_propchk den Textstil ändert.
Ich such mal weiter.
Ein schönes Wochenende.

Gruß

PS Die Bonus-tools hab ich mal runtergeladen, aber noch nicht alle ausprobiert.

------------------
Karin Fritsch-Kirchner

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

---

Vielen Dank für die Mühe, leider weiss ich nicht so recht wie ich das anwenden soll. 
Sobald ich etwas mehr Zeit habe werde ich mich mit den Lisp-Befehlen auseinander setzen. Hab mir jetzt die Handbücher zu R13 geholt und werd am Wochenende mal etwas lesen 

Grüße

------------------
Karin Fritsch-Kirchner

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

---

das hätte die Amtwort für j-sc sein sollen....

Grüße

------------------
Karin Fritsch-Kirchner

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