飞版，怎么炸开一个嵌套块中的所有块？

cag · 发表于 2004-4-29 10:15:00

飞版，怎么炸开一个嵌套块中的所有块？听说你以前有编过一个，能否贴上来？ (defun explodeblock ()
(setq exent (SSGET "P"))
(setq u 0)
(repeat (sslength exent)
(setq eent (ssname exent u))
(setq exentname (cdr (assoc 0 (entget eent))))
(if (= "INSERT" exentname)
(progn
(command "EXPLODE" eent)
(setq blockcount (1+ blockcount))
(explodeblock)
)
)
(setq u (1+ u))
)
) 这样子为什么不行？

无痕 · 发表于 2004-4-29 14:05:00

try

meflying · 发表于 2004-4-29 20:05:00

http://www.mjtd.com/bbs/dispbbs.asp?BoardID=3&replyID=62599&id=13604&skin=0

cag · 发表于 2004-5-2 07:41:00

如果把一个嵌套块完全炸开后，怎么样撤消一次就能返回原来的图块？

cag · 发表于 2004-5-2 08:00:00

(defun explodex (ents / ss i)
(command "_.explode" ents)
(setq ss (ssget "P"))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(if (= "INSERT" (cdr (assoc 0 (entget ent))))
(explodex ent)
)
(setq i (1+ i))
)
)
(defun c:xx ()
(setq ss (ssget))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(if (= "INSERT" (cdr (assoc 0 (entget ent))))
(explodex ent)
)
(setq i (1+ i))
)
) 这样为何出错？？？

龙龙仔 · 发表于 2004-5-3 08:04:00

注意:變數要設定好嗎?

cag · 发表于 2004-5-3 08:07:00

注意:變數要設定好嗎?

何意？

龙龙仔 · 发表于 2004-5-3 09:17:00

defun c:xx () ←變數??

cag · 发表于 2004-5-3 10:46:00

好的，搞定了。

如果把一个嵌套块完全炸开后，怎么样撤消一次就能返回原来的图块？

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

飞版，怎么炸开一个嵌套块中的所有块？

本帖子中包含更多资源