---

Hallo,

wenn ich nachstehende Routine ausführe, bekomme ich meine Koordinaten mit
zwei Nachkommastellen, welchen Wert muss ich ändern um sieben Nachkommastellen
zu erhalten?

Code:

---

(defun c ktkoo (/ pkt txtstil txthoeh abstX abstY txtlayr linlayr machline)
  ;;;Variable Werte
  (setq txtstil "Standard"
txtlayr "0"
txthoeh 20
abstX 20
abstY 20
linlayr "0"
machline nil; T oder nil -- T->Linie wird gezeichnet
)
  ;;;
  (while (setq pkt (getpoint "\nPunkt:"))
    (entmake (list
      '(0 . "TEXT")
      '(100 . "AcDbEntity")
      '(67 . 0)
      '(410 . "Model")
      (cons 8 txtlayr)
      '(100 . "AcDbText")
      (cons 10 (list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt)))
      (cons 40 txthoeh)
      (cons 1 (strcat (rtos (car pkt) 2 2) "-" (rtos (cadr pkt) 2 2) "-" (rtos (caddr pkt) 2 2)))
      '(50 . 0.0)
      '(41 . 1.0)
      '(51 . 0.0)
      (cons 7 txtstil)
      '(71 . 0)
      '(72 . 0)
      '(11 0.0 0.0 0.0)
      '(210 0.0 0.0 1.0)
      '(100 . "AcDbText")
      '(73 . 0)
      )
    )
    (if machline
      (entmake (list
'(0 . "LINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(410 . "Model")
(cons 8 linlayr)
'(100 . "AcDbLine")
(cons 10 pkt)
(cons 11 (list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt)))
'(210 0.0 0.0 1.0)
)
      )
      )
    )
  )

---

------------------
m.f.G.

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

---

hi,
rtos...

aus der hilfe:
Command: (setq x 17.5)

17.5

Convert the value of x to a string in decimal format, with 2 decimal places:

Command: (setq fmtval (rtos x 2 2))

"17.50"

mfg heiko

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

---

Hi,

Schau mal hier.

Gruß, Carsten

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

---

Danke! 

------------------
m.f.G.

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

---

Hallo!

Ich verwende gerne den Code:

Code:

---

(rtos (cadr pkt) 2 (getvar "LUPREC"))

---

Dann richtet sich die Ausgabe nach der Einstellung in Autocad. Die Zahl der Nachkommastellen entsprichte dann der Anzahl, die man bei allen ACAD-Befehlen bekommt, die eine Zahl zurückgeben (Länge, Fläche etc.)

Gruß, Stefan

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

---

 

Zitat:

---

Original erstellt von s.wickel:
Hallo!

Ich verwende gerne den Code:

Code:

---

(rtos (cadr pkt) 2 (getvar "LUPREC"))

---

Dann richtet sich die Ausgabe nach der Einstellung in Autocad. Die Zahl der Nachkommastellen entsprichte dann der Anzahl, die man bei allen ACAD-Befehlen bekommt, die eine Zahl zurückgeben (Länge, Fläche etc.)

Gruß, Stefan

---

Stimmt so nicht ganz. Wenn in DIMZIN das BIT8 (eigentlich das 4. Bit) gesetzt ist, werden nachfolgende Nullen unterdrückt.
RTOS übernimmt sowieso immer bei fehlender Angabe die Einstellung LUPREC, also kannst Du es Dir ersparen.

DIMZIN = 8
LUPREC = 4
(RTOS 15.5 2) -> "15.5"
(RTOS 15.5 2 7) -> "15.5"

DIMZIN = 0
LUPREC = 4
(RTOS 15.5 2) -> "15.5000"
(RTOS 15.5 2 7) -> "15.5000000"

[Diese Nachricht wurde von fuchsi am 27. Okt. 2008 editiert.]

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

---

Oh, das war mir noch nicht aufgefallen. Aber man lernt nie aus. Das macht den Code wieder etwas einfacher.

Danke für die Info.

Stefan

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