请问如何判断一个块是否是带有嵌套的块？

clh521

请问如何判断一个块是否是带有嵌套的块？

llsheng_73

对于块没怎么研究过，不过应该可以通过entnext一个个的看它的0组是不是INSERT直到 seqend结束

ZZXXQQ

2. (defun isblock (en / ss ent)
   
3. (setvar "CMDECHO" 0)
   
4. (command ".UNDO" "BE")
   
5. (if (and (= (type en) 'ENAME)
   
6. (setq ent (entget en))
   
7. (= (cdr(assoc 0 ent) "INSERT"))
   
8. (command ".EXPLODE" en)
   
9. (setq ss (ssget "P" '((0 . "INSERT")))) (progn
   
10. (command ".UNDO" "E")
    
11. (command "_U")
    
12. ))
    
13. (setvar "CMDECHO" 1)
    
14. (and ss (> (sslength ss) 0))
    
15. )

(defun isblock (en / ss ent)<br /> (setvar "CMDECHO" 0)<br /> (command ".UNDO" "BE")<br /> (if (and (= (type en) 'ENAME)<br /> (setq ent (entget en))<br /> (= (cdr(assoc 0 ent) "INSERT"))<br /> (command ".EXPLODE" en)<br /> (setq ss (ssget "P" '((0 . "INSERT")))) (progn<br /> (command ".UNDO" "E")<br /> (command "_U")<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (and ss (> (sslength ss) 0))<br /> )

clh521

ZZXXQQ 发表于 2013-12-15 18:28

谢谢ZZXXQQ ，但我用(ISBLOCK (entsel))试了下好像结果不对，不管是有嵌套的块，还是没嵌套的块，得到的结果都是nil

Gu_xl

1. (defun c:tt (/ e flag name)
   
2.   (if (and
   
3.         (setq e (car (entsel)))
   
4.         (= "INSERT" (cdr (assoc 0 (setq e (entget e)))))
   
5.       )
   
6.     (progn
   
7.       (vlax-for        obj (vla-item
   
8.                       (vla-get-blocks
   
9.                         (vla-get-ActiveDocument (vlax-get-acad-object))
   
10.                       )
    
11.                       (cdr (assoc 2 e))
    
12.                     )
    
13.         (if (or        (= "AcDbBlockReference"
    
14.                    (setq name (vla-get-ObjectName obj))
    
15.                 )
    
16.                 (= "AcDbMInsertBlock" name)
    
17.             )
    
18.           (setq Flag t)
    
19.         )
    
20.       )
    
21.       (if flag
    
22.         (princ "\n嵌套块！")
    
23.         (princ "\n非嵌套块！")
    
24.       )
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

(defun c:tt (/ e flag name)<br />   (if (and<br />         (setq e (car (entsel)))<br />         (= "INSERT" (cdr (assoc 0 (setq e (entget e)))))<br />       )<br />     (progn<br />       (vlax-for        obj (vla-item<br />                       (vla-get-blocks<br />                         (vla-get-ActiveDocument (vlax-get-acad-object))<br />                       )<br />                       (cdr (assoc 2 e))<br />                     )<br />         (if (or        (= "AcDbBlockReference"<br />                    (setq name (vla-get-ObjectName obj))<br />                 )<br />                 (= "AcDbMInsertBlock" name)<br />             )<br />           (setq Flag t)<br />         )<br />       )<br />       (if flag<br />         (princ "\n嵌套块！")<br />         (princ "\n非嵌套块！")<br />       )<br />     )<br />   )<br />   (princ)<br /> )

clh521

Gu_xl 发表于 2013-12-16 09:34

谢谢Gu-xl，试了下结果很给力啊，终于得到解决了！