请求空间点位计算系列

Q1241274614

1.空间三点角平分线

Gu_xl

原理：等腰三角形对边中点即为平分线上点！

1. (defun pfx (p1 p2 p3)
   
2.   (setq v1 (mapcar '- p1 p2)
   
3.         d1 (distance '(0 0 0) v1)
   
4.         v2 (mapcar '- p3 p2)
   
5.         d2 (distance '(0 0 0) v2)
   
6.         s (/ d1 d2)
   
7.         v1 (mapcar '/ v1 (list s s s))
   
8.         p1 (mapcar '+ p2 v1)
   
9.         )
   
10.   (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p3)) ;_ 对边中点
    
11.   )
    
12. (defun c:tt  ()
    
13.   (if (and
    
14.         (setq p1 (getpoint "\n第一点:"))
    
15.         (setq p2 (getpoint "\n第二点:"))
    
16.         (setq p3 (getpoint "\n第三点:"))
    
17.         )
    
18.     (progn
    
19.       (command "line" "_non" p1 "_non" p2 "_non" p3 "")
    
20.       (setq p4 (pfx p1 p2 p3))
    
21.       (command "line" "_non" p2 "_non" p4  "")
    
22.      )
    
23.     )
    
24.   (princ)
    
25.   )
    

(defun pfx (p1 p2 p3)<br />   (setq v1 (mapcar '- p1 p2)<br />         d1 (distance '(0 0 0) v1)<br />         v2 (mapcar '- p3 p2)<br />         d2 (distance '(0 0 0) v2)<br />         s (/ d1 d2)<br />         v1 (mapcar '/ v1 (list s s s))<br />         p1 (mapcar '+ p2 v1)<br />         )<br />   (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p3)) ;_ 对边中点<br />   )<br /> (defun c:tt  ()<br />   (if (and<br />         (setq p1 (getpoint "\n第一点:"))<br />         (setq p2 (getpoint "\n第二点:"))<br />         (setq p3 (getpoint "\n第三点:"))<br />         )<br />     (progn<br />       (command "line" "_non" p1 "_non" p2 "_non" p3 "")<br />       (setq p4 (pfx p1 p2 p3))<br />       (command "line" "_non" p2 "_non" p4  "")<br />      )<br />     )<br />   (princ)<br />   )<br />

Q1241274614

谢谢，G老大！