[讨论]：关于grread正交

firstintimate

好像grread函数不支持捕捉和正交操作吧，如果函数本身不支持那只有自己想办法替代这个功能了，捕捉好象在论坛上已经有高手想办法实现了，不过正交好像还没有人尝试过,有没有高手给个思路，我自己的想法是这样的：
获取基准点，通过grread函数获取鼠标动态坐标点，鼠标移动一定范围就计算一次鼠标坐标点相对于基点x.y的增量，判断x.y方向增量的大小，如果x>y鼠标就往x轴方向移动，反之往y轴方向移动，鼠标坐标在x轴或者y轴方向上的投影很容易计算出来
还有一个想法，如果正交的点轨迹可以确定那其他角度的轨迹也没有问题了，那模拟追踪效果估计也可以
以上只是个人想法，有时间的时候尝试一下，不知道大家对点轨迹的追踪有什么见解，我特别想听听eachy斑竹的做法，eachy斑竹对cad的研究很深入

呵呵，晚上写了个测试函数，好像可以，出差打瞌睡还是有好处的－ －
(defun c:tt(/ lent)
(setq bpt(getpoint "\n基准点："))
(setq loop t)
     (while loop      
      (setq gd (grread T 4 0))
        (cond ((= 5(car gd))
          (progn
            (redraw)
            (setq my_viewsize (getvar "viewsize"))
            (setq vpoint(cadr gd))
            (setq di (distance bpt vpoint))
            (if (> (/ di my_viewsize) 0.01)
              (progn
                (setq ydelta(abs(-(cadr vpoint)(cadr bpt))))
                (setq xdelta(abs(-(car vpoint)(car bpt))))
                (if (< xdelta ydelta)
                  (progn
                    (if lent
                      (progn
                        (entdel lent)
                        (setq lpt(list (car bpt)(cadr vpoint)))
                        (vl-cmdf "line" bpt lpt "")
                        (setq lent(entlast))
                      )
                      (progn
                        (setq lpt(list (car bpt)(cadr vpoint)))
                        (vl-cmdf "line" bpt lpt "")
                        (setq lent(entlast))
                      )
                    )
                  )
                  (progn
                       (if lent
                      (progn
                        (entdel lent)
                        (setq lpt(list (car vpoint)(cadr bpt)))
                        (vl-cmdf "line" bpt lpt "")
                        (setq lent(entlast))
                      )
                      (progn
                        (setq lpt(list (car vpoint)(cadr bpt)))
                        (vl-cmdf "line" bpt lpt "")
                        (setq lent(entlast))
                      )
                    )
                  )
                )                
              );progn
            );if
          ))
          ((= 3(car gd))
;;;            (progn
;;;              (setq vpoint(cadr gd))
              (setq loop nil)
;;;            )
            (t exit)
          )
        );cond
     );while
)