[编程交流] 尝试l时出现错误消息

(defun c:drawline ()                                        ;define function
(initerr)                                        ;intit error
(setvar "cmdecho" 0)                                ;reset variables
(setvar "osmode" 32)
(command "undo" "m")                                ;set mark
(setq pt1 (getpoint "\nPick First Point: "))        ;get points
(setq pt2 (getpoint pt1 "\nPick Second Point: "))
(command "LAYER" "M" "2" "")                        ;change layer
(command "Line" pt1 pt2 "")                        ;draw line
(setq pt3 (getpoint pt2 "\nPick Third Point: "));get 3rd point
(setvar "osmode" 0)                                ;reset snap
(command "Line" pt2 pt3 "")                        ;draw line
(reset)                                                ;reset variables
  (princ)
)
(defun error()                                                ;load function
(prompt "\nGlobal Error Trap Loaded")                        ;inform user
(princ)
);defun
;;;*==========================================================
(defun initerr ()                                        ;init error
 (setq oldlayer (getvar "clayer"))                        ;save settings
 (setq oldsnap (getvar "osmode"))
 (setq oldpick (getvar "pickbox"))
 (setq temperr *error*)                                ;save *error*
 (setq *error* trap)                                        ;reassign *error*
 (princ)
);defun
;;;*===========================================================
(defun trap (errmsg)                                        ;define trap
 (command nil nil nil)
 (if (not (member errmsg '("console break" "Function Cancelled"))
     )
   (princ (strcat "\nError: " errmsg))                        ;print message
 )                 
 (command "undo" "b")                                        ;undo back
 (setvar "clayer" oldlayer)                                ;reset settings
 (setvar "blipmode" 1)
 (setvar "menuecho" 0)
 (setvar "highlight" 1)
 (setvar "osmode" oldsnap)
 (setvar "pickbox" oldpick)
 (princ "\nError Resetting Enviroment ")                ;inform user
 (terpri)
 (setq *error* temperr)                                ;restore *error*
 (princ)
);defun
;;;*===========================================================
(defun reset ()                                                ;define reset
 (setq *error* temperr)                                ;restore *error*
 (setvar "clayer" oldlayer)                                ;reset settings
 (setvar "blipmode" 1)
 (setvar "menuecho" 0)
 (setvar "highlight" 1)
 (setvar "osmode" oldsnap)
 (setvar "pickbox" oldpick)
 (princ)
);defun

(defun trap (errmsg)     ;define trap
 (command nil nil nil)
 (if (not (member errmsg '("console break" "Function Cancelled"))
     )
   (princ (strcat "\nError: " errmsg))   ;print message
 )                 
 (command "undo" "b")     ;undo back

(defun trap (errmsg)     ;define trap
 ([color=magenta]command-s[/color])
 (if (not (member errmsg '("console break" "Function Cancelled"))
     )
   (princ (strcat "\nError: " errmsg))   ;print message
 )                 
 ([color=magenta]command-s[/color] "undo" "b")     ;undo back

(defun c: trec()
 (initerr)
 (setvar "clayer" "text_25")
 (setvar "osmode" 2)
 (command "undo" "m")
 (command "rectang")
 (reset)
 (princ)
);defun

...
(command "[color=red]_[/color]rectang")
[color=red] (while (> (getvar "CMDACTIVE") 0)[/color]
[color=red]  (command pause)[/color]
[color=red] )[/color]
(reset)
)