---

Hallo @User!

Ich benutze AutoCad 2004 und arbeite mit vielen Farbflächen (Schraffuren) und Texten. Doch wenn ich zu viele Farben oder Texte habe, bremst es mein System aus. Nun hab ich unter Option-Anzeige den Schalter gefunden, womit man Texte und Farbflächen ausschalten kann. Wie ich finde etwas kompliziert.... Hat jemand schonmal ein Lisp dafür geschrieben, dass beides per Knopfdruck aus zu schalten geht? Am besten wären 2 unabhängige Lisp....

Im Vorraus schon mal vielen Dank

mfg Flo

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

---

meist du qtext und fillmode ?

------------------
- Sebastian -

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

---

... und hier zum aufn Button legen

(defun C:switch_fillmode ()
  (setvar "FILLMODE" (if (=(getvar "FILLMODE")0) 1 0))
)

(defun C:switch_qtext ()
  (setvar "QTEXTMODE" (if (=(getvar "QTEXTMODE")0) 1 0))
)

^C^Cswitch_fillmode
^C^Cswitch_qtext

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

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

---

auch wenn hier schon eine Lösung gepostet wurde:

(If(= hv nil)(progn(setvar "fillmode" 0)(setvar "QTEXTMODE" 1)(setq hv T))(progn(setvar "fillmode" 1)(setvar "QTEXTMODE" 0)(setq hv nil)));_regen 

als Buttonmakro einsetzen; wechselt zw. Fillmode=0 + QTextmode=1 und Fillmode=1 + QTextmode=0 .

------------------
- Sebastian -

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

---

Danke!!!!
Klappt wunderbar....

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