怎样模拟参照编辑对话框提取被嵌套块关系的操作

gaozr

假定有一组嵌套的块。
块A含有块B，块B含有一些实体，假设B中只含有一个直线
在ACAD中插入块A，当然也会显示块B内的哪些实体，
如果让用户点选中图面上的实体，如点选那个直线时，实际上返回的是块A的一个块引用的ads name或ID等参数
我如何能获得直接含有这个直线的块的信息，也就是块B的id。

类似与参照编辑中的效果

liyamg

2. (defun c:tt ( / NestBlkName )
   
3.   (setq NestBlkName (vla-get-name (vlax-ename->vla-object(car (nth 3 (nentsel "\n选择嵌套块" ))))))
   
4.   )

(defun c:tt ( / NestBlkName )<br />   (setq NestBlkName (vla-get-name (vlax-ename->vla-object(car (nth 3 (nentsel "\n选择嵌套块" ))))))<br />   )

关键在于 nentsel