entsel and nentsel

Hello there,

Within the same selection method, I sometimes want to obtain information
from a block (entsel) and sometimes from a attribute (nentsel) within a
block.

Has anybody got a tip for me on how to approach this?

Regards MJ

 

Marcel,

Here's a method using ActiveX. You can do the same using entget and vanilla LISP.

;; assuming an insert is selected
;; returns either "AcDbAttribute" or "AcDbBlockReference"
(defun c:test ( / ent vobj name ss )
(setq ent (nentsel "Select attribute or block object: "))
(setq vobj (vlax-ename->vla-object (car ent)))
(setq name (vlax-get vobj 'ObjectName))
(if (/= name "AcDbAttribute")
(setq ss (ssget (cadr ent))
vobj (vlax-ename->vla-object (ssname ss 0))
)
)
(vlax-get vobj 'ObjectName) ;or return vobj
) ;end

I've often wondered why there's not an entsel(p) function. Like entsel, but pass a
point and return the primary object. Instead resort to (ssget <point>) as above.
Maybe there's an easier way I'm not aware of.

Joe Burke

 

(defun c:testobj (/ ob ent)

(setq ob (entsel "\nSelect Object: "))

(if ob
(progn
(setq ent (nentselp (car (cdr ob))))
(princ (entget (car ob)))
(prompt "\n")
(prompt "\n")
(princ ent)
)
)
(princ)
)
--

AUTODESK
Authorized Developer
www.Cadentity.com
MASi

 

You can use (setq Pick (nentselp)) with an optional prompt argument and without
the optional [pt] argument.
If there is an (nth 2 Pick) then that is the transformation matrix for a nested
object and (last Pick) will return its parents as a list of entity names. Just
be careful to inspect the parents since (nentselp) digs down into blocks within
blocks, etc. (including xrefs).

Of course if there isn't an (nth 2 Pick) then Pick is exactly the same as that
returned by (entsel).

 

Hi Rudy ,what is different between entsel with nentselp?

_$ (setq ob (entsel "\nSelect Object: "))

(<Entity name: 14c7580> (4.38796 9.30149 0.0))

_$ (setq ent (nentselp (car (cdr ob))))

(<Entity name: 14c7580> (4.38796 9.30149 0.0))

 

Read the rest of the thread back in March 2004.

 

??

 

He meant this discussion started back in March 2004. Go to
http://discussion.autodesk.com/thread.jspa?threadID=318854 and
see the beginning of the discussion.