[求助]：炸开多重嵌套块的循环结构？

nuance · 发表于 2004-6-15 15:45:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

用lisp语句怎样写？
块内的块也得炸开．

zhanzujie · 发表于 2004-6-17 01:04:36

(vl-cmdf "xplode" (ssget "X" '((0 . "BLOCK"))))

JOSDENNIS · 发表于 2004-6-17 20:56:21

轉貼代碼.  樓主你可以參考這個
(defun c:xex ()
  (princ "\n炸開嵌套塊.--------------by 無痕.2004.4")
  (setvar "qaflags" 1)
  (setq ss (ssget '((0 . "INSERT"))))
  (while (setq ss (ssget "P" '((0 . "INSERT"))))
(command ".explode" ss "")
  )(princ)
)

To 樓上的大俠, 你的炸開塊代碼有點美中不足改一下
(vl-cmdf "explode" (ssget "X" '((0 . "INSERT"))))

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

[求助] [求助]：炸开多重嵌套块的循环结构？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块