---

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

---

1. Der Codeschnipsel reicht nicht für die Fehlersuche, also bitte Link zum Code
2. Wozu brauchste das überhaupt ?

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

 

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

---

 

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

---

.. dream .. und bei der nächsten Version passt du das Lsip wieder an .....

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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