斜直线与圆弧坐标点的确定

流_星

见附图斜直线与圆弧坐标点的确定
请高手指点指点
cad是2013版的

edata

1. ;;code by qjchen
   
2. (defun q:geo:2line:ang2(p1 p2 p3 p4)
   
3.   ((lambda(x) (atan (sqrt (abs (- 1.0 (* x x)))) x))
   
4.      (/ (apply '+ (mapcar '* (mapcar '- p2 p1) (mapcar '- p4 p3))) (distance p1 p2) (distance p3 p4))
   
5.   )
   
6. )
   
7. (defun c:tt(/ ng0 ang1 ang3 ang4 cen ds1 ds2 ipt mpt p0 p1 p1a p2 p3 p4 p5 p5a r)
   
8.   (setq p1 '(-16.25 0)
   
9.         p0 '(0 0)
   
10.         p5 '(0 7)
    
11.         ang0 (* 5.71059314 (/  pi 180.0) );角度值转弧度值
    
12.         r 3.5
    
13.         )
    
14.   (setq p5a(polar p5 ang0 1.0) ;求p5->p4斜线上一点p5a
    
15.         p1a(polar p1 (* pi 0.5) 1.0) ;求p1->p2直线上一点p1a
    
16.         ipt(inters p1 p1a p5 p5a nil);求p5->p5a p1->p1a直线交点ipt
    
17.         ang1 (* (q:geo:2line:ang2 ipt p1 ipt p5) 0.5);求p5->p5a p1->p1a直线夹角值ang1
    
18.         ds1 (/ (* r (cos ang1)) (sin ang1));求ipt->p4长度(圆弧与斜线是垂直的,已知角度\对边,求邻边长)
    
19.         ds2 (/ r (sin ang1));求ipt->cen长度(圆弧与斜线是垂直的,已知角度\对边,求斜边边长)
    
20.         )  
    
21.   (setq p2(polar ipt (angle ipt p1) ds1) ;求得p2点
    
22.         p4(polar ipt (angle ipt p5) ds1) ;求得p4点
    
23.         )
    
24.   (setq mpt(mapcar '(lambda(x y)(* 0.5 (+ x y))) p2 p4) ;求得p2->p4的中点
    
25.         ang3(angle ipt mpt);求ipt->mpt角度
    
26.         ang4(angle mpt ipt);求mpt->ipt角度
    
27.         cen(polar ipt  ang3 ds2);求圆心cen点
    
28.         p3(polar cen ang4 r);求p3点
    
29.         )
    
30.   ;(command "line" "non" p2 "non" p1 "non" p0 "non" p5 "non" p4 "")
    
31.   ;(command "arc" "non" p2 "non" p3 "non" p4 "")
    
32.   (command "pline" "non" p0 "non" p1 "non" p2 "a" "non" p4 "l" "non" p5 "c")
    
33.   )

;;code by qjchen<br /> (defun q:geo:2line:ang2(p1 p2 p3 p4)<br />   ((lambda(x) (atan (sqrt (abs (- 1.0 (* x x)))) x))<br />      (/ (apply '+ (mapcar '* (mapcar '- p2 p1) (mapcar '- p4 p3))) (distance p1 p2) (distance p3 p4))<br />   )<br /> )<br /> (defun c:tt(/ ng0 ang1 ang3 ang4 cen ds1 ds2 ipt mpt p0 p1 p1a p2 p3 p4 p5 p5a r)<br />   (setq p1 '(-16.25 0)<br />         p0 '(0 0)<br />         p5 '(0 7)<br />         ang0 (* 5.71059314 (/  pi 180.0) );角度值转弧度值<br />         r 3.5<br />         )<br />   (setq p5a(polar p5 ang0 1.0) ;求p5->p4斜线上一点p5a<br />         p1a(polar p1 (* pi 0.5) 1.0) ;求p1->p2直线上一点p1a<br />         ipt(inters p1 p1a p5 p5a nil);求p5->p5a p1->p1a直线交点ipt<br />         ang1 (* (q:geo:2line:ang2 ipt p1 ipt p5) 0.5);求p5->p5a p1->p1a直线夹角值ang1<br />         ds1 (/ (* r (cos ang1)) (sin ang1));求ipt->p4长度(圆弧与斜线是垂直的,已知角度\对边,求邻边长)<br />         ds2 (/ r (sin ang1));求ipt->cen长度(圆弧与斜线是垂直的,已知角度\对边,求斜边边长)<br />         )  <br />   (setq p2(polar ipt (angle ipt p1) ds1) ;求得p2点<br />         p4(polar ipt (angle ipt p5) ds1) ;求得p4点<br />         )<br />   (setq mpt(mapcar '(lambda(x y)(* 0.5 (+ x y))) p2 p4) ;求得p2->p4的中点<br />         ang3(angle ipt mpt);求ipt->mpt角度<br />         ang4(angle mpt ipt);求mpt->ipt角度<br />         cen(polar ipt  ang3 ds2);求圆心cen点<br />         p3(polar cen ang4 r);求p3点<br />         )<br />   ;(command "line" "non" p2 "non" p1 "non" p0 "non" p5 "non" p4 "")<br />   ;(command "arc" "non" p2 "non" p3 "non" p4 "")<br />   (command "pline" "non" p0 "non" p1 "non" p2 "a" "non" p4 "l" "non" p5 "c")<br />   )

流_星

谢谢
看看学习一下