---

Hallo Lisp freaks

wie kann ich den mit (getpoint) ausgewählten Wert in Ganze millimeter Runden ?

------------------
Danke...

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

---

guckst du hier

aufruf dann mit
(mapcar '(lambda(x) (round x 0))(getpoint))

und wenn du's als Int-wert brauchst
(mapcar '(lambda(x) (fix(round x 0)))(getpoint))

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 24. Jan. 2005 editiert.]

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

---

Ja das klappt nicht so ganz siehe unten

Befehl: (mapcar '(lambda(x) (fix(round x 0)))(getpoint))
no function definition: ROUND

Zitat:

---

Original erstellt von CADmium:
guckst du hier

aufruf dann mit
(mapcar '(lambda(x) (round x 0))(getpoint))

und wenn du's als Int-wert brauchst
(mapcar '(lambda(x) (fix(round x 0)))(getpoint))

---

------------------
Danke...

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

---

erst lesen! .. dann den Link aufrufen! die Funktion Round laden! und dann erst meckern! <dream> .. aber für dich kopier ich die Funktion auch noch mal hier rein!
(defun ROUND (ZAHL STELLEN / TEMP )
  (if (and(numberp ZAHL) (=(type STELLEN) 'INT))
    (progn
      (setq TEMP (abs ZAHL))
      (repeat STELLEN (setq TEMP (* TEMP 10.0)))     
      (cond 
        ( (> (- TEMP (fix TEMP)) 0.5) (setq TEMP (+ (fix TEMP) 1)))
        ( (< (- TEMP (fix TEMP)) 0.5) (setq TEMP    (fix TEMP)  ))
        ( (= (- TEMP (fix TEMP)) 0.5)         
          (if (equal (/ (fix TEMP) 2.0) (fix(/ (fix TEMP) 2.0)) 0.001)
            (setq TEMP    (fix TEMP)  )
            (setq TEMP (+ (fix TEMP) 1))
          ) 
        )
      )
      (repeat STELLEN (setq TEMP (/ TEMP 10.0)))
      (setq TEMP (* TEMP (if (< Zahl 0 ) -1.0 1.0)))
    )
  )
  TEMP   
)

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

---

Das hab ich ja bereits gemacht,
auch dann hat es nicht funktioniert

------------------
Danke...

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

---

klappt wunderbar
(getpoint)  -> (-18.6848 -11.3062 0.0)

(mapcar '(lambda(x) (round x 0))(getpoint))  -> (-19.0 -6.0 0.0)

(mapcar '(lambda(x) (fix(round x 0)))(getpoint))  -> (-17 -14 0)

(getpoint) liefert dir Punktkoordinaten in Form einer Liste , x-Wert, Y-Wert, Z-Wert, in Zeichnungseinheiten !

Wenn du mit "wie kann ich den mit (getpoint) ausgewählten Wert in Ganze millimeter Runden ?" was anderes meinst, dann sag es auch!

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

---

@cadmium Ruhig Brauner...

@Metallbau Verstehe den Thomas bitte nicht falsch, es ist sicherlich nicht so harsch gemeint wie es sich liest :-)
Eigentlich ist er 'n ganz ruhiger Vertreter.
Also, bleib' am Ball und stelle auch ruhig weiter Deine Fragen. Laß' Dich nicht abschrecken :-)

------------------
Ciao,
Marc

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

---

Guten Abend...

Es hat jetzt funktioniert CADmium Danke...

Aber eigentlich wollte ich den wert in m auf millimeter genau haben

das muss dan so aussehen
z.B.      1.000 oder 0.990 oder 0.040 etc.
und nicht 1    oder 0.99  oder 0.04  etc.

------------------
Danke...

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

---

(setq xyz(getpoint))
(setq y(/ (cadr xyz) 1000))

wie weiter

eine Möglichkeit ist die Grundeinstellung von "-einheit" anzupassen ...

aber das ist nicht der Sinn.

------------------
Danke...

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

---

so ?? ( in Zeichnungseinheiten)

(setq xyz(getpoint))
(setq y (*(round(/ (cadr xyz) 1000.0)0)1000.0))

oder so ( in 1/1000 Zeichnungseinheiten)
(setq xyz(getpoint))
(setq y (round(/ (cadr xyz) 1000.0)0))
??

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

---

Hallo Metallbauer,

so richtig werde ich aus Deinen Wünschen auch nicht schlau.
Wenn Du eine Formatierung brauchst, dann schau evtl. mal

hier      : http://ww3.cad.de/foren/ubb/Forum145/HTML/000133.shtml
oder hier : http://ww3.cad.de/foren/ubb/Forum145/HTML/000935.shtml

Sonst müßtest Du schon mal sagen, was Du eigentlich vorhast.

Gruß Carsten

... ich überleg gerade, ob ich ein automatisches "Bitte" in mein Profil aufnehme ?  ;-)    Schöner Dialog ... oder ? 

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

---

Hallo Flaschenpost

Also nochmal mit dem getpoint hole ich mir die Koordinate y und den will ich in Meter [m] mit dreistellen nach dem Komma darstellen

(getpoint) --> (1049.17 763.626 0.0)
die 763.626 muss will ich so haben : 0.764 (aufgerundet)
oder die 1000.425 : sollte so aussehen: 1.000
oder die  989.554 : sollte so aussehen: 0.990

------------------
Danke...

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

---

@Metallbau : Warum nicht gleich so'ne Beschreibung ?!
-->

(setq y (/(round(cadr xyz)0)1000.0))

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