[求助]：未点选前的判断问题~

Dream.Fei

如图，我要在鼠标未点屏幕之前，判断当前鼠标位置与图中红点的相对关系，只要四个方向（左上，左下，右上，右下）即可。请指教~

其中红点可以是先用鼠标点了后。

就像画线命令一样，点选了开始点，在点第二点之前，我要判断第二点与第一点之间相对关系~
D:\桌面\1.jpg

littlecong

用lisp恐怕难办

Dream.Fei

不会啊，我记得以前在论坛看到过一个标高的程序，是eachy指导的，里面有个预演的过程，就可以达到我这个目的，只是找不到帖子了，而且里面代码很长，我是个新手，也找不到想要的那段代码~

所以，请老大们帮我给出代码或思路与要用到的环境变量等，谢谢了。

LADESIGNER

看看 GRREAD  函数……

Dream.Fei

试过了，但是好像不行，不知道是不是运用得不好还是什么。我使用的 grread t 1


这是lsp
[php]
(defun c:test ()
  (setq p1 (getpoint "\n 选择开始点："))
  (cond        ((> (car (cadr (grread t 1))) (car p1))          ;鼠标位于P1点右边
         (cond ((< (cadr (cadr (grread t 1))) (cadr p1))      ;右下设snapang值为30度
                (setvar "SNAPANG" (/ pi 6))
               )
               ((> (cadr (cadr (grread t 1))) (cadr p1))      ;右上设snapang值为60度
                (setvar "SNAPANG" (/ pi 3))
               )
         )
        )
        ((< (car (cadr (grread t 1))) (car p1))         ;鼠标位于P1左边
         (cond ((< (cadr (cadr (grread t 1))) (cadr p1))      ;左下设snapang值为60度
                (setvar "SNAPANG" (/ pi 3))
               )
               ((> (cadr (cadr (grread t 1))) (cadr p1))      ;左上设snapang值为30度
                (setvar "SNAPANG" (/ pi 6))
               )
         )
        )
  )
  (setvar "ORTHOMODE" 1)
  (setq p2 (getpoint p1 "\n 选择第二点"))
  (setvar "snapang" 0)
)
[/php]

可以取得当前位置，但在与第一点作比较后，却不能实现 snapang 附值。我要的是第二点位于第一点左上与右下角时，设snapang值为30度。在左下与右上时，设snapang值为60度。

但是在用grread取得当前的位置时，不能比较出结果然后再设snapang值，而是直接进入了选取第二点的操作。