获取块内图元名列表

HGQ8888

这是论坛上找到的获取块内图元名的代码,发现它总是获取到的并不是所选块的图元名,而是第一次程序生成块的图元名.
(defun name (ent / acadapp acaddoc block-name block-object block-rep blocks en-lst)
  (setq block-name (cdr (assoc 2 (entget ent))))
  (setq block-object (vlax-ename->vla-object ent))
  (setq    AcadApp    (vlax-get-acad-object)
    AcadDoc    (vla-get-ActiveDocument acadApp)
    Blocks    (vla-get-blocks acadDoc)
  )
  (setq block-object (vla-item blocks block-name))
  (setq block-rep 0)
  (repeat (vla-get-count block-object)
    (setq en-lst (cons (vlax-vla-object->ename (vla-item block-object block-rep)) en-lst))
    (setq block-rep (1+ block-rep))
  )
  en-lst
)
(defun c:tt()
    (vl-load-com)
    (setq tt (name (car (entsel))))
(princ "\n              name = ") (princ tt);Erase_DV
   
    (princ)
)

ZZXXQQ

块内图元名就是生成块时的图元名，不管插入多少，都是原始块。

HGQ8888

哦,原来如此.谢谢版主!