| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: READ warum wird kein typ zurückgegeeben (410 mal gelesen)
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 16. Okt. 2007 13:52 <-- editieren / zitieren --> Unities abgeben:
hi ! ich habe mir eine kleine debug-funktion für die werteausgabe geschrieben: Code: (setq *JT-DEBUG* T) ...(DEFUN jt:debug->value (gaf-debug->value#data / work name) ;; ;;Arbeitsfunktion (DEFUN work (name /) (PRINC (STRCAT "\n" name ":= ")) (PRINC (EVAL (READ name))) (PRINC " - type: ") (TYPE (EVAL (READ name))) ) ;end-defun - work ;; ;; (IF *JT-DEBUG* (COND ((= (TYPE gaf-debug->value#data) 'str) (work gaf-debug->value#data)) ((= (TYPE gaf-debug->value#data) 'LIST) (FOREACH tmp-data gaf-debug->value#data (work tmp-data)) ;end-foreach ) ) ;end-cond ) ;endif - *JT-DEBUG* )
aufgefrufen mit:Code: jt:debug->value (list [Variablennamen])
(damit kann ich den code auch beim kunden debuggen !) die ausgabe hierzu sieht wie folgt aus: * Zitat: vpdist-r*:= 10.0 - type: *vpdist-h*:= 10.0 - type: profil-breite:= 56.772 - type: profil-hoehe:= 7.69 - type:
kann mir einer sagen, warum ich keine typenbezeichung ausgegeben bekommen ? (fange erst mit read an zu arbeiten !) gruß Jan :-) ------------------ jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 16. Okt. 2007 17:11 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
Hallo Jan, .... weil Du den Typ nicht ausgeben lässt! Setz einfach noch ein "Princ" davor: Code: (princ (TYPE (EVAL (READ name))))
und am Ende noch ein (prin1), damit die Funktion selbst keinen Wert zurückgibt.Grüsse, Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|