| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: savedata.lsp (631 mal gelesen)
|
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 15. Jul. 2010 11:36 <-- editieren / zitieren --> Unities abgeben:
von Vladimir Nesterovsky Ich bekomme beim Laden der Datei die Meldung: Fehler: no function definition: DICT-GET Der 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 (x-relist ;; decode the data! (cddr (member '(100 . "AcDbXrecord") ;; new (280) code group in r15 (dict-getrawdata name key))))))) 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? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 15. Jul. 2010 11:40 <-- editieren / zitieren --> Unities abgeben: Nur für cad4fun
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 15. Jul. 2010 11:47 <-- editieren / zitieren --> Unities abgeben: Nur für cad4fun
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 wie 1. substr funktioniert 2. was getvar in Verbindung mit acadver bewirkt 3. und Listen unter Lisp ... And have more fun ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." [Diese Nachricht wurde von Dorfy am 15. Jul. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 15. Jul. 2010 12:00 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CADmium: 1. Der Codeschnipsel reicht nicht für die Fehlersuche, also bitte Link zum Code 2. Wozu brauchste das überhaupt ?
1)http://vnestr.tripod.com/SaveData.lsp 2)ich möchte den DWG-Maßstab an die Zeichnung anhängen und habe etliche darauf abgestimmte Routinen. Jetzt habe ich mich mal kurz abgekühlt und das ergibt jetzt folgendes Codeschnipsel: ;; 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" "17")) (defun dict-get ( name key ) ;; name and key As strings (x-relist ;; decode the data! (cddr (member '(280 . "AcDbXrecord") ;; new (280) code group in r15 (dict-getrawdata name key))))))) Stand eh alles da, aber ich habe hier 28,4°. Danke für den Denkanstoß an Dorfy!
[Diese Nachricht wurde von cad4fun am 15. Jul. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 15. Jul. 2010 12:19 <-- editieren / zitieren --> Unities abgeben: Nur für cad4fun
|
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
|
erstellt am: 15. Jul. 2010 12:44 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CADmium: .. dream .. und bei der nächsten Version passt du das Lsip wieder an .....
Hast ja recht, dann bleibt nur mehr ;; Get A [Key] Value From Dictionary [Name] (defun dict-get ( name key ) ;; name and key As strings (x-relist ;; decode the data! (cddr (member '(280 . "AcDbXrecord") ;; new (280) code group in r15 (dict-getrawdata name key))))) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Wolfgang S Mitglied CADaver
Beiträge: 270 Registriert: 06.03.2006 AC 2009, C3D 2009, AC 2010, C3D 2010, AC 2011, C3D 2011, RVT 2010, RVT 2011, ASD 2011 und alles darunter bis R14 + Win XP, Win XP64, Win 7/64
|
erstellt am: 16. Jul. 2010 08:40 <-- editieren / zitieren --> Unities abgeben: Nur für cad4fun
Servus! Ich habe die gleiche savedata.lsp in Verwendung gehabt, nachdem aber AutoCAD ja ab 2008 schon Maßstäbe kann (gem. Deiner Signatur hast Du diese Version schon) ist es fraglich ob es noch Sinn macht jetzt nachträglich ein eigenes System hineinzuproggen, immerhin gibts seit 4 Versionen schon eine Lösung. Achja: die Änderung des aktuellen Maßstabs in der DWG bedeutet nicht zwangsläufig dass Du auch die Beschriftungstechnologie verwenden musst. Praktisch ist es aber schon - hab´s selbst so in Verwendung. Vielleicht hilft Dir in diesem Fall ein Schritt zurück und die Problematik nochmal als Ganzes zu betrachten. vlg Wolfgang S
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |