选线快速对齐，支持文字-块-线段，捕捉点不能释放，求完善

andyzha

偶得一个快速对齐的程序，有个小bug，使用过程中，有时候不能释放捕捉参数，症状就是把所有捕捉点都清除了，求完善，不胜感激。
多谢hhh454点拨，已经修改完善。

2. (defun c:TT( / )
   
3.   (vl-load-com)
   
4. ;错误恢复捕捉
   
5. (defun *MYERR* (MSG)
   
6. (setvar "CMDECHO" CMD_OLD)
   
7. (setvar "OSMODE" OS_OLD)
   
8. (setq *ERROR* *OLDERR*)
   
9. (if (= MSG "完美退出。谢谢使用。")
   
10. (princ (strcat "\\n>>>" MSG))
    
11. (princ "\\n>>>虽然中途退出了，对象捕捉已经被恢复。")
    
12. )
    
13. (princ)
    
14. )
    
15. (setq *OLDERR* *ERROR*
    
16. *ERROR*  *MYERR*
    
17. OS_OLD   (getvar "OSMODE")
    
18. CMD_OLD  (getvar "CMDECHO")
    
19. )
    
20. ;----开始系统变量备份----
    
21. (setvar "cmdecho" 0);_关闭命令提示
    
22. (command "._undo" "_begin")
    
23. (setq osmode_bak (getvar "osmode"));_记录捕捉
    
24. (setvar "osmode" 0);_关闭捕捉，代码需要用捕捉就删除这行，也可以按照下面的增加捕捉的代码，2选一
    
25. (setq clayer_bak (getvar "clayer"));_记录当前图层
    
26.         (setq ss (ssget))
    
27.         (setq e1  (entsel "\n选择要对齐的边线"))
    
28.         (while (= e1 nil) (setq e1 (entsel "\n选择要对齐的边线")))
    
29.         (setq pt1 (osnap (cadr e1) "mid"))
    
30.         (setq pt2 (osnap (cadr e1) "nea"))
    
31.         (setq e2 (entsel "\n对齐参照线"))
    
32.         (while (= e2 nil) (setq e2 (entsel "\n对齐参照线")))
    
33.         (setq pt3 (osnap (cadr e2) "mid"))
    
34.         (setq pt4 (osnap (cadr e2) "nea"))
    
35.         (command "_.align" ss "" pt1 pt3 pt2 pt4 "" "n")
    
36. (setvar "osmode" osmode_bak);_还原捕捉
    
37. (setvar "clayer" clayer_bak);_还原图层
    
38. (command "._undo" "_end")
    
39. (setvar "cmdecho" 1);_打开命令提示
    
40. (princ);_关闭程序返回值
    
41. );_程序结束
    

(defun c:TT( / )<br />   (vl-load-com)<br /> ;错误恢复捕捉<br /> (defun *MYERR* (MSG)<br /> (setvar "CMDECHO" CMD_OLD)<br /> (setvar "OSMODE" OS_OLD)<br /> (setq *ERROR* *OLDERR*)<br /> (if (= MSG "完美退出。谢谢使用。")<br /> (princ (strcat "\\n>>>" MSG))<br /> (princ "\\n>>>虽然中途退出了，对象捕捉已经被恢复。")<br /> )<br /> (princ)<br /> )<br /> (setq *OLDERR* *ERROR*<br /> *ERROR*  *MYERR*<br /> OS_OLD   (getvar "OSMODE")<br /> CMD_OLD  (getvar "CMDECHO")<br /> )<br /> ;----开始系统变量备份----<br /> (setvar "cmdecho" 0);_关闭命令提示<br /> (command "._undo" "_begin")<br /> (setq osmode_bak (getvar "osmode"));_记录捕捉<br /> (setvar "osmode" 0);_关闭捕捉，代码需要用捕捉就删除这行，也可以按照下面的增加捕捉的代码，2选一<br /> (setq clayer_bak (getvar "clayer"));_记录当前图层<br />         (setq ss (ssget))<br />         (setq e1  (entsel "\n选择要对齐的边线"))<br />         (while (= e1 nil) (setq e1 (entsel "\n选择要对齐的边线")))<br />         (setq pt1 (osnap (cadr e1) "mid"))<br />         (setq pt2 (osnap (cadr e1) "nea"))<br />         (setq e2 (entsel "\n对齐参照线"))<br />         (while (= e2 nil) (setq e2 (entsel "\n对齐参照线")))<br />         (setq pt3 (osnap (cadr e2) "mid"))<br />         (setq pt4 (osnap (cadr e2) "nea"))<br />         (command "_.align" ss "" pt1 pt3 pt2 pt4 "" "n")<br /> (setvar "osmode" osmode_bak);_还原捕捉<br /> (setvar "clayer" clayer_bak);_还原图层<br /> (command "._undo" "_end")<br /> (setvar "cmdecho" 1);_打开命令提示<br /> (princ);_关闭程序返回值<br /> );_程序结束<br />

hhh454

备份捕捉，出错后，恢复捕捉
lisp的开头和结尾写法分享-带错误恢复捕捉 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz!  http://bbs.mjtd.com/thread-182000-1-1.html

andyzha

hhh454 发表于 2022-8-18 11:09
备份捕捉，出错后，恢复捕捉
lisp的开头和结尾写法分享-带错误恢复捕捉 - AutoLISP/Visual LISP 编程技术  ...

多谢，修改过来了，测试完美。