怎样获取图块的所有层

54256

别人做的图块很不规范，不是在0层做的块，经常是a层做的块，却在b层插入，甚至多重嵌套的情况。
层隔离老是没法成功，有什么办法能够获得一个图块所包含的所有图层，包括插入的图层，图块内各单体的图层
谢谢

LPACMQ

发测试文件

54256

比如这个块
在“1”层插入，其实内含3个图层：“dq1”，“dq3”，“dqt”，用层隔离，隔离出“1”层来，却什么也显示不出来

masterlong

搜一下非选择集图层关闭

鱼与熊掌

最近有人一直要获取块内所有图层的函数..
我拿出来卖了  疯狂敛财..
http://bbs.mjtd.com/thread-113789-1-1.html
  如帖子  刚写的 新鲜的.

lucas_3333

1. ;;; BLOCK_LAYERS
   
2. (defun c:block_layers ( / myblock tlist ename llist ctr)
   
3. (while (setq myblock (car (entsel "\n选择块: ")))
   
4.         (if (= (cdr (assoc 0 (entget myblock))) "INSERT")
   
5.          (progn
   
6. (setq tlist (tblsearch "BLOCK" (cdr (assoc 2 (entget myblock))))
   
7.          ename (cdr (assoc -2 tlist))
   
8. )
   
9. (while ename
   
10. (if llist
    
11.          (setq llist
    
12.          (append (list (cdr (assoc 8 (entget ename)))) llist)
    
13.          )
    
14.          (setq llist (list (cdr (assoc 8 (entget ename)))))
    
15. )
    
16. (setq ename (entnext ename))
    
17. )
    
18. (setq ctr 0)
    
19. (princ(strcat "\nBlock " (cdr (assoc 2 (entget myblock)))))
    
20. (repeat(length llist)
    
21. (princ(strcat "\n" (nth ctr llist)))
    
22. (setq ctr(1+ ctr))
    
23. )
    
24. 
    
25.          )
    
26.          (if myblock
    
27. (princ "\n对象不是块. ")
    
28.          )
    
29.         )
    
30. 
    
31. )
    
32. (princ)
    
33. )

;;; BLOCK_LAYERS<br /> (defun c:block_layers ( / myblock tlist ename llist ctr)<br /> (while (setq myblock (car (entsel "\n选择块: ")))<br />         (if (= (cdr (assoc 0 (entget myblock))) "INSERT")<br />          (progn<br /> (setq tlist (tblsearch "BLOCK" (cdr (assoc 2 (entget myblock))))<br />          ename (cdr (assoc -2 tlist))<br /> )<br /> (while ename<br /> (if llist<br />          (setq llist<br />          (append (list (cdr (assoc 8 (entget ename)))) llist)<br />          )<br />          (setq llist (list (cdr (assoc 8 (entget ename)))))<br /> )<br /> (setq ename (entnext ename))<br /> )<br /> (setq ctr 0)<br /> (princ(strcat "\nBlock " (cdr (assoc 2 (entget myblock)))))<br /> (repeat(length llist)<br /> (princ(strcat "\n" (nth ctr llist)))<br /> (setq ctr(1+ ctr))<br /> )<br /> <br />          )<br />          (if myblock<br /> (princ "\n对象不是块. ")<br />          )<br />         )<br /> <br /> )<br /> (princ)<br /> )

lucas_3333

再来一个：
(defun C:GetLayersInBlocks
(/ lstAll lstLayers objBlockReference objItem)
(vlax-for objBlockReference (vla-get-blocks
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(setq lstLayers nil)
(if (/= (substr (vla-get-name objBlockReference) 1 1) "*")
(progn
(vlax-for objItem objBlockReference
(if (not (member (vla-get-layer objItem) lstLayers))
(setq lstLayers (cons (vla-get-layer objItem) lstLayers))
)
)
(if lstLayers
(setq lstAll (cons (cons (vla-get-name objBlockReference)
(acad_strlSort lstLayers)
)
lstAll
)
)
)
)
)
)
(if lstAll
(foreach lstSublist
(vl-sort lstAll '(lambda (X Y) (< (car X) (car Y))))
(print lstSubList)
)
)
(princ)
)

命令: GetLayersInBlocks
("图块1" "0")
("图块2" "图层1" "图层2")
("图块3" "0")
("图块4" "0" "图层3")

Rimford

lucas你又出来奉献了

sibelle_hu

看看源码

tranney

我仔细看看