|
Lisp : savedata.lsp
Dorfy am 15.07.2010 um 11:47 Uhr (0)
Zitat:Original erstellt von cad4fun:Meine ACADVER = "17.1s (LMS Tech)" (schreibgeschützt)Das Ersetzen von 16 durch 17.1s hilft nicht weiter und meine LISP-Kenntnisse sind auf einem zu niedrigem Niveau, um die notwendigen Anpassungen zu treffen.Hat jemand einen Rat - besser eine Lösung - für mich? dann schau dir mal an wie1. substr funktioniert2. was getvar in Verbindung mit acadver bewirkt3. und Listen unter Lisp ... And have more fun ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Program ...
| | In das Form Lisp wechseln |
|
Lisp : savedata.lsp
cad4fun am 15.07.2010 um 11:36 Uhr (0)
von Vladimir NesterovskyIch bekomme beim Laden der Datei die Meldung:Fehler: no function definition: DICT-GETDer Ausschnitt dazu:;; Get A [Key] Value From Dictionary [Name](cond ((member (substr (getvar "acadver") 1 2) ( "13" "14")) (defun dict-get ( name key ) ;; name and key As strings (x-relist ;; decode the data! (cdr (member (100 . "AcDbXrecord") (dict-getrawdata name key)))))) ((member (substr (getvar "acadver") 1 2) ( "15" "16")) (defun dict-get ( name key ) ;; name and key As strings ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |