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

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

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

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

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

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

请黄大改改啊。先谢了

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

(Setvar 'Qaflags 1)

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

还不行的，

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

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

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

(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

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

这个试试，"name"为块名

账号		自动登录	找回密码
密码			注册

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

相关帖子