求教 CAD 画圆弧方法 （已知圆上2点和半径）

yarana

已知圆上 两点 A, B 以及R，求2个 圆心，并画圆弧。请问 圆心 该如何算，谢谢 。有没有现成的代码 ？ 如果直接用公式算 太复杂了，还有一种方法是转换坐标系简化计算公式。

newer

很好算啊，上图， L,R已知，你求角度a,然后根据边上圆上的点和角度A，就算出圆心了。

yarana

好的 谢谢你  我在编一下

csharp

yarana 发表于 2014-9-18 08:24
好的 谢谢你  我在编一下

辅助圆也可以
构造两个AcGeCircArc3d 再构造 AcGeCurveCurveInt3d，赵交点即可

yangpeng0718

我也想学 有时候施工现场 的不规则圆弧 我们怎么去画了

newer

呵呵，简单的看了看XDGE几何库，你要用VBA的画，自己看着改。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq p1 (getpoint "\n第一点<推出>:"))
   
4.         (setq p2 (getpoint p1 "\n第二点<退出>:"))
   
5.         (setq len (/ (distance p1 p2) 2.0))
   
6.       )
   
7.     (progn
   
8.       (setq tf t)
   
9.       (while (and
   
10.                tf
    
11.                (setq r (getreal (strcat "\n输入半径(大于" (rtos len 2 2) ") <退出>:")))
    
12.              )
    
13.         (if (< r (/ len 2.0))
    
14.           (princ "\n半径无效！")
    
15.           (setq tf nil)
    
16.         )
    
17.       )
    
18. 
    
19.       (setq an (xdrx_math_acos (/ len r))
    
20.             an1 (+ (angle p1 p2) an)
    
21.             an2 (- (angle p1 p2) an)
    
22.             cen1 (polar p1 an1 r)
    
23.             cen2 (polar p1 an2 r)
    
24.       )
    
25.       (setq ge (xdge::constructor "kCircArc3d" cen1 '(0.0 0.0 1.0) r))
    
26.       (xdrx_setmark)
    
27.       (xdge::entity:make ge)
    
28.       (xdrx_line_make p1 p2)
    
29.       (xdrx_line_make p1 cen1)
    
30.       (xdrx_line_make p2 cen1)
    
31.       (xdrx_entity_setcolor (xdrx_getss) 1)
    
32. 
    
33.       (setq ge (xdge::constructor "kCircArc3d" cen2 '(0.0 0.0 1.0) r))
    
34.       (xdrx_setmark)
    
35.       (xdge::entity:make ge)
    
36.       (xdrx_line_make p1 p2)
    
37.       (xdrx_line_make p1 cen2)
    
38.       (xdrx_line_make p2 cen2)
    
39.       (xdrx_entity_setcolor (xdrx_getss) 2)
    
40. 
    
41.     )
    
42.   )
    
43.   (princ)
    
44. )

(defun c:tt ()<br />   (if (and<br />         (setq p1 (getpoint "\n第一点<推出>:"))<br />         (setq p2 (getpoint p1 "\n第二点<退出>:"))<br />         (setq len (/ (distance p1 p2) 2.0))<br />       )<br />     (progn<br />       (setq tf t)<br />       (while (and<br />                tf<br />                (setq r (getreal (strcat "\n输入半径(大于" (rtos len 2 2) ") <退出>:")))<br />              )<br />         (if (< r (/ len 2.0))<br />           (princ "\n半径无效！")<br />           (setq tf nil)<br />         )<br />       )<br /> <br />       (setq an (xdrx_math_acos (/ len r))<br />             an1 (+ (angle p1 p2) an)<br />             an2 (- (angle p1 p2) an)<br />             cen1 (polar p1 an1 r)<br />             cen2 (polar p1 an2 r)<br />       )<br />       (setq ge (xdge::constructor "kCircArc3d" cen1 '(0.0 0.0 1.0) r))<br />       (xdrx_setmark)<br />       (xdge::entity:make ge)<br />       (xdrx_line_make p1 p2)<br />       (xdrx_line_make p1 cen1)<br />       (xdrx_line_make p2 cen1)<br />       (xdrx_entity_setcolor (xdrx_getss) 1)<br /> <br />       (setq ge (xdge::constructor "kCircArc3d" cen2 '(0.0 0.0 1.0) r))<br />       (xdrx_setmark)<br />       (xdge::entity:make ge)<br />       (xdrx_line_make p1 p2)<br />       (xdrx_line_make p1 cen2)<br />       (xdrx_line_make p2 cen2)<br />       (xdrx_entity_setcolor (xdrx_getss) 2)<br /> <br />     )<br />   )<br />   (princ)<br /> )

csharp

都知道了就不绕弯子直接Make Db

用Ge库的话只需计算出第三点然后构造三点弧再由弧取center
r -sqrt (r * r - d* d/4) ，两点中点向两侧中垂线找这个距离点，然后三点构造kCircArc3d

eachy

完全利用 Ge  库

1. (defun c:tt (/ p1 p2 pc ge1 r ge2 gcc n p pc1 pc2)
   
2.   (if (and (setq p1 (getpoint "\nFirst Point: "))
   
3.            (setq p2 (getpoint p1 "\nSecond Point: "))
   
4.            (setq r (getdist p1 "\nRadius: "))
   
5.            (setq ge1 (xdge::constructor "kCircArc3d" p1 '(0. 0. 1.) r))
   
6.            (setq ge2 (xdge::constructor "kCircArc3d" p2 '(0. 0. 1.) r))
   
7.            (setq gcc (xdge::constructor "kCurveCurveInt3d" ge1 ge2))
   
8.            (setq n (xdge::getpropertyvalue gcc "numIntPoints"))
   
9.       )
   
10.     (progn
    
11.       (cond
    
12.         ((zerop n) (princ "\nNo Circle!"))
    
13.         ((= n 1);_相切时numIntPoints 为 1 ，但 API的 intPoint 为 nil 需改进
    
14.          (xdrx_point_make (xdrx_line_midp p1 p2))
    
15.          (xdrx_circle_make (xdrx_line_midp p1 p2) r)
    
16.         )
    
17.         ((= n 2)
    
18.          (setq pc1 (xdge::getpropertyvalue gcc "intPoint" 0)
    
19.                pc2 (xdge::getpropertyvalue gcc "intPoint" 1)
    
20.          )
    
21.          (xdrx_point_make pc1)
    
22.          (xdrx_point_make pc2)
    
23.          (xdrx_circle_make pc1 r)
    
24.          (xdrx_circle_make pc2 r)
    
25.         )
    
26.         (t)
    
27.       )
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

(defun c:tt (/ p1 p2 pc ge1 r ge2 gcc n p pc1 pc2)<br />   (if (and (setq p1 (getpoint "\nFirst Point: "))<br />            (setq p2 (getpoint p1 "\nSecond Point: "))<br />            (setq r (getdist p1 "\nRadius: "))<br />            (setq ge1 (xdge::constructor "kCircArc3d" p1 '(0. 0. 1.) r))<br />            (setq ge2 (xdge::constructor "kCircArc3d" p2 '(0. 0. 1.) r))<br />            (setq gcc (xdge::constructor "kCurveCurveInt3d" ge1 ge2))<br />            (setq n (xdge::getpropertyvalue gcc "numIntPoints"))<br />       )<br />     (progn<br />       (cond<br />         ((zerop n) (princ "\nNo Circle!"))<br />         ((= n 1);_相切时numIntPoints 为 1 ，但 API的 intPoint 为 nil 需改进<br />          (xdrx_point_make (xdrx_line_midp p1 p2))<br />          (xdrx_circle_make (xdrx_line_midp p1 p2) r)<br />         )<br />         ((= n 2)<br />          (setq pc1 (xdge::getpropertyvalue gcc "intPoint" 0)<br />                pc2 (xdge::getpropertyvalue gcc "intPoint" 1)<br />          )<br />          (xdrx_point_make pc1)<br />          (xdrx_point_make pc2)<br />          (xdrx_circle_make pc1 r)<br />          (xdrx_circle_make pc2 r)<br />         )<br />         (t)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

Free-Lancer

这样也不错

1. (defun c:tt (/ p1 p2 radius dis circle1 circle2 intpts pt1 pt2)
   
2.   (if (and (setq p1 (getpoint "\nFirst Point: "))
   
3.            (setq p2 (getpoint p1 "\nSecond Point: "))
   
4.            (setq radius (getdist p1 "\nRadius: "))
   
5.            (setq dis (distance p1 p2))
   
6.            (>= radius (/ dis 2.))
   
7.       )
   
8.     (if        (equal radius (/ dis 2.0) 1e-8)
   
9.       (vlax-invoke (fy:acspace) 'AddCircle (fy:midp p1 p2) radius)
   
10.       (progn
    
11.         (setq circle1 (vlax-invoke (fy:acspace) 'AddCircle p1 radius)
    
12.               circle2 (vlax-invoke (fy:acspace) 'AddCircle p2 radius)
    
13.               intpts  (vlax-invoke circle1 'IntersectWith circle2 0)
    
14.               pt1     (list (car intpts) (cadr intpts) 0.)
    
15.               pt2     (list (nth 3 intpts) (nth 4 intpts) 0.)
    
16.         )
    
17.         (vlax-invoke circle1 'Move p1 pt1)
    
18.         (vlax-invoke circle2 'Move p2 pt2)
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )

(defun c:tt (/ p1 p2 radius dis circle1 circle2 intpts pt1 pt2)<br />   (if (and (setq p1 (getpoint "\nFirst Point: "))<br />            (setq p2 (getpoint p1 "\nSecond Point: "))<br />            (setq radius (getdist p1 "\nRadius: "))<br />            (setq dis (distance p1 p2))<br />            (>= radius (/ dis 2.))<br />       )<br />     (if        (equal radius (/ dis 2.0) 1e-8)<br />       (vlax-invoke (fy:acspace) 'AddCircle (fy:midp p1 p2) radius)<br />       (progn<br />         (setq circle1 (vlax-invoke (fy:acspace) 'AddCircle p1 radius)<br />               circle2 (vlax-invoke (fy:acspace) 'AddCircle p2 radius)<br />               intpts  (vlax-invoke circle1 'IntersectWith circle2 0)<br />               pt1     (list (car intpts) (cadr intpts) 0.)<br />               pt2     (list (nth 3 intpts) (nth 4 intpts) 0.)<br />         )<br />         (vlax-invoke circle1 'Move p1 pt1)<br />         (vlax-invoke circle2 'Move p2 pt2)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

newer

eachy 发表于 2014-9-20 07:58
完全利用 Ge  库

GE库用的很熟了，看来还得学啊。

yarana

太高深了。。。GE库。。哪里调出来的 我只会用VBA编:'(

why1025

先学习！！！！！！！！！！！！！！！！！