求助大神，亮显后按esc中断程序，取消亮显问题

xk2005

  下面是我的代码。选择直线后，使用redraw来亮显。如果执行过程中，按下ESC键中断程序，亮显并不能取消。能用怎样的方法在中断后取消亮显呢？



  ;; 检查是否已有预先选择的对象
  (setq sset (ssget "I"))
  (if (and sset (= (sslength sset) 2))
    (progn
      (setq line1 (ssname sset 0))
      (setq line2 (ssname sset 1))
      (print "使用预先选择的线")
    )
    (progn
      ;; 提示用户选择两条线
      (setq line1 (car (entsel "\n请选择第一条线: ")))
      (redraw line1 3)
      (setq line2 (car (entsel "\n请选择第二条线: ")))
      (redraw line2 3)
    )
  )

自贡黄明儒

用*error*处理

你有种再说一遍

看错误处理http://bbs.mjtd.com/forum.php?mo ... D%CE%F3%B4%A6%C0%ED

qazxswk

2. (defun c:11 (/ *error* sset line1 line2)
   
3. (defun *error*(msg)
   
4. (if line1 (redraw line1 4)) ;取消亮显
   
5. (if line2 (redraw line2 4)) ;取消亮显
   
6. )
   
7. (setq sset (ssget "I"))
   
8.   (if (and sset (= (sslength sset) 2))
   
9.     (progn
   
10.       (setq line1 (ssname sset 0))
    
11.       (setq line2 (ssname sset 1))
    
12.       (print "使用预先选择的线")
    
13.     )
    
14.     (progn
    
15.       ;; 提示用户选择两条线
    
16.       (setq line1 (car (entsel "\n请选择第一条线: ")))
    
17.       (redraw line1 3)
    
18.       (setq line2 (car (entsel "\n请选择第二条线: ")))
    
19.       (redraw line2 3)
    
20.     )
    
21.   )
    
22. (princ))

(defun c:11 (/ *error* sset line1 line2)<br /> (defun *error*(msg)<br /> (if line1 (redraw line1 4)) ;取消亮显<br /> (if line2 (redraw line2 4)) ;取消亮显<br /> )<br /> (setq sset (ssget "I"))<br />   (if (and sset (= (sslength sset) 2))<br />     (progn<br />       (setq line1 (ssname sset 0))<br />       (setq line2 (ssname sset 1))<br />       (print "使用预先选择的线")<br />     )<br />     (progn<br />       ;; 提示用户选择两条线<br />       (setq line1 (car (entsel "\n请选择第一条线: ")))<br />       (redraw line1 3)<br />       (setq line2 (car (entsel "\n请选择第二条线: ")))<br />       (redraw line2 3)<br />     )<br />   )<br /> (princ))