Hi Leute,
wer kann mir bei der Auswahl über ssget helfen.
Ich will einen Text innerhalb einer Polylinie finden und weiterbearbeiten.
Die Punkte der Polylinie habt ich in der Variable XX gespeichert.
Nur mit der Filterung Text und Layer funktioniert irgendwo nicht.
(defun C:test ()
(setq xx (GET-PL-POINTS (car (entsel))))
(setq ss (ssget "_WP" xx '(and (0 . "TEXT") (8 . "Raumbezeichnung"))))
)
;------ Polylinien auswahl
(defun GET-PL-POINTS (ENAME / EDATA PTLISTE X)
(if (= (cdr (assoc 0 (entget ENAME))) "LWPOLYLINE")
(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 PTLISTE (GET-HW-PL-POINTS ENAME))
) ;_ end of if
) ;_ end of defun
Gruß Christian
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP