---

Texthöhe.dcl.txt Texthöhe.lsp.txt

Servus

Hab mir ein kleines Lisp zusammen "gepastelt". Soll die Variable "Textsize" steuern ohne lästiges herumrechnen mit Einheiten u. Massstab.

unten aktueller Code

[Diese Nachricht wurde von Bernd P am 17. Nov. 2005 editiert.]

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

---

Hallo Bernd!
es ist relativ einfach!
Deine Dialogroutine gibt einen TEXT(!) zurück:

Zitat:

---

  (if (/= 0 ns)
    (nth SIZ NAMES)
    )

---

Du brauchst aber zahlen, mit denen Du rechnest

Zitat:

---

(setq Thohe (* LMasstab THohew / LEinheit2))

---

also...(?)

Grüsse, Henning Jesse

------------------
http://www.voxelman.de
Computer-Dienstleistungen für Architekten und Ingenieure

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

---

Hallo Bernd,

Deine Listen enthalten Zeichenketten, diese werden bei der Auswahl auch wieder zurückgegeben. Ändere mal folgende Dinge:

(setq THohew (DIA ....))
zu (setq (THohew (atof (DIA ...)))

dto. mit (setq (LMasstab (DIA ...))

und dann noch falsche syntax in
(setq Thohe (* LMasstab THohew / LEinheit2))
zu
(setq Thohe (/(* LMasstab THohew ) LEinheit2))

dann sollte es klappen.

Viele Grüße
spider

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

---

@wronzky
Das hab ich mir gedacht nur wuste ich nicht wieso  

@spider_dd
THX funkt echt super (gleich viel besser ohne Fehlermeldungen   )

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

[Diese Nachricht wurde von Bernd P am 03. Mai. 2005 editiert.]

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

---

gelöscht
------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

[Diese Nachricht wurde von Bernd P am 17. Nov. 2005 editiert.]

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

---

Servus die 2.
So nach langen herumtesten funktioniert es endlich, nur bekomm ich eine unschöne Fehlermeldung kann mir wer helfen?

Bekomme ich die Fehlermeldung
; Fehler: Fehlerhafter Argumenttyp: stringp 10.0

Code:

---

;Hauptfunktion
(defun c:Texthöhe (/)
   (setq Objekte (ssget)) 
   (setq THohew (DIA:Liste
'("aktuelle Hoehe" "1" "1.25" "1.5" "1.75" "2" "2.25" "2.5" "2.75" "3" "3.25" "3.5" "3.75" "4" "4.5" "5" "5.5" "6" "6.5" "7")
)
)
  (if (not THohew)
    (exit)
    );if
  (if (= THohew "aktuelle Hoehe")
    ((setq Thohe (atof (getvar 'textsize)))
       (command "_textsize" Thohe)
    (if (not Objekte)
      (exit)
      (command "bks" "")
      )
    (if (not Objekte)
      (exit)
      (command "skaltext" Objekte "" "" Thohe)
      )
    (command "bks" "vo")
       )
    )
  (if (/= THohew "aktuelle Hoehe")
    (setq LEinheit (DIA:Liste
   '("Zentimeter" "Meter")
   )
)
      )
  (if (not LEinheit)
    (exit)
    );if
  (if (= LEinheit "Zentimeter")
    (setq LMasstab (atof (DIA:Liste
     '("1" "5" "10" "20" "25" "50" "100" "200" "250" "500" "1000")
     ))
  )
    )
  (if (= LEinheit "Meter")
    (setq LMasstab (atof (DIA:Liste
     '("10" "20" "25" "50" "100" "200" "250" "500" "1000" "2000" "2500" "5000" "10000" "25000" "50000")
     ))
  )
    )
  (if (not LMasstab)
    (exit)
    );if
  (if (= LEinheit "Zentimeter")
    (setq LEinheit2 10)
    );if
  (if (= LEinheit "Meter")
    (setq LEinheit2 1000)
    );if
  (setq Thohe (/(* (atof THohew) LMasstab)LEinheit2))
  (command "_textsize" Thohe)
  (if (not Objekte)
    (exit)
    (command "bks" "")
    )
  (if (not Objekte)
    (exit)
    (command "skaltext" Objekte "" "" Thohe)
    )
  (command "bks" "vo")
  )
 
;Dialog aufrufen
(defun DIA:Liste (NAMES / dcl_id ns SIZ)
  (setq dcl_id (load_dialog "Texthöhe.dcl"))
  (if (not (new_dialog "Texthöhe" dcl_id)
  )
    (exit)
    )
  (start_list "selections")
  (mapcar 'add_list NAMES)
  (end_list)
  (action_tile "accept" "(setq SIZ (atoi (get_tile \"selections\")))(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq ns (start_dialog))
  (unload_dialog dcl_id)
  (if (/= 0 ns)
    (nth SIZ NAMES)
    )
)

---

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

[Diese Nachricht wurde von Bernd P am 17. Nov. 2005 editiert.]

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

---

Ohne texthöhe.dcl kann man das Programm natürlich nicht test, aber der fehler liegt wohl hier:

Zitat:

---

...
(if (= THohew "aktuelle Hoehe")
    ((setq Thoehe (atof (getvar 'textsize)))
      (command "_textsize" Thohe)

---

Besser so:

Zitat:

---

...
(if (= THohew "aktuelle Hoehe")
    (PROGN
      (setq Thohe (getvar "TEXTSIZE"))
      ; überflüssig  Thohe ist doch gerade auf TEXTSIZE worden
      ; (command "_textsize" Thohe)
      ; ansonsten besser
      (SETVAR "TEXTSIZE" Thohe) ; statt command
    ...
    ); ende Progn

  );ende if

---

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

Udo Hübner

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