---

Hallo,

wie kann ich die Zeichnungseinheiten bei Länge die Genauigkeit in einen Lisp-Datei (Befehl) ändern z.B. von 3 auf 4 Nachkommerstellen einstellen. Danach einen Befehl ausführen und danach die Genauigkeit wieder auf 3 Nachkommerstellen einrichten.
Danke für eure Tips.
Ralph

---

Hallo ABDN,

AutoCAD arbeitet generell mit 16 Nachkommastellen. Zeigt diese allerdings nicht an.
Bei berechnen irgendwelcher Dinge in LISP ist es genauso.

Die Systemvariable LUPREC steuert lediglich die angezeigten Nachkommastellen.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Danke, hat mir weitergeholfen.
Ralph

---

Ansonsten : Folgende Funktion rundet die übergebene ZAHL aud die angegebenen STELLEN

(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 
        ( (> (mod TEMP) 0.5) (setq TEMP (+ (fix TEMP) 1)))
        ( (< (mod TEMP) 0.5) (setq TEMP    (fix TEMP)  ))
        ( (= (mod 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) ZAHL)))
    )
  )
  TEMP   
)

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

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