请教一个不完全彻底打碎块的问题

dinosaurhxe

我想将选择的多层嵌套块不完全彻底打碎，即不打碎名为表中(list "DZ""DZZR""DZSX""DZZRSX")的块。代码如下，但运行过程中总是没有打碎到最后一层就停止了，请高手们分析一下原因，给点改进意见，谢谢！

2. (defun c:defa (/ LST LSTX SS X)
3.  (setq ss   (ssget '((0 . "INSERT")))
4.        lst  nil
5.        lstx (list "DZ""DZZR""DZSX""DZZRSX");不打碎的块名列表
6.  ) ;_ End setq
7.  (mapcar '(lambda (x) (setq lst (append lst (list (cons 2 x))))) lstx)
8.  (while    (setq ss (ssget    "_P"
9. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (append&#160;&#160;&#160; (list (cons -4 "<and")
10. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons 0 "INSERT")
11. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "<not")
12. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "<or")
13. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End list
14. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; lst
15. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (list (cons -4 "or>")
16. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "not>")
17. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "and>")
18. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End list
19. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End append
20. &#160;&#160;&#160; &#160;&#160;&#160; &#160;) ;_ End ssget
21. &#160;&#160;&#160; ) ;_ End setq
22. &#160; (brkblk ss)
23. &#160;) ;_ End while
24. ) ;_ End defun
26. (defun brkblk (ss / BNAME DD ENT ENT1 LST N NAME NEWTXT TCA ssa)
27. &#160;(REPEAT (SETQ N (SSLENGTH SS))
28. &#160; (SETQ ENT1 (SETQ ENT (ENTGET (SSNAME SS (SETQ N (1- N))))))
29. &#160; (if (= (get 66 ent1) 1)
30. &#160;&#160; (WHILE (/= (GET 0 (SETQ ENT1 (ENTGET (SETQ NAME (ENTNEXT (GET -1 ENT1)))))) "SEQEND")
31. &#160;&#160;&#160; (IF&#160;&#160;&#160; (AND (= (GET 0 ENT1) "ATTRIB") (= (GET 70 ENT1) 1))
32. &#160;&#160;&#160;&#160; (SSSET ENT1 1 "")
33. &#160;&#160;&#160; ) ;_ End IF
34. &#160;&#160; ) ;_ End WHILE
35. &#160; ) ;_ End if
36. &#160;) ;_ End REPEAT
37. &#160;(repeat (setq n (sslength ss))
38. &#160; (setq ent1 (entget (setq bname (ssname ss (setq n (1- n))))))
39. &#160; (setvar "clayer" (get 8 ent1))
40. &#160; (if (= (get 66 ent1) 1)
41. &#160;&#160; (while (/= (get 0 (setq ent1 (entget (setq name (entnext (get -1 ent1)))))) "SEQEND")
42. &#160;&#160;&#160; (if&#160;&#160;&#160; (= (get 0 ent1) "ATTRIB")
43. &#160;&#160;&#160;&#160; (progn
44. &#160;&#160;&#160;&#160;&#160; (setq newtxt '((0 . "TEXT")))
45. &#160;&#160;&#160;&#160;&#160; (setq lst '(67 410 10 40 1 50 41 51 7 71 72 11 210))
46. &#160;&#160;&#160;&#160;&#160; (foreach xh lst ;序号
47. &#160;&#160;&#160;&#160;&#160;&#160; (setq dd (assoc xh ent1)) ;点对
48. &#160;&#160;&#160;&#160;&#160;&#160; (if (/= dd nil)
49. &#160;&#160;&#160; (setq newtxt (append newtxt (list (assoc xh ent1))))
50. &#160;&#160;&#160;&#160;&#160;&#160; ) ;_ 结束if
51. &#160;&#160;&#160;&#160;&#160; ) ;_ 结束foreach
52. &#160;&#160;&#160;&#160;&#160; (if (and (setq tca (get 8 ent1)) (/= tca "0"))
53. &#160;&#160;&#160;&#160;&#160;&#160; (setq newtxt (append newtxt (list (cons 8 tca))))
54. &#160;&#160;&#160;&#160;&#160; ) ;_ End if
55. &#160;&#160;&#160;&#160;&#160; (setq newtxt (append newtxt (list (cons 73 (get 74 ent1)))))
56. &#160;&#160;&#160;&#160;&#160; (entmake newtxt)
57. &#160;&#160;&#160;&#160;&#160; (vla-delete (vlax-ename->vla-object name))
58. &#160;&#160;&#160;&#160; ) ;_ 结束progn
59. &#160;&#160;&#160; ) ;_ 结束if
60. &#160;&#160; ) ;_ 结束while
61. &#160; ) ;_ End if
62. &#160; (command "explode" bname)
63. &#160; (if (setq ssa (ssget "_P" '((0 . "ATTDEF"))))
64. &#160;&#160; (command ".erase" ssa "")
65. &#160; )
66. &#160;) ;_ 结束repeat
67. ) ;_ End defun
68. (defun get (nnum eent /)
69. &#160; (cdr (assoc nnum eent))
70. )

(defun c:defa (/ LST LSTX SS X) &#160;(setq ss&#160;&#160; (ssget '((0 . "INSERT"))) &#160;&#160;&#160;&#160;&#160;&#160; lst&#160; nil &#160;&#160;&#160;&#160;&#160;&#160; lstx (list "DZ""DZZR""DZSX""DZZRSX");不打碎的块名列表 &#160;) ;_ End setq &#160;(mapcar '(lambda (x) (setq lst (append lst (list (cons 2 x))))) lstx) &#160;(while&#160;&#160;&#160; (setq ss (ssget&#160;&#160;&#160; "_P" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (append&#160;&#160;&#160; (list (cons -4 "<and") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons 0 "INSERT") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "<not") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "<or") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End list &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; lst &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (list (cons -4 "or>") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "not>") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "and>") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End list &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End append &#160;&#160;&#160; &#160;&#160;&#160; &#160;) ;_ End ssget &#160;&#160;&#160; ) ;_ End setq &#160; (brkblk ss) &#160;) ;_ End while ) ;_ End defun (defun brkblk (ss / BNAME DD ENT ENT1 LST N NAME NEWTXT TCA ssa) &#160;(REPEAT (SETQ N (SSLENGTH SS)) &#160; (SETQ ENT1 (SETQ ENT (ENTGET (SSNAME SS (SETQ N (1- N)))))) &#160; (if (= (get 66 ent1) 1) &#160;&#160; (WHILE (/= (GET 0 (SETQ ENT1 (ENTGET (SETQ NAME (ENTNEXT (GET -1 ENT1)))))) "SEQEND") &#160;&#160;&#160; (IF&#160;&#160;&#160; (AND (= (GET 0 ENT1) "ATTRIB") (= (GET 70 ENT1) 1)) &#160;&#160;&#160;&#160; (SSSET ENT1 1 "") &#160;&#160;&#160; ) ;_ End IF &#160;&#160; ) ;_ End WHILE &#160; ) ;_ End if &#160;) ;_ End REPEAT &#160;(repeat (setq n (sslength ss)) &#160; (setq ent1 (entget (setq bname (ssname ss (setq n (1- n)))))) &#160; (setvar "clayer" (get 8 ent1)) &#160; (if (= (get 66 ent1) 1) &#160;&#160; (while (/= (get 0 (setq ent1 (entget (setq name (entnext (get -1 ent1)))))) "SEQEND") &#160;&#160;&#160; (if&#160;&#160;&#160; (= (get 0 ent1) "ATTRIB") &#160;&#160;&#160;&#160; (progn &#160;&#160;&#160;&#160;&#160; (setq newtxt '((0 . "TEXT"))) &#160;&#160;&#160;&#160;&#160; (setq lst '(67 410 10 40 1 50 41 51 7 71 72 11 210)) &#160;&#160;&#160;&#160;&#160; (foreach xh lst ;序号 &#160;&#160;&#160;&#160;&#160;&#160; (setq dd (assoc xh ent1)) ;点对 &#160;&#160;&#160;&#160;&#160;&#160; (if (/= dd nil) &#160;&#160;&#160; (setq newtxt (append newtxt (list (assoc xh ent1)))) &#160;&#160;&#160;&#160;&#160;&#160; ) ;_ 结束if &#160;&#160;&#160;&#160;&#160; ) ;_ 结束foreach &#160;&#160;&#160;&#160;&#160; (if (and (setq tca (get 8 ent1)) (/= tca "0")) &#160;&#160;&#160;&#160;&#160;&#160; (setq newtxt (append newtxt (list (cons 8 tca)))) &#160;&#160;&#160;&#160;&#160; ) ;_ End if &#160;&#160;&#160;&#160;&#160; (setq newtxt (append newtxt (list (cons 73 (get 74 ent1))))) &#160;&#160;&#160;&#160;&#160; (entmake newtxt) &#160;&#160;&#160;&#160;&#160; (vla-delete (vlax-ename->vla-object name)) &#160;&#160;&#160;&#160; ) ;_ 结束progn &#160;&#160;&#160; ) ;_ 结束if &#160;&#160; ) ;_ 结束while &#160; ) ;_ End if &#160; (command "explode" bname) &#160; (if (setq ssa (ssget "_P" '((0 . "ATTDEF")))) &#160;&#160; (command ".erase" ssa "") &#160; ) &#160;) ;_ 结束repeat ) ;_ End defun (defun get (nnum eent /) &#160; (cdr (assoc nnum eent)) )

3. ;呵呵，这一段是最近刚看到的-4才这么写的，不知道是不是太啰嗦了。
4. (setq ss (ssget&#160;&#160;&#160; "_P"
5. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (append&#160;&#160;&#160; (list (cons -4 "<and")
6. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons 0 "INSERT")
7. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "<not")
8. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "<or")
9. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End list
10. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; lst
11. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (list (cons -4 "or>")
12. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "not>")
13. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "and>")
14. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End list
15. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End append
16. &#160;&#160;&#160; &#160;&#160;&#160; &#160;) ;_ End ssget
17. &#160;&#160;&#160; )

;呵呵，这一段是最近刚看到的-4才这么写的，不知道是不是太啰嗦了。 (setq ss (ssget&#160;&#160;&#160; "_P" &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (append&#160;&#160;&#160; (list (cons -4 "<and") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons 0 "INSERT") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "<not") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "<or") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End list &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; lst &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (list (cons -4 "or>") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "not>") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; (cons -4 "and>") &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End list &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ) ;_ End append &#160;&#160;&#160; &#160;&#160;&#160; &#160;) ;_ End ssget &#160;&#160;&#160; )