[编程申请]：删除特定实体

lengliqun · 发表于 2008-7-8 18:05:55

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

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

×

求一lsp程序，同时将图层名为“25000”上的所有实体及图层名为“21000”上的含有“)”的字符串全部自动删除。谢谢。

zxq0220 · 发表于 2008-7-8 21:25:37

[php]
;删除特定实体晓东 zxq0220 2008.7.8 距2008年奥运会开幕31天
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget "X" '((8 . "25000"))))
(command ".erase" ss "")
)
(if (setq ss (ssget "X" '((0 . "TEXT") (8 . "21000") (1 . "*)*")))
(command ".erase" ss "")
)
(setvar "CMDECHO" 1)
(princ)
)
[/php]

lengliqun · 发表于 2008-7-9 09:12:28

CAD2004测试，提示为未知命令。
上传供测试的DWG图。

zxq0220 · 发表于 2008-7-9 20:49:53

少了个括弧。

(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget "X" '((8 . "25000"))))
(command ".erase" ss "")
)
(if (setq ss (ssget "X" '((0 . "TEXT") (8 . "21000") (1 . "*)*"))))
(command ".erase" ss "")
)
(setvar "CMDECHO" 1)
(princ)
)

lengliqun · 发表于 2008-7-10 10:07:37

CAD2004测试可用，谢谢。

wfs1980 · 发表于 2008-7-15 17:05:19

dddddddddddddddddddddddd

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

[编程申请]：删除特定实体

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

相关帖子