分享一个关闭图层的lsp命令

biscxz · 发表于 2013-9-4 00:12:20

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

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

×

;;;
(defun c:of()
   (princ " 关闭部分图层,请选择：")
   (while (= 1 1)
   (setq ent (car (entsel)))
   (setq e (entget ent))
   (setq lay (cdr (assoc 8 e)))
   (setq cla (getvar "clayer"))
   (if (= lay cla)
   (command "layer" "of" lay "y" "")
   (command "layer" "of" lay  "")))
   (ENDTEXT)
)

zxq0220 · 发表于 2013-9-4 07:30:39

死循环,要强行退出

biscxz · 发表于 2013-9-4 09:19:08

zxq0220 发表于 2013-9-4 07:30
死循环,要强行退出

没有啊，我一直都用的好好的，输入快捷命令后，直接在图层上面，想隐藏哪个图层直接点，

ysq101 · 发表于 2013-9-4 10:46:45

biscxz 发表于 2013-9-4 09:19
没有啊，我一直都用的好好的，输入快捷命令后，直接在图层上面，想隐藏哪个图层直接点，

一看就是新手写的程序，
跟我写的新式不多

biscxz · 发表于 2013-9-4 12:20:54

ysq101 发表于 2013-9-4 10:46
一看就是新手写的程序，
跟我写的新式不多

世上没有任何人天生就是老手

Free-Lancer · 发表于 2013-9-4 13:18:42

本帖最后由 Free-Lancer 于 2013-9-4 13:20 编辑

一般用 ET 工具, 高版本收集到格式->图层工具了

(defun c:lff (/ e)
(while (setq e (nentsel "\nPick Entity to off: "))
(xdrx_undostart)
(xdrx_layer_setisoff
(cadr (assoc "Layer" (xdrx_entity_getproperty (car e))))
t
)
(xdrx_undoend)
)
(princ)
)

ysq101 · 发表于 2013-9-4 17:52:34

biscxz 发表于 2013-9-4 12:20
世上没有任何人天生就是老手

没有笑话你的意思。。同为新手共勉

biscxz · 发表于 2013-9-4 18:08:11

ysq101 发表于 2013-9-4 17:52
没有笑话你的意思。。同为新手共勉

{:soso_e181:}一起努力

newer · 发表于 2013-9-4 18:13:47

(while (= 1 1)

有这个语句，肯定是一直循环的。应该添加个判断退出循环的条件，比如回车或者没选到实体。

吴外安放 · 发表于 2020-7-26 18:55:43

谢谢版主分享

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

[每日一码] 分享一个关闭图层的lsp命令

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

相关帖子

点评

点评

点评

点评

点评