GRREAD 左键取点用法疑问

pxt2001

• 
  以下两段代码，分别是普通取点getpoint和使用GRREAD 左键取点的不同用法
• 如下列代码所示，第51行获取对角点p3出现异常，动画里面第6~8个矩形对角点，不是鼠标点选的位置，犹如打开了捕捉。哪位老师能够释疑解惑？
• (defun c:xd2 ()
•   (command "undo" "be")
•   (setq os (getvar "osmode"))
•   (setvar "osmode" 0)
•   (setq is t)
•   (while is
•     (initget "A B")
•     (setq P1 (getpoint "\n第一点[或/A/B]<退出>: "))
•     (cond
•       ((null P1) (setq is nil))
•       ((listp P1)
•         (setq is nil)
•         (if (setq p3 (getcorner P1 "\n指定对角点:"))
•           (command "rectangle" P1 p3)
•         )
•       )
•       ((= (strcase P1) "A") (princ "\n执行程序A"))
•       ((= (strcase P1) "B") (princ "\n执行程序B"))
•     )
•   )
•   (setvar "osmode" os)
•   (command "undo" "e")
•   (princ)
• )
• 
  
• (defun c:xd3 ()
•   (command "undo" "be")
•   (setq os (getvar "osmode"))
•   (setvar "osmode" 0)
•   (setq is t)
•   (while is
•     ;;(initget "A B")
•     ;;(setq P1 (getpoint "\第一点[或/A/B]<退出>: "))
•     (princ "\n第一点[或/A/B]<退出>: ")
•     (setq mouse (grread nil 4 0))  ;不追踪鼠标位置  
•     (setq g1 (car mouse)
•           g2 (cadr mouse)
•     )
•     (cond
•       ((or (equal mouse '(2 13))  ;回车
•          (equal mouse '(2 32))  ;空格
•          (equal mouse '(25 548))  ;右键
•        )
•         (setq IS nil) ;_退出while
•       )
•       ((= g1 3)
•         (setq is nil)
•         (setq p1 g2)      ;左键取点pt
•         (if (setq p3 (getcorner P1 "\n指定对角点:"))
•           (command "rectangle" P1 p3)
•         )
•       )
•       ((MEMBER g2 '(65 97)) (princ "\n执行程序A"))
•       ((MEMBER g2 '(66 98)) (princ "\n执行程序B"))
•     )
•   )
•   (setvar "osmode" os)
•   (command "undo" "e")
•   (princ)
• )