[求助]：请问这段lisp程序在捕捉不同的时候结果不同，怎么办？

zqx_1998

(defun c:jxgj()
   
   (setq basp (getpoint "请输入基点坐标:"))
   (setq w1 (getreal "请输入w1值:"))
   (setq w2 (getreal "请输入w2值:"))
   (setq D (getreal "请输入D值:"))
   (setq B (getreal "请输入B值:"))
   (setq a (getreal "请输入倾角(度):"))

   (setq plm (polar basp pi w1))
   (setq pld (polar plm (* (/ 3.0 2) pi) (/ D 2)))
   (setq plu (polar plm (/ pi 2) (/ D 2)))
   
   (setq A (/ (* a pi) 180))
   
   (setq gdA (/ (sin A) (cos A)))
   (setq xd2 (+ (/ D 2) (* w1 gdA)))
   (setq xdd (polar basp (* (/ 3.0 2) pi) xd2))
   (setq xdu (polar basp (/ pi 2) xd2))

   (command "line" pld xdd xdu plu "c")

   (setq p1 (polar basp (* (/ 3.0 2) pi) (/ B 2.0)))
   (setq p2 (polar p1 0 w2))
   (setq p3 (polar p2 (/ pi 2) B))
   (setq p4 (polar p3 pi w2))
   
   (command "line" p1 p2 p3 p4 "")   
)
我输入的参数是基点（500，500）  w1= 500  w2=500 D=200 B=200  a=15
如果捕捉端点，则右边出来的是一个梯形，如果捕捉中点，右边出来的一个三角形，如果什么都不捕捉，则右边出来的是矩形，请问我想要的是矩形，难道每次都要该捕捉吗？谢谢
如果改捕捉，在lisp中怎么改啊？

ljpnb

在程序中加入下面几句
(setq os (getvar "osmode"))
(setvar "osmode" 0)
.
.
.
(setvar "osmode" os)

Gu_xl

定义下面两个函数，在每个程序开始加上（setierr）和结束时加上（reerr）函数，就可以避免上述问题！
(DEFUN SetIErr (/ sv)
  (if (or (= 'LIST (type *Error*)))
         (alert "ERROR  :THE LAST (SETiERR) FUNCTION HAS NO (ReErr)!")
        (PROGN
          (SETQ *SVARL* '())
          (FOREACH SV *SYSVARNL*
            (SETQ *SVARL* (CONS (GETVAR SV) *SVARL*))
            )
          (FOREACH SV '("ATTDIA" "BLIPMODE" "CMDECHO" "DIMZIN"
                        "OSMODE" "ORTHOMODE" "MIRRTEXT")
            (SETVAR SV 0)
            )
          
          (SETVAR "EXPERT" 5)
         (SETVAR "CECOLOR" "BYLAYER")
         (SETVAR "celtype" "BYLAYER")
        ; (if SetScale () (InitMap))

          (defun *error* (st) (if selections (cancel-s)) (reerr)(princ))
          )
         )
    )

(defun ReErr ()
  (if (or (= 'LIST (type *error*)) (= 'SUBR (type *error*)) (= 'USUBR (type *error*)))
         (PROGN (MAPCAR 'SETVAR *SYSVARNL* (REVERSE *SVARL*))
           (SETQ  *Error* nil)
           )
         (ALERT "ERROR  : NO (SETIERR)!")
         )
(PRINC)
   )