Hallo Spezialisten,
ich bräuchte eure Hilfe. Ich versuche gerade über einen Block eine Polylinie auszulesen. (polylinie im Block enthalten). Die ausgelesenen Punkte sollen dann über ssget einen besimmten Block ausfiltern.
(defun c:q3 ()
(setq BLOCK (tblobjname "BLOCK" (cdr(assoc 2 (entget (car(entsel)))))))
(setq ENAME (entnext BLOCK))
(setq EDATA (entget ENAME)
PTLISTE (apply
'append
(mapcar
'(lambda (X)
(if (= 10 (car X))
(list (cdr X))
) ;_ end of if
) ;_ end of lambda
EDATA
) ;_ end of mapcar
) ;_ end of apply
) ;_ end of setq
(setq ss (ssget "_WP" ptliste '((0 . "insert") (2 . "Melder"))))
);defun
ss -> bleibt nil??? Fehlermeldung koomt keine??
ptliste --> habe ich
Wo ist der Fehler. Ich komm nicht drauf
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP