【AcGe几何库（四十一）】求任意两平面曲线的公切圆弧

newer

使用AcGe几何库可以很方便的得到，使用ARX AcGeCircArc3d类的set方法

AcGeCircArc3d &

set(

const AcGeCurve3d& curve1,

const AcGeCurve3d& curve2,

double radius,

double& param1,

double& param2,

Adesk::Boolean& success);

curve1	Input any 3D curve
curve2	Input any 3D curve
radius	Input radius of arc
param1	Input parameter value on curve1 where arc touches curve
param2	Input parameter value on curve2 where arc touches curve
success	Output to indicate whether the arc was computed successfully

Changes the definition of the arc to be tangent to the two input curves and have the specified radius. The two input curves must be coplanar. This function always returns an arc whose endpoints are the points on the two input curves that correspond to param1 and param2. If this function returns a value for success that is Adesk::kFalse, then this function has not changed the object.




下面是XDRX API的LISP实现代码：

1. (defun c:tt ()
   
2.   (if (setq r (getreal "\n输入半径:"))
   
3.     (progn
   
4.       (while (and
   
5.                (setq e1        (xdrx_entsel
   
6.                           "\n拾取曲线1<退出>:"
   
7.                           '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
   
8.                         )
   
9.                )
   
10.                (setq e2        (xdrx_entsel
    
11.                           "\n拾取曲线2<退出>:"
    
12.                           '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
    
13.                         )
    
14.                )
    
15.              )
    
16.         (if (and
    
17.               (setq p1 (cadr e1))
    
18.               (setq e1 (car e1))
    
19.               (setq p2 (cadr e2))
    
20.               (setq e2 (car e2))
    
21.               (setq g1 (xdge::constructor e1));构建曲线1几何对象
    
22.               (setq g2 (xdge::constructor e2));构建曲线2几何对象
    
23.               (setq pa1 (xdge::getpropertyvalue g1 "paramof" p1));曲线1上拾取点的参数值
    
24.               (setq pa2 (xdge::getpropertyvalue g2 "paramof" p2));曲线2上拾取点的参数值
    
25.               (setq garc (xdge::constructor "kcircarc3d"));构建AcGeCircArc3d对象
    
26.               (xdge::setpropertyvalue garc "set" g1 g2 r pa1 pa2);set方法，成功修改garc到公切圆弧
    
27.             )
    
28.           (progn
    
29.             (xdge::entity:make garc);生成数据库圆弧实体
    
30.             (xdrx_setpropertyvalue (entlast) "color" 2);设置颜色2
    
31.           )
    
32.         )
    
33.         (xdge::free g1 g2 garc);释放创建的几何对象
    
34.       )
    
35.     )
    
36.   )
    
37.   (princ)
    
38. )
    

(defun c:tt ()<br />   (if (setq r (getreal "\n输入半径:"))<br />     (progn<br />       (while (and<br />                (setq e1        (xdrx_entsel<br />                           "\n拾取曲线1<退出>:"<br />                           '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))<br />                         )<br />                )<br />                (setq e2        (xdrx_entsel<br />                           "\n拾取曲线2<退出>:"<br />                           '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))<br />                         )<br />                )<br />              )<br />         (if (and<br />               (setq p1 (cadr e1))<br />               (setq e1 (car e1))<br />               (setq p2 (cadr e2))<br />               (setq e2 (car e2))<br />               (setq g1 (xdge::constructor e1));构建曲线1几何对象<br />               (setq g2 (xdge::constructor e2));构建曲线2几何对象<br />               (setq pa1 (xdge::getpropertyvalue g1 "paramof" p1));曲线1上拾取点的参数值<br />               (setq pa2 (xdge::getpropertyvalue g2 "paramof" p2));曲线2上拾取点的参数值<br />               (setq garc (xdge::constructor "kcircarc3d"));构建AcGeCircArc3d对象<br />               (xdge::setpropertyvalue garc "set" g1 g2 r pa1 pa2);set方法，成功修改garc到公切圆弧<br />             )<br />           (progn<br />             (xdge::entity:make garc);生成数据库圆弧实体<br />             (xdrx_setpropertyvalue (entlast) "color" 2);设置颜色2<br />           )<br />         )<br />         (xdge::free g1 g2 garc);释放创建的几何对象<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />