samshs 发表于 2009-2-5 13:27:00

(已解决)严重向请教高手(如何返回0层)

本帖最后由 作者 于 2009-2-11 13:26:30 编辑

请教一个问题
如果中途取消按ESC键怎么样才能返回0层啊！多谢
(defun c:zs ()
(prompt "找两点中心线[水平(H)/垂直(V)]\n")
(setvar "CMDECHO" 0)
(SETVAR "OSMODE" 0)
(SETVAR "OSMODE" 512)
(command "_.-LAYER" "m" "辅助线" "c" "190" "辅助线" "")
(command "_.-LAYER" "s" "辅助线" "")
(command "XLINE" pause "mtp" pause pause "")
(command "_.-LAYER" "s" "0" "")
(SETVAR "OSMODE" 671)
(setvar "CMDECHO" 1)
(princ)
)

samshs 发表于 2009-2-5 14:35:00

就是說如果当前不是0层话就把它改成0层!

Andyhon 发表于 2009-2-5 17:10:00

Search with *Error*

hawnn 发表于 2009-2-5 23:05:00

(setvar "clayer" "0")

samshs 发表于 2009-2-6 13:21:00

我的意思是当ZS命令执行中 按ESC键中止ZS命令 怎么样才能返回0层啊！多谢<br/>

ajing_sky 发表于 2009-2-6 15:15:00

<p>定义自己的错误处理函数，具体可参见*error*</p><p></p><p></p><p></p>
页: [1]
查看完整版本: (已解决)严重向请教高手(如何返回0层)