真奇怪呀，我的扑捉点老是自动取消

inhoo0

我在用坛子里面很多lsp程序后，扑捉命令全不取消，必须等重新设置一下，如果只用，刚刚设置的就又没有了，求高手们门诊一下呀 谢谢

cabinsummer

其实这些程序的开发者没有完全理解操作者的习惯。
应该定义一个错误处理函数，用以恢复异常中断命令时的环境设置。

1. (defun myerr(msg)
   
2.   (command "undo" "e")
   
3.   (setvar "osmode" os)
   
4.   (setq *error* olderr)
   
5. )

(defun myerr(msg)<br />   (command "undo" "e")<br />   (setvar "osmode" os)<br />   (setq *error* olderr)<br /> )

在主程序里应该有

1. (defun c:mycmd(/ os olderr)
   
2.   (setvar "cmdecho" 0)
   
3.   (command "undo" "be")
   
4.   (setq os (getvar "osmode"))
   
5.   (setq olderr *error*)
   
6.   (setq *error* myerr)
   
7. ;;;用户代码
   
8. ;;;(setvar "osmode" 0)
   
9.   (myerr)
   
10. )

(defun c:mycmd(/ os olderr)<br />   (setvar "cmdecho" 0)<br />   (command "undo" "be")<br />   (setq os (getvar "osmode"))<br />   (setq olderr *error*)<br />   (setq *error* myerr)<br /> ;;;用户代码<br /> ;;;(setvar "osmode" 0)<br />   (myerr)<br /> )

戏男

我也是经常运到这样的情况

inhoo0

求个高手们指点呀

l64631778

插件用多了，有些插件运行过程中会取消你的捕捉，你按esc取消运行这个插件的时候，你的捕捉也就被取消了，建议少用垃圾插件，如什么什么人工具中有许多命令会取消你的捕捉
楼主如果还是要用，建筑写个自用的捕捉，丢失时，恢复一下，如我个人使用
(defun c:y()
(command "osmode" "4847")
(princ "\n 已恢复愿望树自用捕捉变量！")
(princ)
  )

inhoo0

cabinsummer 发表于 2011-9-13 12:56
其实这些程序的开发者没有完全理解操作者的习惯。
应该定义一个错误处理函数，用以恢复异常中断命令时的环 ...

请问  兄台  是把你的代码加在程序里面还是独立  谢谢

cabinsummer

inhoo0 发表于 2011-9-14 22:26
请问  兄台  是把你的代码加在程序里面还是独立  谢谢

你可以贴一个小程序，我给你稍微改一下，并做上注释

inhoo0

