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

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

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:qahohwrmhpk.rar
下载次数:0 文件大小:650 Bytes 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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))
   )
)
这样为何出错？？？