---

  Hallo, 
habe folgendes Problem das Koordinaten in der Y-ebenen gerundet werden und ich nicht dahinterkomme warum?
Aus der liste
         Bei Punkt  X= 8146.300  Y=221134.070  Z=    0.000
         Bei Punkt  X= 8150.530  Y=221132.600  Z=    0.000
         Bei Punkt  X= 8155.470  Y=221131.050  Z=    0.000
         Bei Punkt  X= 8160.460  Y=221130.220  Z=    0.000
         Bei Punkt  X= 8162.370  Y=221130.610  Z=    0.000
         Bei Punkt  X= 8162.740  Y=221133.550  Z=    0.000
         Bei Punkt  X= 8164.530  Y=221137.400  Z=    0.000
Aus lisp
(setq thelist (vlax-safearray->list (variant-value thelist-2)))
8146.3 221134.0
8150.53 221133.0
8155.47 221131.0
8160.46 221130.0
8162.37 221131.0
8162.74 221134.0
8164.53 221137.0
Wo ist der Fehler? wer kann helfen!

[Diese Nachricht wurde von GG-GREGOR am 13. Jul. 2009 editiert.]

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

---

Das ist bloß im Ausdruck so
probier mal
(setq thelist (vlax-safearray->list (variant-value thelist-2)))

(mapcar
  '(lambda(x)
    (mapcar
        '(lambda(Y)
          (princ(strcat "\n"(rtos Y 2 6)))
        )
        X
    )
  )
  thelist
)

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

---

Hi CADmium,

code_________________

(defun c:test ()
  (setq aws (ssget))
  (SETQ AWSL (SSNAME AWS 0))
  (setq theobj (vlax-ename->vla-object AWSL))
  (setq thelist-2 (vlax-get-property theobj 'coordinates))
  (setq thelist (vlax-safearray->list (variant-value thelist-2))) 
  (mapcar
    '(lambda(x)
      (mapcar
'(lambda(Y)
    (princ(strcat "\n"(rtos Y 2 6)))
    )
X
)
      )
    thelist
    )
  );end of defun

; Fehler: Fehlerhafter Argumenttyp: listp 8146.3

geht leider auch nicht :-(

auch mit stimmt es nicht
(setq wert-0 (cdr (assoc 10 (entget AWSL))))

nur die Y Koordinate wird gerundet!

hast noch eine Idee ?

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

---

Hast du dir denn schonmal angesehen, was du da zusammengeklöppelt hast?

Hier dein Teil:

Code:

---

(defun c:test ()
  (setq aws (ssget))
  (SETQ AWSL (SSNAME AWS 0))
  (setq theobj (vlax-ename->vla-object AWSL))
  (setq thelist-2 (vlax-get-property theobj 'coordinates))
  (setq thelist (vlax-safearray->list (variant-value thelist-2)))
      (mapcar
'(lambda(Y)
    (princ(strcat "\n"(rtos Y 2 6)))
    )
thelist
)
  )

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hi CADwiesel,

ja hab ich! wurde aber nicht ganz schlau draus.

ich hab es dann mit dem gelöst

(setq P1 (list (rtos (car thelist)2 2)(rtos (cadr thelist)2 2)));xy(setq P2 (list (rtos (car thelist-rest)2 2)(rtos (cadr thelist-rest)2 2)));xy

rtos war die lösung für mein Problem

Danke für die Hilfe.

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