2. (defun c:eb()     ;erase box
   
3.     (setvar "cmdecho" 0 )
   
4.     (setvar "osmode"  0 )
   
5.     (setvar "regenmode" 0)
   
6.     (command "layer" "off" "cen" "")
   
7.     (command "layer" "off" "dqx" "")
   
8.     (setq pt1 (getpoint "\n???:"))
   
9.     (setq pt2 (getcorner pt1 "\n???:"))
   
10. (while ( or (not(eq pt1 nil))(not(eq pt2 nil)))
    
11.     (setq s nil)
    
12.     (setq s(ssget "c" pt1 pt2))
    
13.     (while (= s nil)
    
14.            (progn
    
15.               (alert "???????????????!")
    
16.               (setq pt1 (getpoint "\n???:"))
    
17.               (setq pt2 (getcorner pt1 "\n???:"))
    
18.               (setq s(ssget "c" pt1 pt2))
    
19.            )
    
20.     )
    
21.     (if (> (sslength s) 25)
    
22.         (progn
    
23.              (alert "??????????!!!!")
    
24.              (quit)
    
25.          )
    
26.     )
    
27.     ;(princ "\n???????????????,?????:")
    
28.     ;(setq s_w (ssget))
    
29.     ;(if (= s_w nil)
    
30.     ;    (setq s_w (ssadd))
    
31.     ;)
    
32.     (setq max_x(max (car  pt1) (car  pt2))
    
33.           max_y(max (cadr pt1) (cadr pt2))
    
34.           min_x(min (car  pt1) (car  pt2))
    
35.           min_y(min (cadr pt1) (cadr pt2))
    
36.     )
    
37.    
    
38.     (setq sline (ssadd))
    
39.     (setq i0 0)
    
40.     (while (ssname s i0)
    
41.            (if (= (cdr (assoc 0 (entget (ssname s i0)))) "LINE")
    
42.                (ssadd (ssname s i0) sline)
    
43.            )
    
44.            (setq i0 (+ i0 1 ))
    
45.     )
    
46.     (setq int_list (list))
    
47.     (while (ssname sline 0)
    
48.            (setq pta  (cdr (assoc 10 (entget (ssname sline 0)))))
    
49.            (setq ptb  (cdr (assoc 11 (entget (ssname sline 0)))))
    
50.            (ssdel (ssname sline 0) sline)
    
51.            (setq k 0)
    
52.            (while (ssname sline k)
    
53.                   (setq ptk1  (cdr (assoc 10 (entget (ssname sline k)))))
    
54.                   (setq ptk2  (cdr (assoc 11 (entget (ssname sline k)))))
    
55.                   (setq int(inters pta ptb ptk1 ptk2 ))
    
56.                   (if (and ( > (car  int) min_x)
    
57.                            ( < (car  int) max_x)
    
58.                            ( > (cadr int) min_y)
    
59.                            ( < (cadr int) max_y)
    
60.                       )
    
61.                       (setq int_list(cons int int_list))
    
62.                   )
    
63.                   (setq k (+ k 1))
    
64.            )
    
65.      )
    
66. 
    
67.      (setq a        (car int_list))
    
68.      (while a
    
69.            (setq a1(list(+(car a) 0.00000000001)(+(cadr a) 0.00000000001)))
    
70.            (setq a2(list(-(car a) 0.00000000001)(-(cadr a) 0.00000000001)))
    
71.            (setq vl (ssget "c" a1 a2 ))
    
72.            (setq ii 0)
    
73.            (while (ssname vl ii)
    
74.                   ;(if (not(ssmemb(ssname vl ii) s_w))
    
75.                      ; (progn
    
76.                          (setq ent (ssname vl ii))
    
77.                          (command "break" ent a "@")
    
78.                       ;)
    
79.                   ;)
    
80.                   (setq ii (+ ii 1 ))
    
81.            )
    
82.            (setq int_list (cdr int_list))
    
83.            (setq a        (car int_list))
    
84.       )
    
85.            
    
86.       (setq del_line (ssget "w" pt1 pt2))
    
87.       (if del_line
    
88.           (command "erase" del_line "")
    
89.        )
    
90.        (setq pt1 (getpoint "\n???:"))
    
91.        (if (eq pt1 nil)
    
92.           (setq pt2 nil)
    
93.           (setq pt2 (getcorner pt1 "\n???:"))
    
94.        )
    
95. );while
    
96.       (command "layer" "on" "cen" "")
    
97.       (command "layer" "on" "dqx" "")
    
98.       (setvar "regenmode" 0)
    
99.       (SETVAR "OSMODE" 32)
    
100.       (REDRAW)
     
101.       (princ "\n????.????")
     
102.       (princ)
     
103. )

