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