xk2005 发表于 2024-7-16 14:32:54

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

本帖最后由 xk2005 于 2024-7-16 14:34 编辑

下面是我的代码。选择直线后，使用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)
    )
)

自贡黄明儒 发表于 2024-7-16 14:45:08

用*error*处理

你有种再说一遍 发表于 2024-7-16 15:01:12

看错误处理http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100616&highlight=%B4%ED%CE%F3%B4%A6%C0%ED

qazxswk 发表于 2024-7-16 15:02:08

(defun c:11 (/ *error* sset line1 line2)
(defun *error*(msg)
(if line1 (redraw line1 4)) ;取消亮显
(if line2 (redraw line2 4)) ;取消亮显
)
(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)
    )
)
(princ))

页: [1]
查看完整版本: 求助大神，亮显后按esc中断程序，取消亮显问题