子块中的块名到底藏在组码那个位置［highflybir师傅还有点问题］

ZZXXQQ

refedit

highflybir

实际上楼主稍微用一下递归，就可以得到答案了（为什么不去尝试呢？）。再说我前面的帖子已经给出了相似的例子。

3. (defun c:test2 (/ i ent sel obj lst)
4.   (setq *App (vlax-get-acad-object))
5.   (setq *Doc (vla-get-ActiveDocument *APP))
6.   (setq *BLK (vla-get-blocks *DoC))
7.   (setq i 0)
8.   (setq lst nil)
9.   (if (setq sel (ssget '((0 . "INSERT"))))     
10.     (repeat (sslength sel)
11.       (setq ent (ssname sel i))
12.       (setq obj (vlax-ename->vla-object ent))
13.       (getname obj)
14.       (setq i (1+ i))
15.     )
16.     (princ "\n你没有选择物体!")
17.   )
18.   (princ lst)
19.   (princ)
20. )
21. (defun getname (obj / name blks)
22.   (setq name (vla-get-name obj))
23.   (if (not (member name lst))
24.     (setq lst (cons name lst))
25.   )
26.   (setq blks (vla-item *blk name))
27.   (vlax-for n blks
28.     (if (or
29.           (= (vla-get-objectname n) "AcDbBlockReference")
30.           (= (vla-get-objectname n) "AcDbMInsertBlock")
31.         )
32.       (getname n)
33.     )
34.   )
35. )

(defun c:test2 (/ i ent sel obj lst)   (setq *App (vlax-get-acad-object))   (setq *Doc (vla-get-ActiveDocument *APP))   (setq *BLK (vla-get-blocks *DoC))   (setq i 0)   (setq lst nil)   (if (setq sel (ssget '((0 . "INSERT"))))          (repeat (sslength sel)       (setq ent (ssname sel i))       (setq obj (vlax-ename->vla-object ent))       (getname obj)       (setq i (1+ i))     )     (princ "\n你没有选择物体!")   )   (princ lst)   (princ) ) (defun getname (obj / name blks)   (setq name (vla-get-name obj))   (if (not (member name lst))     (setq lst (cons name lst))   )   (setq blks (vla-item *blk name))   (vlax-for n blks     (if (or           (= (vla-get-objectname n) "AcDbBlockReference")           (= (vla-get-objectname n) "AcDbMInsertBlock")         )       (getname n)     )   ) )