(defun c:eb()     ;erase box<br />     (setvar "cmdecho" 0 )<br />     (setvar "osmode"  0 )<br />     (setvar "regenmode" 0)<br />     (command "layer" "off" "cen" "")<br />     (command "layer" "off" "dqx" "")<br />     (setq pt1 (getpoint "\n???:"))<br />     (setq pt2 (getcorner pt1 "\n???:"))<br /> (while ( or (not(eq pt1 nil))(not(eq pt2 nil)))<br />     (setq s nil)<br />     (setq s(ssget "c" pt1 pt2))<br />     (while (= s nil)<br />            (progn<br />               (alert "???????????????!")<br />               (setq pt1 (getpoint "\n???:"))<br />               (setq pt2 (getcorner pt1 "\n???:"))<br />               (setq s(ssget "c" pt1 pt2))<br />            )<br />     )<br />     (if (> (sslength s) 25)<br />         (progn<br />              (alert "??????????!!!!")<br />              (quit)<br />          )<br />     )<br />     ;(princ "\n???????????????,?????:")<br />     ;(setq s_w (ssget))<br />     ;(if (= s_w nil)<br />     ;    (setq s_w (ssadd))<br />     ;)<br />     (setq max_x(max (car  pt1) (car  pt2)) <br />           max_y(max (cadr pt1) (cadr pt2))<br />           min_x(min (car  pt1) (car  pt2))<br />           min_y(min (cadr pt1) (cadr pt2))<br />     )<br />     <br />     (setq sline (ssadd))<br />     (setq i0 0)<br />     (while (ssname s i0)<br />            (if (= (cdr (assoc 0 (entget (ssname s i0)))) "LINE") <br />                (ssadd (ssname s i0) sline)<br />            )<br />            (setq i0 (+ i0 1 )) <br />     )<br />     (setq int_list (list))<br />     (while (ssname sline 0)<br />            (setq pta  (cdr (assoc 10 (entget (ssname sline 0)))))<br />            (setq ptb  (cdr (assoc 11 (entget (ssname sline 0)))))<br />            (ssdel (ssname sline 0) sline)<br />            (setq k 0)<br />            (while (ssname sline k)<br />                   (setq ptk1  (cdr (assoc 10 (entget (ssname sline k)))))<br />                   (setq ptk2  (cdr (assoc 11 (entget (ssname sline k)))))<br />                   (setq int(inters pta ptb ptk1 ptk2 ))<br />                   (if (and ( > (car  int) min_x)<br />                            ( < (car  int) max_x) <br />                            ( > (cadr int) min_y)<br />                            ( < (cadr int) max_y)<br />                       )<br />                       (setq int_list(cons int int_list))<br />                   )<br />                   (setq k (+ k 1))<br />            )<br />      )<br /> <br />      (setq a        (car int_list))<br />      (while a<br />            (setq a1(list(+(car a) 0.00000000001)(+(cadr a) 0.00000000001)))<br />            (setq a2(list(-(car a) 0.00000000001)(-(cadr a) 0.00000000001)))<br />            (setq vl (ssget "c" a1 a2 ))<br />            (setq ii 0)<br />            (while (ssname vl ii)<br />                   ;(if (not(ssmemb(ssname vl ii) s_w))<br />                      ; (progn<br />                          (setq ent (ssname vl ii))<br />                          (command "break" ent a "@")<br />                       ;)<br />                   ;)<br />                   (setq ii (+ ii 1 ))<br />            )<br />            (setq int_list (cdr int_list))<br />            (setq a        (car int_list))<br />       )<br />            <br />       (setq del_line (ssget "w" pt1 pt2))<br />       (if del_line<br />           (command "erase" del_line "")<br />        )<br />        (setq pt1 (getpoint "\n???:"))<br />        (if (eq pt1 nil)<br />           (setq pt2 nil)<br />           (setq pt2 (getcorner pt1 "\n???:"))<br />        )<br /> );while<br />       (command "layer" "on" "cen" "")<br />       (command "layer" "on" "dqx" "")<br />       (setvar "regenmode" 0)<br />       (SETVAR "OSMODE" 32)<br />       (REDRAW)<br />       (princ "\n????.????")<br />       (princ)<br /> )

坛子里面的  就这个  你看看

inhoo0

cabinsummer 发表于 2011-9-14 22:30
你可以贴一个小程序，我给你稍微改一下，并做上注释

兄台  你帮忙看看

cabinsummer

