[LISP函数]：一个关于嵌套块的选择择集问题

xdto · 发表于 2008-12-26 17:45:21

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

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

×

以下是一个炸开嵌套块的代码：
(DEFUN c:xx (/ fil ss)
(setq fil '((0 . "INSERT")))
(setvar "qaflags" 1);;
(command ".explode" (ssget fil) "")
(while (setq ss (ssget "p" fil))
(command ".explode" SS "")
)(PRINC)
)

如何才能得到炸开后所有元素的选择集??

taner · 发表于 2008-12-27 07:44:07

http://www.xdcad.net/forum/showthread.php?s=&threadid=202781

XDSoft · 发表于 2008-12-27 09:47:12

最初由 xdto 发布
[B]以下是一个炸开嵌套块的代码：
(DEFUN c:xx (/ fil ss)
(setq fil '((0 . "INSERT")))
(setvar "qaflags" 1);;
(command ".explode" (ssget fil) "")
(while (setq ss (ssget "p" fil))
(command ".explod... [/B]

1、炸开前，用一样代码：

(setq elast (entlast))

得到当前数据库最后一个实体。

2、

执行你炸开的操作

复制代码

3、使用循环，把elast后新生成的实体加入到选择集中.

xdto · 发表于 2009-1-6 15:15:43

我试了好多次都失败。

谁能给我具体的代码？？

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

[LISP函数]：一个关于嵌套块的选择择集问题

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

相关帖子

Re: [LISP函数]：一个关于嵌套块的选择择集问题