求：grread使用下的正交开关函数！

尘缘一生 · 发表于 2015-12-20 08:40:03

如题：

不要扑捉，无用，只要正交。。。。

edata · 发表于 2015-12-20 10:19:30

获得正交变量开关，通过基点与拖移点的角度关系返回正交点。
比如拖移点在0~45度或者，那么返回拖移的x坐标和基点的y坐标组合的点，即x正方向，
如果拖移点在45-135度，那么返回基点的x坐标和拖移的y坐标组合点，即Y正方式。
依次类推。。。。。

edata · 发表于 2015-12-20 10:50:38

(defun c:tt (/ ang gr p1 p2 prpt)
(if (setq p1 (getpoint "\basepoint: "))
(while (and (setq gr (grread t 15 0)) (/= (car gr) 3))
(redraw)
(cond
((= (car gr) 5)
(setq prpt (cadr gr))
(setq ang (angle p1 prpt))
(if (= (getvar 'ORTHOMODE) 1)
(cond
((or (and (> ang (* pi 0.25)) (< ang (* pi 0.75)))
(and (> ang (* pi 1.25)) (< ang (* pi 1.75)))
)
(setq p2 (list (car p1) (cadr prpt)))
)
(t
(setq p2 (list (car prpt) (cadr p1)))
)
)
(setq p2 prpt)
)
(grdraw p1 p2 3)
)
((equal gr '(2 15))
(if (= (getvar 'ORTHOMODE) 1)
(setvar 'ORTHOMODE 0)
(setvar 'ORTHOMODE 1)
)
)
)
)
)
)

(defun c:tt (/ ang gr p1 p2 prpt) 
  (if (setq p1 (getpoint "\basepoint: ")) 
    (while (and (setq gr (grread t 15 0)) (/= (car gr) 3)) 
      (redraw) 
      (cond 
        ((= (car gr) 5) 
         (setq prpt (cadr gr)) 
         (setq ang (angle p1 prpt)) 
         (if (= (getvar 'ORTHOMODE) 1) 
           (cond 
             ((or (and (> ang (* pi 0.25)) (< ang (* pi 0.75))) 
                  (and (> ang (* pi 1.25)) (< ang (* pi 1.75))) 
              ) 
              (setq p2 (list (car p1) (cadr prpt))) 
             ) 
             (t 
              (setq p2 (list (car prpt) (cadr p1))) 
             ) 
           ) 
           (setq p2 prpt) 
         ) 
         (grdraw p1 p2 3) 
        ) 
        ((equal gr '(2 15)) 
         (if (= (getvar 'ORTHOMODE) 1) 
           (setvar 'ORTHOMODE 0) 
           (setvar 'ORTHOMODE 1) 
         ) 
        ) 
      ) 
    ) 
  ) 
)

尘缘一生 · 发表于 2015-12-31 10:08:46

顶起来，没人解决啊。。。。。。，

账号		自动登录	找回密码
密码			注册

[源码] 求：grread使用下的正交开关函数！

相关帖子

点评

点评