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