| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Warum Funktion nicht definiert .... ? (919 mal gelesen)
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1213 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 04. Okt. 2013 12:19 <-- editieren / zitieren --> Unities abgeben:
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 |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 04. Okt. 2013 12:26 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
| Elektroniker mit Meister/ Techniker für den Bereich Sekundärkonstruktion (m/w/d) | TenneT ist ein führender europäischer Netzbetreiber, der sich für eine sichere und zuverlässige Stromversorgung einsetzt - 24 Stunden am Tag, 365 Tage im Jahr. Wir gestalten die Energiewende für eine nachhaltige Energiezukunft. Als erster grenzüberschreitender übertragungsnetzbetreiber planen, bauen und betreiben wir ein fast 25.000 Kilometer langes Hoch- und Höchstspannungsnetz in den Niederlanden ... | Anzeige ansehen | Elektrotechnik, Elektronik |
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1213 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 04. Okt. 2013 12:27 <-- editieren / zitieren --> Unities abgeben:
|