[求助]：关于错误函数处理？

nuance

(defun c;xxx()
(command"line" '(0 0) '(1 1) "")
(command"move" (entlast) "" '(0 0) )
)
程序执行move命令时会等待用户选择第二点，此时若不选点，而是直接按esc，我希望可以删除line，该怎样用错误函数处理？

xyp1964

2. [FONT=courier new](defun c:xxx (/ pt1)
   
3.   (command "line" '(0 0) '(1 1) "")
   
4.   (if (setq pt1 (getpoint '(0 0) "\n目标点 : "))
   
5.     (command "move" (entlast) "" '(0 0) pt1)
   
6.     (entdel (entlast))
   
7.   )
   
8. )[/FONT]

[FONT=courier new](defun c:xxx (/ pt1)<br />   (command "line" '(0 0) '(1 1) "")<br />   (if (setq pt1 (getpoint '(0 0) "\n目标点 : "))<br />     (command "move" (entlast) "" '(0 0) pt1)<br />     (entdel (entlast))<br />   )<br /> )[/FONT]

nuance

楼上的做法执行move是静态的，我希望有动态的效果（橡皮线）。

Dallas_whu

[PHP]
(DEFUN C:H (/ SS)
  (SETQ CMDOLD (GETVAR "CMDECHO"))
  (SETVAR "CMDECHO" 0)
  (PRINC "\n绘制固定长度横线！")
  (COMMAND "_.LINE" '(0 0 0) '(300 0 0) "")
  (SETQ SS (ENTLAST))
  (COMMAND "-BLOCK" "HLINE" '(150 0 0) SS "")
  (SETVAR "OSMODE" (+ 1 2 4 8 128 32 512))
  (COMMAND "-INSERT" "HLINE" PAUSE 1 1 0)
  (SETQ SS (ENTLAST))
  (COMMAND "_.EXPLODE" SS)
  (SETVAR "CMDECHO" CMDOLD)
  (PRINC)
  )
[/PHP]

nuance

举个例子
程序1：有动态移动效果，但按esc不能删除line。
(defun c:xxx (/ ss)
  (command "line" '(0 0) '(1 1) "")
  (setq ss (ssadd))
  (setq ss (ssadd (entlast) ss))
   (command "move" ss "" '(0 0) )
)

(defun *error* (msg)
  (if (= msg "Function cancelled")
    (command "_.erase" ss "")
  )
  (setq *error* olderror)
)

程序2：无动态移动效果，但按esc能删除line。
(defun c:xxx (/ ss a)
  (command "line" '(0 0) '(1 1) "")
  (setq ss (ssadd))
  (setq ss (ssadd (entlast) ss))
  (setq a (getpoint "2nd point"))
  (command "move" ss "" '(0 0) a)
)

(defun *error* (msg)
  (if (= msg "Function cancelled")
    (command "_.erase" ss "")
  )
  (setq *error* olderror)
)

我是既想有动态效果，又想在按下esc后能删除line。该怎么做？

Underway

(defun c:xxx (/ ss)
(command "line" '(0 0) '(1 1) "")
(setq ss (ssadd))
(setq ss (ssadd (entlast) ss))
(command "move" ss "" '(0 0)  Pause)  ; 這兒要加 Pause
)

(defun *error* (msg)

;; "Function cancelled"  中文版得换成"函数被取消" 或 其它您所捕捉到的系统返回讯息
;; (if (= msg "Function cancelled")
(if (= msg "函数被取消")
(command "_.erase" ss "")
)
;(setq *error* olderror)   ; 除非之前已设定
)

;======== Something like this about the *Error*
(defun c:test (/ TESTVALUE)
  (setq olderror *error*
         *error*  MyError) ; <--Changed
  (setq TESTVALUE "hello there")
  (getstring "\nHit excape key now to error the routine")
)


(defun MyError (MSG) ; <--Changed
  (princ "\nerror: ")
  (princ MSG)
  (setq testvalue nil) ; <--Added
  (setq *error* olderror)
  (princ)
)

yxpxa

呵呵，不知道楼主要实现什么功能，grdraw和grread组合一下也能做到你这一点。

bububa918

借贵地问个问题，眼前在XD下的交线切断程序，发现一个BUG,如果调用程序后，不选线段，
直接回车，CAD2004死机，据说要加一个错误函数，请大家帮忙改一下