判断夹角方向

CQ467959301

如图。怎么判断夹角的方向

aimisiyou

如果都是横平竖直的话，可以从0度开始逆时针数，第一条线段端点为（x1,y1）,第二条线段端点为（x2,y2）,，则夹角方向为（（x1-x2）/2  , (y2-y1)/2）所在的象限。

lisperado

来自theswamp国外网
自行搜索determine quadrant
因为无发链接权限

1. ;hanhphuc
   
2. (defun foo '((x) (apply '+ (mapcar ''((x y) (if x y 0)) x '(2 1) ))) )
   
3. ;;;(mapcar '<= p1 p2)
   
4. ;;;(foo '(nil T)) ;1
   
5. ;;;(foo '(T T))   ;3
   
6. 
   
7. ;;;returns in CW
   
8. ;;;  3 = 1 1
   
9. ;;;  2 = 1 0
   
10. ;;;  0 = 0 0
    
11. ;;;  1 = 0 1
    
12. 
    
13. ;;; or assoc method?
    
14. (defun bar (x) (cdr (assoc (foo x ) (mapcar 'cons '(3 2 0 1) '("A" "D" "C" "B")))))
    
15. ;;; (bar '(T T)) ;3
    
16. 
    
17. ;;;i prefer quadrant by index method
    
18. (defun quad (p1 p2) (vl-position (foo (mapcar '<= p1 p2) )
    
19.             '(3 2 0 1)
    
20.             )
    
21.           )
    
22. 
    
23. ;;;returns in CW
    
24. ;;;  0 = ++
    
25. ;;;  1 = +-
    
26. ;;;  2 = --
    
27. ;;;  3 = -+
    
28. 
    
29. ;Lee Mac
    
30. (defun quad ( a )
    
31.     (if (< 0 (sin a))
    
32.         (if (< 0 (cos a)) "A" "B")
    
33.         (if (< 0 (cos a)) "D" "C")
    
34.     )
    
35. )

;hanhphuc <br /> (defun foo '((x) (apply '+ (mapcar ''((x y) (if x y 0)) x '(2 1) ))) )<br /> ;;;(mapcar '<= p1 p2)<br /> ;;;(foo '(nil T)) ;1<br /> ;;;(foo '(T T))   ;3<br /> <br /> ;;;returns in CW<br /> ;;;  3 = 1 1 <br /> ;;;  2 = 1 0 <br /> ;;;  0 = 0 0 <br /> ;;;  1 = 0 1 <br /> <br /> ;;; or assoc method?<br /> (defun bar (x) (cdr (assoc (foo x ) (mapcar 'cons '(3 2 0 1) '("A" "D" "C" "B")))))<br /> ;;; (bar '(T T)) ;3<br /> <br /> ;;;i prefer quadrant by index method<br /> (defun quad (p1 p2) (vl-position (foo (mapcar '<= p1 p2) ) <br />             '(3 2 0 1)<br />             )<br />           )<br /> <br /> ;;;returns in CW<br /> ;;;  0 = ++<br /> ;;;  1 = +-<br /> ;;;  2 = --<br /> ;;;  3 = -+<br /> <br /> ;Lee Mac<br /> (defun quad ( a )<br />     (if (< 0 (sin a))<br />         (if (< 0 (cos a)) "A" "B")<br />         (if (< 0 (cos a)) "D" "C")<br />     )<br /> )

kmliro_2017

谢谢分享！！！！！

lee3737

来自theswamp国外网
確定象限-游標
載入程式後
輸入指令:sectors

2. (defun c:sectors ( / 3pang p1 p2 m n a k gr p3 el txt txte txtel f )
   
3. 
   
4.   (defun 3pang ( ps po pe / a1 a2 )
   
5.     (setq a1 (angle po ps))
   
6.     (setq a2 (angle po pe))
   
7.     (if (> a1 a2)
   
8.       (+ (- (* 2 pi) a1) a2)
   
9.       (- a2 a1)
   
10.     )
    
11.   )
    
12. 
    
13.   (initget 1)
    
14.   (setq p1 (getpoint "\n开始方向点 : "))
    
15.   (initget 1)
    
16.   (setq p2 (getpoint p1 "\n终点方向点: "))
    
17.   (setq m (mapcar '(lambda ( a b ) (/ (+ a b) 2.0)) p1 p2))
    
18.   (initget 1)
    
19.   (setq n (getint "\n输入象限数目 : "))
    
20.   (setq a (/ pi 0.5 n))
    
21.   (setq k -1)
    
22.   (repeat n
    
23.     (setq el (cons (entmakex (list '(0 . "RAY") '(100 . "AcDbEntity") '(100 . "AcDbRay") (cons 10 m) (cons 11 (polar '(0.0 0.0 0.0) (+ (* (setq k (1+ k)) a) (angle m p2)) 1.0)))) el))
    
24.   )
    
25.   (while (= 5 (car (setq gr (grread t))))
    
26.     (setq f nil)
    
27.     (setq p3 (cadr gr))
    
28.     (setq txt (1+ (fix (/ (3pang p2 m p3) a))))
    
29.     (if (null txte)
    
30.       (setq txte (entmakex (list '(0 . "TEXT") (cons 10 p3) (cons 40 (* 50 (/ (getvar 'viewsize) (cadr (getvar 'screensize))))) (cons 1 (itoa txt)))))
    
31.       (progn
    
32.         (if (not (equal p3 (cdr (assoc 10 txtel)) 1e-15))
    
33.           (setq txtel (subst (cons 10 p3) (assoc 10 txtel) txtel) f t)
    
34.         )
    
35.         (if (/= txt (atoi (cdr (assoc 1 txtel))))
    
36.           (setq txtel (subst (cons 1 (itoa txt)) (assoc 1 txtel) txtel) f t)
    
37.         )
    
38.         (if f
    
39.           (entupd (cdr (assoc -1 (entmod txtel))))
    
40.         )
    
41.       )
    
42.     )
    
43.     (if (null txtel)
    
44.       (setq txtel (entget txte))
    
45.     )
    
46.   )
    
47.   (foreach e el
    
48.     (if (and e (not (vlax-erased-p e)))
    
49.       (entdel e)
    
50.     )
    
51. 
    
52.   )
    
53.   (if (and txte (not (vlax-erased-p txte)))
    
54.     (entdel txte)
    
55.   )
    
56.   (princ)
    
57. )
    
58. 
    

(defun c:sectors ( / 3pang p1 p2 m n a k gr p3 el txt txte txtel f )<br /> <br />   (defun 3pang ( ps po pe / a1 a2 )<br />     (setq a1 (angle po ps))<br />     (setq a2 (angle po pe))<br />     (if (> a1 a2)<br />       (+ (- (* 2 pi) a1) a2)<br />       (- a2 a1)<br />     )<br />   )<br /> <br />   (initget 1)<br />   (setq p1 (getpoint "\n开始方向点 : "))<br />   (initget 1)<br />   (setq p2 (getpoint p1 "\n终点方向点: "))<br />   (setq m (mapcar '(lambda ( a b ) (/ (+ a b) 2.0)) p1 p2))<br />   (initget 1)<br />   (setq n (getint "\n输入象限数目 : "))<br />   (setq a (/ pi 0.5 n))<br />   (setq k -1)<br />   (repeat n<br />     (setq el (cons (entmakex (list '(0 . "RAY") '(100 . "AcDbEntity") '(100 . "AcDbRay") (cons 10 m) (cons 11 (polar '(0.0 0.0 0.0) (+ (* (setq k (1+ k)) a) (angle m p2)) 1.0)))) el))<br />   )<br />   (while (= 5 (car (setq gr (grread t))))<br />     (setq f nil)<br />     (setq p3 (cadr gr))<br />     (setq txt (1+ (fix (/ (3pang p2 m p3) a))))<br />     (if (null txte)<br />       (setq txte (entmakex (list '(0 . "TEXT") (cons 10 p3) (cons 40 (* 50 (/ (getvar 'viewsize) (cadr (getvar 'screensize))))) (cons 1 (itoa txt)))))<br />       (progn<br />         (if (not (equal p3 (cdr (assoc 10 txtel)) 1e-15))<br />           (setq txtel (subst (cons 10 p3) (assoc 10 txtel) txtel) f t)<br />         )<br />         (if (/= txt (atoi (cdr (assoc 1 txtel))))<br />           (setq txtel (subst (cons 1 (itoa txt)) (assoc 1 txtel) txtel) f t)<br />         )<br />         (if f<br />           (entupd (cdr (assoc -1 (entmod txtel))))<br />         )<br />       )<br />     )<br />     (if (null txtel)<br />       (setq txtel (entget txte))<br />     )<br />   )<br />   (foreach e el<br />     (if (and e (not (vlax-erased-p e)))<br />       (entdel e)<br />     )<br /> <br />   )<br />   (if (and txte (not (vlax-erased-p txte)))<br />     (entdel txte)<br />   )<br />   (princ)<br /> )<br /> <br />