XDGE几何库应用(三) --两曲线相切圆

st788796

AcGeCircArc3d &

set(

const AcGeCurve3d& curve1,

const AcGeCurve3d& curve2,

double radius,

double& param1,

double& param2,

Adesk::Boolean& success);

curve1	输入任意3D曲线1
curve2	输入任意3D曲线2
radius	输入弧线半径
param1	输入曲线1上弧线的高程曲线参数值
param2	输入曲线2上弧线的高程曲线参数值
success	输出表示计算弧线是否成功

修改弧线的定义使弧线与两条输入曲线相切并含有指定半径。这个函数总是返回弧线，弧线的终点是和“param1”与“param2”相符的两输入曲线上的点。如果函数返回“success”的值是Adesk::kFalse,则函数未改变对象。

其中的参数表示计算圆的方向，即在那一边计算相切圆，只好i一个参考值

CAD中命令为

命令: cc CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:

用 Ge 函数完成 主要的函数是： (xdge::setpropertyvalue gcc "set" ge1 ge2 d pam1 pam2)

1. (defun c:tt (/ e1 e2 ge1 ge2 gcc pam1 pam2 d info)
   
2.   (if (and (setq e1 (xdrx_entsel
   
3.                       "\nPick Curve: "
   
4.                       '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
   
5.                     )
   
6.            )
   
7.            (setq e2 (xdrx_entsel
   
8.                       "\nPick Curve: "
   
9.                       '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
   
10.                     )
    
11.            )
    
12.            (setq d (getdist (cadr e1) "\nRadius: "))
    
13.            (setq pam1 (apply 'xdrx_curve_getparamatpoint e1)
    
14.                  pam2 (apply 'xdrx_curve_getparamatpoint e2)
    
15.            )
    
16.            (setq ge1 (xdge::constructor (car e1)))
    
17.            (setq ge2 (xdge::constructor (car e2)))
    
18.            (setq gcc (xdge::constructor
    
19.                        "kCircArc3d"
    
20.                        '(0.0 0.0 0.0)
    
21.                        '(0.0 0.0 1.0)
    
22.                        1.0
    
23.                      );_创建两个临时Ge圆
    
24.            )
    
25.            (setq info (xdge::setpropertyvalue gcc "set" ge1 ge2 d pam1 pam2))
    
26.       )
    
27.     (progn
    
28.       (xdge::entity:make gcc)
    
29.       (xdge::free)
    
30.       ;;(princ info)
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )

(defun c:tt (/ e1 e2 ge1 ge2 gcc pam1 pam2 d info)<br />   (if (and (setq e1 (xdrx_entsel<br />                       "\nPick Curve: "<br />                       '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))<br />                     )<br />            )<br />            (setq e2 (xdrx_entsel<br />                       "\nPick Curve: "<br />                       '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))<br />                     )<br />            )<br />            (setq d (getdist (cadr e1) "\nRadius: "))<br />            (setq pam1 (apply 'xdrx_curve_getparamatpoint e1)<br />                  pam2 (apply 'xdrx_curve_getparamatpoint e2)<br />            )<br />            (setq ge1 (xdge::constructor (car e1)))<br />            (setq ge2 (xdge::constructor (car e2)))<br />            (setq gcc (xdge::constructor<br />                        "kCircArc3d"<br />                        '(0.0 0.0 0.0)<br />                        '(0.0 0.0 1.0)<br />                        1.0<br />                      );_创建两个临时Ge圆<br />            )<br />            (setq info (xdge::setpropertyvalue gcc "set" ge1 ge2 d pam1 pam2))<br />       )<br />     (progn<br />       (xdge::entity:make gcc)<br />       (xdge::free)<br />       ;;(princ info)<br />     )<br />   )<br />   (princ)<br /> )

/db_自贡黄明儒_

(3P)时，捕捉三个切点，就可画出一个圆来