(nentsel)

Hi,

This thread is not about (nentsel), but for similair functionality.

I try to use this:

(cdr (assoc 0 (entget (ssname (ssget "_+.:E:S:L:N") 0))))

Which should mean: "select single entity, on unlocked layer, nested"

So I select a nested LWPOLYLINE inside of a block, and it returned "INSERT".

How come?

ssnamex is the answer:

; Alternative of (nentsel)
(defun C:test ( / SS Lst )
(while (not (setq SS (ssget "_+.:E:S:L:N"))) SS)
(setq Lst (vl-remove-if-not '(lambda (x) (= 'ENAME (type x))) (apply 'append (ssnamex SS))))
(mapcar '(lambda (x) (cdr (assoc 0 (entget x)))) Lst)
)

Example:

("LWPOLYLINE" "INSERT") ; prints after selecting nested LWpolyline
("LINE" "INSERT" "INSERT") ; prints after selecting nested line within a nested block