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

52幕墙设计

请教如何能获得嵌套块内的某个块名，或者如何得到nentsel所选择对象所在块的块名？用参照编辑先命令后选择，可以定位到嵌套块块名，都是不知道用程序如何获得块名。例如点圆块得到块1

52幕墙设计

1. (defun c:tt()
   
2. (setq p0(cadr(entsel)))
   
3. (command"-refedit" p0 "n" "o" "a" "n")
   
4. (setq n(getvar"REFEDITNAME"))
   
5. (command"_refclose" "D")
   
6. (command"_leader"p0 pause pause"" n "")
   
7.   (princ n)
   
8.   )
   

(defun c:tt()<br /> (setq p0(cadr(entsel)))<br /> (command"-refedit" p0 "n" "o" "a" "n")<br /> (setq n(getvar"REFEDITNAME"))<br /> (command"_refclose" "D")<br /> (command"_leader"p0 pause pause"" n "")<br />   (princ n)<br />   )<br />

使用了参照编辑命令，退出参照编辑那一步卡顿时间很长，求直接获取嵌套块块名的方法

浪子_无限

简单实用啊，嵌套块名提取

灰石Jeremy

可以试试nentsel

wudechao

楼主搞定了吗？我也被这个问题困扰。

cghdy

52幕墙设计 发表于 2014-9-18 18:03
使用了参照编辑命令，退出参照编辑那一步卡顿时间很长，求直接获取嵌套块块名的方法

你这仅能用于一层嵌套，而且进出参照几乎是CAD最卡的操作了。请问现在有没有找到更好的办法。

llsheng_73

1. (defun tt(blkname / blks a b)
   
2.   (if(=(type(setq a(VL-CATCH-ALL-APPLY'vla-item(list(vlax-get-property(vlax-get-property(vlax-get-acad-object)'activedocument)'blocks)blkname))))'VLA-OBJECT)
   
3.     (progn(vlax-for x a(if(=(vlax-get-property x 'ObjectName)"AcDbBlockReference")(setq b(cons(vlax-get-property x'name)b))))
   
4.       (if b(List blkname(mapcar 'tt b))blkname))))

(defun tt(blkname / blks a b)<br />   (if(=(type(setq a(VL-CATCH-ALL-APPLY'vla-item(list(vlax-get-property(vlax-get-property(vlax-get-acad-object)'activedocument)'blocks)blkname))))'VLA-OBJECT)<br />     (progn(vlax-for x a(if(=(vlax-get-property x 'ObjectName)"AcDbBlockReference")(setq b(cons(vlax-get-property x'name)b))))<br />       (if b(List blkname(mapcar 'tt b))blkname))))

;;(TT"B1")
;;("B1" (("E" ("D")) ("B" ("A"))))