关于在块内ssget选择对象的问题

剑起鹭岛 · 发表于 2014-2-23 20:31:50

本帖最后由剑起鹭岛于 2014-2-23 20:36 编辑

我想写个lisp，把一块内的所有块炸开，但利用._bedit进入块编辑器后，用ssget的X模式无法成功。求解！
多谢了

代码
(defun c:bep (/ e1 e1list blockname GOP)
  (setq e1 (entsel "\nSelect block : "))
  (setq e1list (entget (car e1)))
  (while (/= (cdr (assoc 0 e1list)) "INSERT")
(setq e1 (entsel "\n未选到块 Select block : "))
(setq e1list (entget (car e1)))
  )

  (setq blockname (cdr (assoc '2 (entget (car e1)))))
  (Command "._bedit" blockname "")

  (while (SETQ GOP (SSGET "x" '((0 . "INSERT")))) ;此处不能正确选出块
(command "._explode" "all" "")
  )
)

ll_j · 发表于 2014-2-24 09:30:01

论坛好像有块一炸到底的程序，应该不是打开块用ssget，一般是使用遍历。

自贡黄明儒 · 发表于 2014-2-24 11:59:42

本帖最后由自贡黄明儒于 2014-2-24 12:00 编辑

1 我曾改造过ET的burstone,使用至今，基本上都可以解决http://bbs.mjtd.com/thread-93046-1-1.html
2 G版的超级炸弹,可炸多重块

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

[提问] 关于在块内ssget选择对象的问题

相关帖子