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

/db_自贡黄明儒_

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

<br /> ;;两线不平行时，画角平分线<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 /> )

st788796

不需要判断距离，这个角等分线就是要和line方向有关，向量

ayl1004

应该还加一个0距离判断，如果选择的两条直线相交，而且交点就是两条直线的端点，那么，会是什么情况？

/db_自贡黄明儒_

ayl1004 发表于 2013-11-18 12:27
应该还加一个0距离判断，如果选择的两条直线相交，而且交点就是两条直线的端点，那么，会是什么情况？

的确有些问题，还没有考虑完全。

st788796

如果是相交线，可能形成1 2 4个角，仅有实体参数，哪个算哪个不算？