---

Hi !

ich habe eine Funktion die das Richtungssystem (mathematisch / vermessung) ermitteln soll:

Code:

---

(cond
    ;;Vermessung GON
    ((AND (equal tmp_angbase (/ pi 2) 0.001)(= tmp_aunits 2) (= tmp_angdir 1))
;;  (((= tmp_angbase 100) AND (= tmp_aunits 2) AND (= tmp_angdir 1))
    (progn
      (princ "\nvermessungs")
    (setq result 1)
      )
    )
    ;; Altgrad - mathematisch
    ((AND (= tmp_angbase 0)(= tmp_aunits 0) (= tmp_angdir 0))
;;  (((= tmp_angbase 0) AND (= tmp_aunits 0) AND (= tmp_angdir 0))
    (setq result 0)
    )
    );end-cond

  result
  )

---

Leider klappt das mit dem Vermessungssystem nicht - weil keine Übereinstimmung gefunden wird.(Genauigkeitsproblem ber angbase )

Hat einer eine Idee wie das in Griff zu bekommen ist ?

Gruß Jan :-)

------------------
jan :-)

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

---

mit "equal" statt "=" ?  .. wie schon in der GON - Verzweigung angewendet

------------------
Also ich finde Unities gut ... und andere sicher 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

---

hi !

danke erst einmal für die Rückmeldung. Aber das Problem ist ja nicht beim mathematischen Richtungssystem - sondern bei der Vermessung.

Wenn die Werte wie folgt sind:

Zitat:

---

tmp_angbase: 1.5708
tmp_aunits: 0
tmp_angdir: 0

---

dann werden diese nicht als Vermessungssystem erkannt !

Deine Antwort bezieht sich doch aber auf das mathematische System !

Gruß Jan :-)

------------------
jan :-)

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

---

Zitat:

---

Original erstellt von tappenbeck:
...Wenn die Werte wie folgt sind:
Zitat:
--------------------------------------------------------------------------------
tmp_angbase: 1.5708
tmp_aunits: 0
tmp_angdir: 0
--------------------------------------------------------------------------------

dann werden diese nicht als Vermessungssystem erkannt !...

---

Logisch, denn tmp_aunits und tmp_angdir müssten dazu ja 2 und 1 sein.

Code:

---

...((AND (equal tmp_angbase (/ pi 2) 0.001)(= tmp_aunits 2) (= tmp_angdir 1))...

---

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

1+ und Asche auf mein Haupt !

------------------
jan :-)

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

---

Ich vermute ja seit Jahren schon einen Kobold hinter dem Nick, auch wenn wir gemeinsame Bekannte haben die was anderes behaupten  

Code:

---

(AND
  (equal tmp_angbase (/ pi 2) 0.001)
  (= tmp_aunits 2)
  (= tmp_angdir 1)
)

---

Code:

---

tmp_angbase: 1.5708
tmp_aunits: 0
tmp_angdir: 0

---

EDIT: Da war Udo mal wieder schneller

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

[Diese Nachricht wurde von cadffm am 07. Okt. 2013 editiert.]

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