0 Members and 1 Guest are viewing this topic.
grips?
Explode block, find insertion point, undo?
((lambda (/ ent) (setq ent (entsel)) (if ent (princ (cdr (assoc 10 (entget (car ent))))) ) ))
It is a max of three lines code.....
Quote from: LE on October 13, 2005, 11:21:09 AMIt is a max of three lines code.....Maybe with (vla-get-subentity bla bla)?F.
vla-getsubentity
Don't have time to write a proper wrapper for this (i.e. ucs active etc.) but if you select a nested block with the wcs active this should work:(last (caddr (nentsel)))