---

punkte_lesen.txt

Hallo,

Ich habe mir folgendes Lisp Programm zur automatischen Erstellung von
Koordinatenpunkte herunter geladen, funktioniert auch hervorragend. Kann
Mir jemand helfen das Programm so umzuschreiben, dass die Vorzeichen der
Positiven Zahlen auch angezeigt werden. (z.B X+40 anstatt X40)

Gruß Uwe

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

---

a) Moeglichkeit EINS .  haesslich:
ganz oben eine neue funktion einfuegen:

Code:

---

   '(
             (format-float (value)
                (if (< value 0)
                  (format nil "~,3F" value)
                  (format nil "+~,3F" value)
                  ))
   (hk-messe-3d-punkt().....

---

die display aufrufe mit der neuen Formatierungs funtions anpassen (hier fuer den ersten Aufruf):

Code:

---

         (display (format nil"N~A G1 X~A Y~A Z~A"
                             hk_satznummer (format-float x-wert) (format-float y-wert) (format-float z-wert)))

---

die anderen beiden entsprechen anpassen (statt ~,3F heisst es ~A)

NUR geschrieben, nicht getestet...  das waere die haessliche Loseung.

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

b) Moeglichkeit ZWEI

Jetzt die elegante loesung:
http://www.gigamonkeys.com/book/a-few-format-recipes.html  --> siehe: "Floating-Point Directives"...  dort ist der 'at-sign modifier' genannt..

siehe auch: http://psg.com/~dlamkins/sl/chapter24.html

dann bräuchtest Du nur all ~,3F durch... ~,3@F zu ersetzen

Test: (format T "~8,3@F" pi)

Bevorzugen wuerde ich ein ~8,3@F. Ob Du bei 0 ein +0 oder ein -0 haben willst, musste dir noch ueberlegen     'führende nullen' wären bei einer solchen Foramtierei auch noch ein Theam.

[Diese Nachricht wurde von der_Wolfgang am 22. Okt. 2010 editiert.]

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

---

Code:

---

(format T "~3,5@$" (- pi))
(format T "~3,5@$" 0)
(format T "~3,5@$" (+ pi))

---

-00003.142
+00003.142
+00000.000

------------------
● Seamonkey Firefox Thunderbird ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ●

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

---

Vielen Danke für Deine schnelle Antwort!!

Habe mich für die zweite Variante entschieden,
funktioniert einwandfrei.

Schönes Wochenende!

Gruß Uwe

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