---

Moin !

ich stehe mal wieder im berühmten Wald wo man die Bäume nicht sieht.

Es gibt zwei Funktionen (am Postingende) die ich jetzt schon in einer eigenständigen Datei (Map 2013) abgelegt habe. Die Tests haben alle keine Fehler gefunden.

Wenn ich diese lade kommt auch keine negative Meldung - wenn ich dann (AVT_LIB_ANGTEST) eingebe bekomme ich die Meldung das die Funktion nicht definiert ist.

Kann mir einer weiterhelfen ?

Gruß Jan :-)

Code:

---

(defun AVT_LIB_ANGTEST (/)
  (setq tmp_angbase
(getvar "ANGBASE")
tmp_aunits
(getvar "AUNTIS")
tmp_angdir
(getvar "ANGDIR")
result nil
)
  (cond
    ;;Vermessung GON
    (((= tmp_angbase 100)
      AND
      (= tmp_aunits 2)
      AND
      (= tmp_angdir 1)
      )
    (setq result 1)
    )
    ;; Altgrad - mathematisch
    (((= tmp_angbase 0)
      AND
      (= tmp_aunits 0)
      AND
      (= tmp_angdir 0)
      )
    (setq result 0)
    )
    ) ;end-cond
  (print "\nresult: ")
  (princ result)
  result
  ) ;end-defun - AVT_LIB_ANGTEST
;;
;; Ausgabe einer Richtung unter Berücksichtigung der Richtungssysteme
(defun AVT_LIB_ANGSHOW (AVT_LIB_ANGSHOW#msg    AVT_LIB_ANGSHOW#value
AVT_LIB_ANGSHOW#system /
angtext       r1
)
  ;; gefunden: http://ww3.cad.de/foren/ubb/Forum145/HTML/002669.shtml
  (defun JB_verm:rad-acad->gon-verm (r1 /)
    (setq r1 (- 500.0 (* r1 (/ 200.0 pi))))
    (setq r1
  (cond ((> r1 400.0) (- r1 400.0))
((< r1 0.0) (+ r1 400.0))
(T r1)
)
  )
    (if (= r1 400.0)
      0.0
      r1
      )
    )

  (cond
    ;; Altgrad mathematisch
    ((= AVT_LIB_ANGSHOW#system 0)
    (setq angtext "altgrad")
    )
    ;; GON vermessung
    ((= AVT_LIB_ANGSHOW#system 1)
    (progn
      (setq
AVT_LIB_ANGSHOW#value
  (JB_verm:rad-acad->gon-verm
    AVT_LIB_ANGSHOW#value
    )
angtext "gon"
)
      ) ;end-progn
    )
    ;; nicht weiter definiert
    (T
    (setq angtext "rad")
    )
    )
  (print (strcat "\n"     AVT_LIB_ANGSHOW#msg
AVT_LIB_ANGSHOW#value
" "     angtext
)
)
  ) ;end-defun - AVT_LIB_ANGSHOW

---

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

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

---

Du solltest dich noch einmal (am besten von Anfang an) mit dem COND-Teil beschäftigen EDIT: in der Funktion 'AVT_LIB_ANGTEST'

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

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

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

---

1000 Danke !

da habe ich wohl einige Sprachen vermischt !

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

[Diese Nachricht wurde von tappenbeck am 04. Okt. 2013 editiert.]

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