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

samshs

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

请教一个问题 如果中途取消按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

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

Andyhon

Search with *Error*

hawnn

(setvar "clayer" "0")

samshs

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

ajing_sky

定义自己的错误处理函数，具体可参见*error*