1. ;;;定义错误处理函数
   
2. (defun myerr(msg)          ;;参数msg必须有
   
3.   (command "undo" "e")     ;;undo定义结束
   
4.   (setvar "osmode" os)     ;;恢复主函数中保存的osmode状态
   
5.   (setvar "regenmode" rg)  ;;恢复主函数中保存的regenmode状态
   
6.   (setq *error* olderr)    ;;恢复系统错误处理函数原始定义
   
7. )
   
8. 
   
9. ;;;定义主函数
   
10. ;;;主函数中要对系统错误处理函数进行重新定义
    
11. (defun c:eb(/ os rg olderr)          ;;加入局部参数os、rg和olderr，以避免多次运行程序时全局参数互相干扰
    
12.     (setvar "cmdecho" 0 )
    
13.     (command "undo" "be")            ;;undo定义开始，"be"与"e"配对使用。可以undo一次到be定义的位置
    
14.     (setq os (getvar "osmode"))      ;;在给osmode参数赋值前先将当前状态保存到局部变量os中
    
15.     (setq rg (getvar "regenmode"))   ;;在给regenmode参数赋值前先将当前状态保存到局部变量rg中
    
16.     (setq olderr *error*)            ;;在重新定义系统错误处理函数*error*先保存*error*的原始定义
    
17.     (setq *error* myerr)             ;;重新定义系统错误处理函数为自己定义的函数myerr
    
18.     (setvar "osmode"  0 )
    
19.     (setvar "regenmode" 0)
    
20.     (command "layer" "off" "cen" "")
    
21.     (command "layer" "off" "dqx" "")
    
22.     (setq pt1 (getpoint "\n???:"))
    
23.     (setq pt2 (getcorner pt1 "\n???:"))
    
24. (while ( or (not(eq pt1 nil))(not(eq pt2 nil)))
    
25.     (setq s nil)
    
26.     (setq s(ssget "c" pt1 pt2))
    
27.     (while (= s nil)
    
28.            (progn
    
29.               (alert "???????????????!")
    
30.               (setq pt1 (getpoint "\n???:"))
    
31.               (setq pt2 (getcorner pt1 "\n???:"))
    
32.               (setq s(ssget "c" pt1 pt2))
    
33.            )
    
34.     )
    
35.     (if (> (sslength s) 25)
    
36.         (progn
    
37.              (alert "??????????!!!!")
    
38.              (quit)
    
39.          )
    
40.     )
    
41.     ;(princ "\n???????????????,?????:")
    
42.     ;(setq s_w (ssget))
    
43.     ;(if (= s_w nil)
    
44.     ;    (setq s_w (ssadd))
    
45.     ;)
    
46.     (setq max_x(max (car  pt1) (car  pt2))
    
47.           max_y(max (cadr pt1) (cadr pt2))
    
48.           min_x(min (car  pt1) (car  pt2))
    
49.           min_y(min (cadr pt1) (cadr pt2))
    
50.     )
    
51.    
    
52.     (setq sline (ssadd))
    
53.     (setq i0 0)
    
54.     (while (ssname s i0)
    
55.            (if (= (cdr (assoc 0 (entget (ssname s i0)))) "LINE")
    
56.                (ssadd (ssname s i0) sline)
    
57.            )
    
58.            (setq i0 (+ i0 1 ))
    
59.     )
    
60.     (setq int_list (list))
    
61.     (while (ssname sline 0)
    
62.            (setq pta  (cdr (assoc 10 (entget (ssname sline 0)))))
    
63.            (setq ptb  (cdr (assoc 11 (entget (ssname sline 0)))))
    
64.            (ssdel (ssname sline 0) sline)
    
65.            (setq k 0)
    
66.            (while (ssname sline k)
    
67.                   (setq ptk1  (cdr (assoc 10 (entget (ssname sline k)))))
    
68.                   (setq ptk2  (cdr (assoc 11 (entget (ssname sline k)))))
    
69.                   (setq int(inters pta ptb ptk1 ptk2 ))
    
70.                   (if (and ( > (car  int) min_x)
    
71.                            ( < (car  int) max_x)
    
72.                            ( > (cadr int) min_y)
    
73.                            ( < (cadr int) max_y)
    
74.                       )
    
75.                       (setq int_list(cons int int_list))
    
76.                   )
    
77.                   (setq k (+ k 1))
    
78.            )
    
79.      )
    
80.      (setq a        (car int_list))
    
81.      (while a
    
82.            (setq a1(list(+(car a) 0.00000000001)(+(cadr a) 0.00000000001)))
    
83.            (setq a2(list(-(car a) 0.00000000001)(-(cadr a) 0.00000000001)))
    
84.            (setq vl (ssget "c" a1 a2 ))
    
85.            (setq ii 0)
    
86.            (while (ssname vl ii)
    
87.                   ;(if (not(ssmemb(ssname vl ii) s_w))
    
88.                      ; (progn
    
89.                          (setq ent (ssname vl ii))
    
90.                          (command "break" ent a "@")
    
91.                       ;)
    
92.                   ;)
    
93.                   (setq ii (+ ii 1 ))
    
94.            )
    
95.            (setq int_list (cdr int_list))
    
96.            (setq a        (car int_list))
    
97.       )
    
98.            
    
99.       (setq del_line (ssget "w" pt1 pt2))
    
100.       (if del_line
     
101.           (command "erase" del_line "")
     
102.        )
     
103.        (setq pt1 (getpoint "\n???:"))
     
104.        (if (eq pt1 nil)
     
105.           (setq pt2 nil)
     
106.           (setq pt2 (getcorner pt1 "\n???:"))
     
107.        )
     
108. );while
     
109.       (command "layer" "on" "cen" "")
     
110.       (command "layer" "on" "dqx" "")
     
111. ;;;      (setvar "regenmode" 0)      此行可以注释掉
     
112. ;;;      (setvar "osmode" 32)        此行可以注释掉
     
113.       (myerr)                        ;;;程序结束前恢复系统原始状态
     
114.       (REDRAW)
     
115.       (princ "\n????.????")
     
116.       (princ)
     
117. )

