求一个三角形的坐标点。

artken

请高手帮忙写个代码求一下P3的坐标点，要考虑UCS坐标系下

已知：P1坐标、P2坐标、角度A，P3和P2是水平的。

vectra

1. (defun get-p3 (p1 p2 ang)
   
2.   (list (+ (car p1) (/ (* (- (cadr p2) (cadr p1)) (cos ang)) (sin ang))) (cadr p2))
   
3. )
   
4. 
   
5. (defun c:test (/ ang p1 p2 p3)
   
6.   (setq p1  (getpoint)
   
7.         p2  (getpoint)
   
8.         ang (getangle p1)
   
9.         p3  (get-p3 p1 p2 ang)
   
10.   )
    
11.   (command ".line" p1 p2 p3 "C")
    
12.   (princ)
    
13. )
    

(defun get-p3 (p1 p2 ang)<br />   (list (+ (car p1) (/ (* (- (cadr p2) (cadr p1)) (cos ang)) (sin ang))) (cadr p2))<br /> )<br /> <br /> (defun c:test (/ ang p1 p2 p3)<br />   (setq p1  (getpoint)<br />         p2  (getpoint)<br />         ang (getangle p1)<br />         p3  (get-p3 p1 p2 ang)<br />   )<br />   (command ".line" p1 p2 p3 "C")<br />   (princ)<br /> )<br />

artken

谢谢啦。。。。