请问如何获得嵌套块内的块名

你有种再说一遍

kozmosovia 发表于 2025-8-7 16:42
获取嵌套的块名用来做什么呢？哪怕知道块A包含块BCDEF，也不清楚块BCDEF各自对应哪些图形。然后呢？拿着块B ...

可以用块名显示层次结构给用户看,然后直接进入某个块内编辑.

kozmosovia

你有种再说一遍 发表于 2025-8-7 16:58
可以用块名显示层次结构给用户看,然后直接进入某个块内编辑.

这不就是refedit直接就支持在界面显示的？还写代码做啥？再造轮子?

你有种再说一遍

kozmosovia 发表于 2025-8-7 19:07
这不就是refedit直接就支持在界面显示的？还写代码做啥？再造轮子?

你就说有没有用吧,万一他是想解决refedit其中一个bug时候,就需要这样实现

sdh123321

(defun c:test ( / e obj blkName)
(while T
  (while (/=(type(setq e (car(last(nentsel "\nSelect any BLOCK to edit: "))))) 'ENAME))
        (setq obj (vlax-ename->vla-object e))
        (if  (= (vlax-get-property obj 'ObjectName) "AcDbBlockReference")
          (setq blkName (vlax-get-property obj
                (if (vlax-property-available-p obj 'effectivename)'effectivename 'name))
          );setq
        );if
  (princ (strcat "\nBlock Name is: " BlkName))
);while
);defun