newbuser 发表于 2012-7-25 21:44:26

急求炸开图块

本帖最后由 【KAIXIN】 于 2012-7-26 11:42 编辑

俺这有副图，整个块都无法炸开操作，很头疼，求炸开程序。

1993063 发表于 2012-7-25 22:08:49

你这哪里有是急求?是急要币吧

5c13201168 发表于 2012-7-26 00:43:53

我却把它用来睡觉

newbuser 发表于 2012-7-26 10:46:23

操作失误，其实我想奖励给回答者的。不过现在解决掉了。

仲文玉 发表于 2012-7-26 14:59:15

把图发上来，大家会帮你解决的

【KAIXIN】 发表于 2012-7-26 16:35:39

先试试：(defun c:XX ()
   (princ "\n炸开嵌套块")
   (setvar "qaflags" 1)
   (setq ss (ssget '((0 . "INSERT"))))
   (while (setq ss (ssget "P" '((0 . "INSERT"))))
       (command ".explode" ss "")
   )(princ)
)

页: [1]
查看完整版本: 急求炸开图块