---

Hallo Lisp-Gemeinde,
ich möchte an Zeichnungsobjekte EED's anhängen. Die anzuhängenden Daten liegen in Variablen gespeichert vor. Der nachfolgende Ansatz liefert mir aber immer einen Fehler, da fehlerhafte DXF-Gruppe.
Ersetze ich die Variablen durch Festwerte funktioniert es. Wo liegt mein Fehler?

(defun c:Test ( / )
(if (NOT (tblsearch "APPID" "LINIENPUNKTE")) (regapp "LINIENPUNKTE"))
(setq P1 (getpoint "\nAnfangspunkt: "))
(setq PN1 (getstring "\Punktnummer: "))
(setq P2 (getpoint "\nEndpunkt: " ))
(setq PN2 (getstring "\Punktnummer: "))
(command "_PLINE" P1 P2 "")
(setq ExtLinData
  '((-3 ("LINIENPUNKTE" (1000 . PN1) (1010 . P1)
                        (1000 . PN2) (1010 . P2)
  )))
) ;setq
(setq ElementEig (append (entget (entlast)) ExtLinData))
(entmod ElementEig)
) ;End of Test

Vielen Dank für eure Hilfe.
Uwe

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

---

Die Liste ist gequotet...(das Apostroph...)
(setq ExtLinData
  '((-3 ("LINIENPUNKTE - wird also nicht ausgewertet.

#############################################

(setq ExtLinData    (list
                              (list -3
                                (list "LINIENPUNKTE"
                                  (cons 1000 PN1)
                                  (cons 1010  P1)
                                  (cons 1000 PN2)
                                  (cons 1010  P2)
                                )
                              )
                           )
)

------------------
- Sebastian Mattis -

[Diese Nachricht wurde von cadffm am 27. Jan. 2004 editiert.]

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

---

Danke für die schnelle Hilfe.
Uwe

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