bai2000 发表于 2014-11-2 18:46:47

江湖救急：怎么把多次插入的块一起打散？

http://bbs.mjtd.com/thread-111309-2-1.html 中一次插入多个参照块，怎么可以一次打散？(command "_EXPLODE" (entlast))只能打算最好一个参照块

自贡黄明儒 发表于 2014-11-2 19:31:01

有一个变量控制，可以一次全炸开

bai2000 发表于 2014-11-2 19:48:12

请黄大改改啊。先谢了

1993063 发表于 2014-11-2 21:51:47

(Setvar 'Qaflags 1)

bai2000 发表于 2014-11-3 00:04:34

还不行的，

hnfsf 发表于 2014-11-3 00:23:55

(command "_EXPLODE" (entlast))
(while (setq ss (ssget "_p" '((0 . "INSERT"))))
       (command "_EXPLODE" ss))

bai2000 发表于 2014-11-3 10:19:30

(defun C:aa (/ pt1 pt2)
   (command "INSERT" "HG1" '(0 0 0) 1 1 0)
    (command "erase" (entlast) "")
(setq pt1 (getpoint "\n指定第一点:"))
(entmake (list '(0 . "INSERT") (cons 2 "hg1") (cons 10 pt1)))
(while (setq pt2 (getpoint pt1 "\n指定下一点:"))
    (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
    (entmake (list '(0 . "INSERT") (cons 2 "hg1") (cons 10 pt2)))
    (setq pt1 pt2)
)
(command "_EXPLODE" (entlast))
(while (setq ss (ssget "_p" '((0 . "INSERT"))))
         (command "_EXPLODE" ss))
(princ)
)



还是只能打散最后一个参照块

恕放之生命 发表于 2014-11-3 11:03:11

(setq ss (ssget "x" '((0 . "INSERT") (2 . "name"))))

这个试试，"name"为块名
页: [1]
查看完整版本: 江湖救急：怎么把多次插入的块一起打散？