;;;定义错误处理函数<br /> (defun myerr(msg)          ;;参数msg必须有<br />   (command "undo" "e")     ;;undo定义结束<br />   (setvar "osmode" os)     ;;恢复主函数中保存的osmode状态<br />   (setvar "regenmode" rg)  ;;恢复主函数中保存的regenmode状态<br />   (setq *error* olderr)    ;;恢复系统错误处理函数原始定义<br /> )<br /> <br /> ;;;定义主函数<br /> ;;;主函数中要对系统错误处理函数进行重新定义<br /> (defun c:eb(/ os rg olderr)          ;;加入局部参数os、rg和olderr，以避免多次运行程序时全局参数互相干扰<br />     (setvar "cmdecho" 0 )<br />     (command "undo" "be")            ;;undo定义开始，"be"与"e"配对使用。可以undo一次到be定义的位置<br />     (setq os (getvar "osmode"))      ;;在给osmode参数赋值前先将当前状态保存到局部变量os中<br />     (setq rg (getvar "regenmode"))   ;;在给regenmode参数赋值前先将当前状态保存到局部变量rg中<br />     (setq olderr *error*)            ;;在重新定义系统错误处理函数*error*先保存*error*的原始定义<br />     (setq *error* myerr)             ;;重新定义系统错误处理函数为自己定义的函数myerr<br />     (setvar "osmode"  0 )<br />     (setvar "regenmode" 0)<br />     (command "layer" "off" "cen" "")<br />     (command "layer" "off" "dqx" "")<br />     (setq pt1 (getpoint "\n???:"))<br />     (setq pt2 (getcorner pt1 "\n???:"))<br /> (while ( or (not(eq pt1 nil))(not(eq pt2 nil)))<br />     (setq s nil)<br />     (setq s(ssget "c" pt1 pt2))<br />     (while (= s nil)<br />            (progn<br />               (alert "???????????????!")<br />               (setq pt1 (getpoint "\n???:"))<br />               (setq pt2 (getcorner pt1 "\n???:"))<br />               (setq s(ssget "c" pt1 pt2))<br />            )<br />     )<br />     (if (> (sslength s) 25)<br />         (progn<br />              (alert "??????????!!!!")<br />              (quit)<br />          )<br />     )<br />     ;(princ "\n???????????????,?????:")<br />     ;(setq s_w (ssget))<br />     ;(if (= s_w nil)<br />     ;    (setq s_w (ssadd))<br />     ;)<br />     (setq max_x(max (car  pt1) (car  pt2)) <br />           max_y(max (cadr pt1) (cadr pt2))<br />           min_x(min (car  pt1) (car  pt2))<br />           min_y(min (cadr pt1) (cadr pt2))<br />     )<br />     <br />     (setq sline (ssadd))<br />     (setq i0 0)<br />     (while (ssname s i0)<br />            (if (= (cdr (assoc 0 (entget (ssname s i0)))) "LINE") <br />                (ssadd (ssname s i0) sline)<br />            )<br />            (setq i0 (+ i0 1 )) <br />     )<br />     (setq int_list (list))<br />     (while (ssname sline 0)<br />            (setq pta  (cdr (assoc 10 (entget (ssname sline 0)))))<br />            (setq ptb  (cdr (assoc 11 (entget (ssname sline 0)))))<br />            (ssdel (ssname sline 0) sline)<br />            (setq k 0)<br />            (while (ssname sline k)<br />                   (setq ptk1  (cdr (assoc 10 (entget (ssname sline k)))))<br />                   (setq ptk2  (cdr (assoc 11 (entget (ssname sline k)))))<br />                   (setq int(inters pta ptb ptk1 ptk2 ))<br />                   (if (and ( > (car  int) min_x)<br />                            ( < (car  int) max_x) <br />                            ( > (cadr int) min_y)<br />                            ( < (cadr int) max_y)<br />                       )<br />                       (setq int_list(cons int int_list))<br />                   )<br />                   (setq k (+ k 1))<br />            )<br />      )<br />      (setq a        (car int_list))<br />      (while a<br />            (setq a1(list(+(car a) 0.00000000001)(+(cadr a) 0.00000000001)))<br />            (setq a2(list(-(car a) 0.00000000001)(-(cadr a) 0.00000000001)))<br />            (setq vl (ssget "c" a1 a2 ))<br />            (setq ii 0)<br />            (while (ssname vl ii)<br />                   ;(if (not(ssmemb(ssname vl ii) s_w))<br />                      ; (progn<br />                          (setq ent (ssname vl ii))<br />                          (command "break" ent a "@")<br />                       ;)<br />                   ;)<br />                   (setq ii (+ ii 1 ))<br />            )<br />            (setq int_list (cdr int_list))<br />            (setq a        (car int_list))<br />       )<br />            <br />       (setq del_line (ssget "w" pt1 pt2))<br />       (if del_line<br />           (command "erase" del_line "")<br />        )<br />        (setq pt1 (getpoint "\n???:"))<br />        (if (eq pt1 nil)<br />           (setq pt2 nil)<br />           (setq pt2 (getcorner pt1 "\n???:"))<br />        )<br /> );while<br />       (command "layer" "on" "cen" "")<br />       (command "layer" "on" "dqx" "")<br /> ;;;      (setvar "regenmode" 0)      此行可以注释掉<br /> ;;;      (setvar "osmode" 32)        此行可以注释掉<br />       (myerr)                        ;;;程序结束前恢复系统原始状态<br />       (REDRAW)<br />       (princ "\n????.????")<br />       (princ)<br /> )