[求助]能否检测嵌套块所于什么图层?

jaminth

比如块A中包含了另外两个块C和D!能否测块C和块D分别所于什么图层?

无痕

找块定义

jaminth

用LISP能检测出来吗？如果块中有上百个嵌套块的话，就显得非常繁锁了！

kerrywm

可以是可以。用循环就好了，也不是很难。

先取得块里有多少个子块，然后逐一用VAL-GET-LAYER就好了。（VLA-GET-LAYER（VLA-ITEM BLKOBJ I））

jaminth

谢谢kerrywm,能否写段LISP代码！？参考一下！

龙龙仔

3. (defun C:TEST (/ EN ENN)
4.   (setq ENN (car (entsel "\n選塊: ")))
5.   (TEST ENN)
6.   (princ)
7. )
8. (defun TEST (ENN / NAME)
9.   (setq NAME (cdr (assoc 2 (entget ENN))))
10.   (setq ENN (cdr (assoc -2 (tblsearch "block" NAME))))
11.   (while ENN
12.     (if (= "INSERT" (cdr (assoc 0 (entget ENN))))
13.       (progn
14. (print (cons (cdr (assoc 2 (entget ENN)))
15.        (cdr (assoc 8 (entget ENN)))
16.         )
17. )
18. (TEST ENN)
19.       )
20.     )
21.     (setq ENN (entnext ENN))
22.   )
23.   (princ)
24. )

(defun C:TEST (/ EN ENN)   (setq ENN (car (entsel "\n選塊: ")))   (TEST ENN)   (princ) ) (defun TEST (ENN / NAME)   (setq NAME (cdr (assoc 2 (entget ENN))))   (setq ENN (cdr (assoc -2 (tblsearch "block" NAME))))   (while ENN     (if (= "INSERT" (cdr (assoc 0 (entget ENN))))       (progn (print (cons (cdr (assoc 2 (entget ENN)))        (cdr (assoc 8 (entget ENN)))         ) ) (TEST ENN)       )     )     (setq ENN (entnext ENN))   )   (princ) )

jaminth

谢谢斑主龙龙仔!