getcorner函数输入模式输入坐标时候，必须区分正负号输入

wxa123wl

右下角必须输入@69.2，-45.08

左上角度时：必须@-70.54,58.72


可以根据鼠标指示了的方向，确定正负号，不用再自己判断，直接就是    x，y的绝对值长度

wxa123wl

左下角：@-56.77，-37.92

左上角度时：必须@-70.54,58.72

wxa123wl

(defun LS:Getcorner (pt1 msg / ang1 code dyn gr gr1 loop pt0 pt2 x-dist y-dist)
        (if msg
    (princ msg)
  )
        (setq dyn (getvar "DYNMODE"))
        (setvar "DYNMODE" 3)
        (setvar "DYNPROMPT" 1);;;动态输入
        (setvar "DYNPICOORDS" 0);;输入模式为相对坐标               
        (setq loop t );;退出grread标记
        (while loop
                (setq gr (grread t 15 0) code (car gr))                               
                ;(princ "\n当前坐标：" )               
                ;(princ gr )        是一个表list       
                (cond               
                        ((= code 5);鼠标移动
                                (setq pt0 (getcorner pt1 "\n输入坐标或点击终点："));;;临时计算的的getcorner点
                                (setq loop nil)
                                ;(princ "\n终点坐标DYN：" )
                                (setq gr1 (grread t 15 0))       
                                ;(princ gr1 )                       
                                ;(princ "\n绘制图坐标PT2：" )
                                ;(princ pt0 )
                        )       
                )       
        )
        (setvar "DYNMODE" dyn)
        (setq ang1 (angle pt1 (cadr gr1)));;最后鼠标点和起点的坐标角度
        (setq X-dist (abs (-(car pt0) (car pt1))))
        (setq Y-dist (abs (-(cadr pt0) (cadr pt1))))
        (cond                
                ((AND (>= ang1 0) (<= ang1 (* 0.5 PI)));;0到90度
                        (setq pt2 (list (+(car pt1) X-dist) (+ (cadr pt1) Y-dist)))       
                )
                ((AND (> ang1 (* 0.5 PI)) (<= ang1 PI)) ;;90到180度
                        (setq pt2 (list (- (car pt1) X-dist) (+ (cadr pt1) Y-dist)))
                )
                ((AND (> ang1 pi) (<= ang1 (* 1.5 PI)));;180到270度
                        (setq pt2 (list (- (car pt1) X-dist) (- (cadr pt1) Y-dist)))
                )
                ((AND (> ang1 (* 1.5 PI)) (< ang1 (* 2.0 PI)));;270到360度
                        (setq pt2 (list (+ (car pt1) X-dist) (- (cadr pt1) Y-dist)))       
                )       
        )       
        pt2       
)