两线不平行时，画角平分线

自贡黄明儒

1. ;两线不平行时，画角平分线
   
2. (defun HH:Bisect (en1 en2 / E1EN E1ST E2EN E2ST P0 P1E P1S P2E P2S PT1 PT2 PT3 X Y)
   
3.   (setq e1st (vlax-curve-getStartPoint en1))
   
4.   (setq e1en (vlax-curve-getendPoint en1))
   
5.   (setq e2st (vlax-curve-getStartPoint en2))
   
6.   (setq e2en (vlax-curve-getendPoint en2))
   
7.   (setq p0 (inters e1st e1en e2st e2en nil))
   
8.   (if (> (distance p0 e1st) (distance p0 e1en))
   
9.     (setq p1s e1st p1e e1en)
   
10.     (setq p1s e1en p1e e1st)
    
11.   )
    
12.   (if (> (distance p0 e2st) (distance p0 e2en))
    
13.     (setq p2s e2st p2e e2en)
    
14.     (setq p2s e2en p2e e2en)
    
15.   )
    
16.   (setq PT1 (polar p0 (angle p0 p1s) 10))  
    
17.   (setq PT2 (polar p0 (angle p0 p2s) 10))  
    
18.   (setq PT3 (mapcar '(lambda (X Y) (/ (+ X Y) 2.0)) PT1 PT2))
    
19.   
    
20.   (setq PT3 (inters p0 PT3 p1s p2s nil))
    
21.   (entmake (list (cons 0 "LINE") (cons 10 P0) (cons 11 PT3)))
    
22. )
    
23. (defun C:W1 (/ EN1 EN2)
    
24.   (setq en1 (car (entsel)))
    
25.   (setq en2 (car (entsel)))
    
26.   (HH:Bisect en1 en2)
    
27.   (princ)
    
28. )
    

;两线不平行时，画角平分线<br /> (defun HH:Bisect (en1 en2 / E1EN E1ST E2EN E2ST P0 P1E P1S P2E P2S PT1 PT2 PT3 X Y)<br />   (setq e1st (vlax-curve-getStartPoint en1))<br />   (setq e1en (vlax-curve-getendPoint en1))<br />   (setq e2st (vlax-curve-getStartPoint en2))<br />   (setq e2en (vlax-curve-getendPoint en2))<br />   (setq p0 (inters e1st e1en e2st e2en nil))<br />   (if (> (distance p0 e1st) (distance p0 e1en))<br />     (setq p1s e1st p1e e1en)<br />     (setq p1s e1en p1e e1st)<br />   )<br />   (if (> (distance p0 e2st) (distance p0 e2en))<br />     (setq p2s e2st p2e e2en)<br />     (setq p2s e2en p2e e2en)<br />   )<br />   (setq PT1 (polar p0 (angle p0 p1s) 10))  <br />   (setq PT2 (polar p0 (angle p0 p2s) 10))  <br />   (setq PT3 (mapcar '(lambda (X Y) (/ (+ X Y) 2.0)) PT1 PT2))<br />   <br />   (setq PT3 (inters p0 PT3 p1s p2s nil))<br />   (entmake (list (cons 0 "LINE") (cons 10 P0) (cons 11 PT3)))<br /> )<br /> (defun C:W1 (/ EN1 EN2)<br />   (setq en1 (car (entsel)))<br />   (setq en2 (car (entsel)))<br />   (HH:Bisect en1 en2)<br />   (princ)<br /> )<br />

NJZX05

算法上还可以优化一下，求两直线交点，求两直线以交点为起点的方向角，以交点为基点，两直线方向角的均值为方向画线

自贡黄明儒

NJZX05 发表于 2013-11-18 12:07
算法上还可以优化一下，求两直线交点，求两直线以交点为起点的方向角，以交点为基点，两直线方向角的均值为 ...

如果是这样，这条线画多长合适呢？

xyp1964

需要综合考虑两直线的方向和是否相交，否则可能出错。

自贡黄明儒

xyp1964 发表于 2013-11-18 13:23
需要综合考虑两直线的方向和是否相交，否则可能出错。

现改为取交点到离交点最远处两的交点，出错情况就少了

lucas_3333

8错，感谢分享！