画完线后回归0层

疯球 · 发表于 2018-10-6 14:39:27

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

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

×

这个文件可以直接在图层里画线型，画好后转为0层，但有个问题是画直线的时候习惯性的用ESC来结束，这样的话就不能转到0层了，请大神帮改一下，谢谢

疯球 · 发表于 2018-10-6 14:40:50

(defun c:L1 ()
(If (= (Tblsearch "layer" "新建") nil)
(command "-layer" "n" "新建" "s" "新建" "")
(command "-layer" "s" "新建" "")
)
(command "CECOLOR" "2") ;;;定义颜色
(setq p1 (getpoint "\n 选择起点："))
(while (setq p2 (getpoint p1 "\n 选择下一点："))(command "line" p1 p2 "")(setq p1 p2))
(command "layer" "s" "0" "")
)

Lisphk · 发表于 2018-10-6 15:43:07

设置错误处理*error*函数，ESC后，进去，设置下图层

kqqt6236 · 发表于 2018-10-7 00:06:39

加个错误函数就可以了。

2013127ll · 发表于 2018-10-7 07:13:18

学习了66666！

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

[求助] 画完线后回归0层

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