---

hallo zusammen.

ich fuchse mich ein wenig in die lisp programmierung ein. nach 3 stunden vergeblicher versuche und habe nun die erste frage und finde keine antwort:

so weit bin ich: ich möchte die maßstäbe in der zeichnung automatisch umstellen. dazu fertige ich mir für jeden maßstab einen aufruf an. soweit kein problem. nur eines fehlt mir noch => ich möchte die größe mehrerer textstile automatisch verändern

(defun C:m100()
(Setvar "LTSCALE" 1)
(Setvar "DIMSCALE" 1)
(command "-dimstyle" "_apply" "_ALL" "")
(Setvar "PDSIZE" 0.25)
(command "_regen")
)

da muß nun noch irgendwie rein, dass der textstil ALLGEMEIN auf 0.5 und der textstil HÖHEN auf 0.4 gesetzt werden soll. dies soll sich natürlich auch auf alle vorhandenen texte in der zeichnug auswirken. wer kann mir helfen?

vielen dank vorab
matthias

------------------
... blue sky and happy landing matthias

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

---

hallo,
also ich würde das über die Assoziationsliste machen. beschäftige dich mal mit den gruppencode.

wenn du z.B. objekte gewählt hast (egal ob über objektwahl oder über filter der zeichnungsdatenbank)
könnte der codeauszug so aussehen:

;;;-------------Neu Texthöhe-------------
;;; element kommt aus auswahl
(setq texthoehe 0.18)
(setq element (subst (cons 40 texthoehe) (assoc 40 element)element ))
(entmod element)

gruss

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

Softlan macht das Netzwerk weich!

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

---

ich verweis mal als Ergänzung hierher

------------------
  - 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