【AcGe几何库（四十二）】平面三曲线的公切圆（三切圆）

newer

使用AcGeCircArc2d的set方法

AcGeCircArc2d &

set(

const AcGeCurve2d& curve1,

const AcGeCurve2d& curve2,

const AcGeCurve2d& curve3,

double& param1,

double& param2,

double& param3,

Adesk::Boolean& success);

curve1	Input any 2D curve
curve2	Input any 2D curve
curve3	Input any 2D curve
param1	Input parameter value on curve1 where arc touches curve
param2	Input parameter value on curve2 where arc touches curve
param3	Input parameter value on curve3 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 three input curves. This function always returns a full circle. If this function returns a value for success that is Adesk::kFalse, then this function has not changed the object.

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

(defun c:tt ()<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 />            (setq e3 (xdrx_entsel<br />                       "\n拾取曲线3<退出>:"<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 p3 (cadr e3))<br />           (setq e3 (car e3))<br />           (setq g1 (xdge::constructor e1)) ;构建曲线1几何对象<br />           (setq g2 (xdge::constructor e2)) ;构建曲线2几何对象<br />           (setq g3 (xdge::constructor e3)) ;构建曲线2几何对象<br />           (setq pa1 (xdge::getpropertyvalue g1 "paramof" p1))<br />                                         ;曲线1上拾取点的参数值<br />           (setq pa2 (xdge::getpropertyvalue g2 "paramof" p2))<br />                                         ;曲线2上拾取点的参数值<br />           (setq pa3 (xdge::getpropertyvalue g3 "paramof" p3))<br />                                         ;曲线2上拾取点的参数值<br />           (setq g-1 (xdge::entity:3d->2d g1));3d几何对象转2d<br />           (setq g-2 (xdge::entity:3d->2d g2));3d几何对象转2d<br />           (setq g-3 (xdge::entity:3d->2d g3));3d几何对象转2d<br />           (setq garc (xdge::constructor "kcircarc2d"))<br />                                         ;构建AcGeCircArc2d对象<br />           (xdge::setpropertyvalue garc "set" g-1 g-2 g-3 pa1 pa2 pa3)<br />                                         ;set方法，成功修改garc到公切圆弧<br />         )<br />       (progn<br />         (xdge::entity:make garc)        ;生成数据库圆弧实体<br />         (xdrx_setpropertyvalue (entlast) "color" 2) ;设置颜色2<br />       )<br />     )<br />     (xdge::free g1 g2 g3 g-1 g-2 g-3 garc)                ;释放创建的几何对象<br />   )<br />   (princ)<br /> )<br />

yangjian001

好像比较难呀