[编程申请]：只删除当前图层图素的lsp程序，

xzk1019 · 发表于 2003-5-5 01:39:07

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

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

×

只删除当前层的图素的lsp程序，其他层的不受影响。建议简写命令为ee.

lsjjm · 发表于 2003-5-5 04:47:33

试试这个
(defun c:ee ()
(vl-cmdf "erase" (ssget "x" '((8 . "currentlayer"))) "")
)

梦断江南 · 发表于 2003-5-5 10:29:03

[SIZE=3]
[FONT=century gothic]
(defun c:ee ()
(vl-cmdf ".erase" (ssget "x" (list (cons 8 (getvar "clayer")))) "")
)
[/FONT] [/SIZE]

XDSoft · 发表于 2003-5-5 14:39:07

最初由 xzk1019 发布
[B]只删除当前层的图素的lsp程序，其他层的不受影响。建议简写命令为ee. [/B]

晓东工具箱里面的“图层工具”，基本上图层相关的都包括了，你可以试下“图层删除”，不仅仅是删除一个层上的所有实体，连“层定义”本身也删除掉。

xzk1019 · 发表于 2003-5-5 21:08:59

请原谅！语言表达有误！只删除当前层的（选择部分）图素的lsp程序，其他层的不受影响。建议简写命令为ee.

eachy · 发表于 2003-5-5 21:44:29

最初由 xzk1019 发布
[B]请原谅！语言表达有误！只删除当前层的（选择部分）图素的lsp程序，其他层的不受影响。建议简写命令为ee. [/B]

去掉其中的 "x" 就是你所要求的了。

xzk1019 · 发表于 2003-5-5 21:52:56

图片:示意图

xzk1019 · 发表于 2003-5-5 22:11:55

怎么感谢？，要不要我请你吃夜宵？
十分感激！！！

随缘人生 · 发表于 2003-5-13 13:40:05

是否该语句仅2002下使用有效，我在14下使用，只返回一个“＊CANCEL＊”
：（
请指教

eachy · 发表于 2003-5-13 14:27:55

最初由随缘人生发布
[B]是否该语句仅2002下使用有效，我在14下使用，只返回一个“＊CANCEL＊”
：（
请指教 [/B]

14下将 vl-cmdf 改为 command

随缘人生 · 发表于 2003-5-13 14:52:43

实在太笨，改为如下之后
(defun c:ee ()
(command ".erase" (ssget "" (list (cons 8 (getvar "clayer")))) "")
)
仍然是把所有选中的图元删除，非所选图元中当前层的删除。
麻烦把适用于14的完整LSP列出，谢谢

XDSoft · 发表于 2003-5-13 15:02:21

最初由随缘人生发布
[B]实在太笨，改为如下之后
(defun c:ee ()
(command ".erase" (ssget "" (list (cons 8 (getvar "clayer")))) "")
)
仍然是把所有选中的图元删除，非所选图元中当前层的删除。
麻烦把适用于14的完整LSP列出，谢?.. [/B]

把X去掉，也包括它的引号了啊

defun c:ee ()
(command ".erase" (ssget (list (cons 8 (getvar "clayer")))) "")
)

随缘人生 · 发表于 2003-5-13 15:14:39

其实在发上一个回复帖子前已经试过连引号去掉，运行后选定了图层返回语句为　XX　WERE　FILTERED　OUT，不执行删除：（
包括直接把晓东老师的回复另存为LSP执行也是同样的结果

随缘人生 · 发表于 2003-5-13 15:31:56

如下图

随缘人生 · 发表于 2003-5-13 15:32:37

结果

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

[编程申请]：只删除当前图层图素的lsp程序，

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

相关帖子

Re: [编程申请]：只删除当前图层图素的lsp程序，

怎么感谢？