XDGE几何库应用(11)--两曲线公切线

st788796 · 发表于 2014-9-21 19:28:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 st788796 于 2014-11-1 08:01 编辑

相当于 tan tan 两切点绘制方式
AcGeCircArc3d& set(
const AcGeCurve3d& curve1,
   const AcGeCurve3d& curve2,
   const AcGeCurve3d& curve3,
double& param1,
   double& param2,
   double& param3,
Adesk::Boolean& success
);

(defun c:Tt (/ e1 e2 ge1 ge2 pam1 pam2 gln)
(and (setq e1 (xdrx_entsel
"\nPick Curve1: "
'((0 . "CIRCLE,ARC,SPLINE,ELLIPSE"))
)
)
(setq e2 (xdrx_entsel
"\nPick Curve2: "
'((0 . "CIRCLE,ARC,SPLINE,ELLIPSE"))
)
)
(setq ge1 (xdge::constructor (car e1))
ge2 (xdge::constructor (car e2))
pam1 (xdge::getpropertyvalue
ge1
"paramOf"
(xdge::getpropertyvalue
ge1
"closestPointTo"
(cadr e1)
)
)
pam2 (xdge::getpropertyvalue
ge2
"paramOf"
(xdge::getpropertyvalue
ge2
"closestPointTo"
(cadr e2)
)
)
gln (xdge::constructor "kLineSeg3d")
)
(xdge::setpropertyvalue gln "set" ge1 ge2 pam1 pam2)
(xdge::entity:make gln)
(xdrx_entity_setcolor (entlast) 1)
)
(princ)
)

(defun c:Tt (/ e1 e2 ge1 ge2 pam1 pam2 gln) 
  (and (setq e1        (xdrx_entsel 
                  "\nPick Curve1: " 
                  '((0 . "CIRCLE,ARC,SPLINE,ELLIPSE")) 
                ) 
       ) 
       (setq e2        (xdrx_entsel 
                  "\nPick Curve2: " 
                  '((0 . "CIRCLE,ARC,SPLINE,ELLIPSE")) 
                ) 
       ) 
       (setq ge1  (xdge::constructor (car e1)) 
             ge2  (xdge::constructor (car e2)) 
             pam1 (xdge::getpropertyvalue 
                    ge1 
                    "paramOf" 
                    (xdge::getpropertyvalue 
                      ge1 
                      "closestPointTo" 
                      (cadr e1) 
                    ) 
                  ) 
             pam2 (xdge::getpropertyvalue 
                    ge2 
                    "paramOf" 
                    (xdge::getpropertyvalue 
                      ge2 
                      "closestPointTo" 
                      (cadr e2) 
                    ) 
                  ) 
             gln  (xdge::constructor "kLineSeg3d") 
       ) 
       (xdge::setpropertyvalue gln "set" ge1 ge2 pam1 pam2) 
       (xdge::entity:make gln) 
       (xdrx_entity_setcolor (entlast) 1) 
  ) 
  (princ) 
)

公切线有很多，这里的参数提供一个参考大致在那个方向起始计算

牢固 · 发表于 2014-9-22 09:08:20

本帖最后由牢固于 2014-9-22 09:10 编辑

你用的是这个arx函数定义：

AcGeLineSeg3d &

set(

const AcGeCurve3d& curve1,

const AcGeCurve3d& curve2,

double& param1,

double& param2,

Adesk::Boolean& success);

curve1	输入任何3D曲线
curve2	输入任何3D曲线
param1	输入curve1上的点，在这个点上线段与曲线相切
param2	输入curve2上的点，在这个点上线段与曲线相切
success	输出切线是否计算成功

改变线段定义，以便线段与两条输入曲线相切。在输入中，param假设包含一个切点参数的初始估计值。如果线段计算成功，则输出参数success为true。如果success返回0，则线段保持不变。

楼上这个定义是计算三曲线的公切圆！

st788796 · 发表于 2014-9-22 09:31:52

牢固发表于 2014-9-22 09:08
你用的是这个arx函数定义：
AcGeLineSeg3d &set(const AcGeCurve3d& curve1,const AcGeCurve3d& curve2,do ...

没错，用的就是这个定义，用 XdGe 函数实现在 ARX 中才能使用的功能{:soso_e100:}

Lisphk · 发表于 2014-9-22 10:13:13

st788796 发表于 2014-9-22 09:31
没错，用的就是这个定义，用 XdGe 函数实现在 ARX 中才能使用的功能

大师，是说用LISP就可以干以前ARX才能干的事？

st788796 · 发表于 2014-9-22 10:20:56

Lisphk 发表于 2014-9-22 10:13
大师，是说用LISP就可以干以前ARX才能干的事？

在 Autocad 下 AcGe 库原本只是 ARX "独享" 的一个高效工具，现在通过 XdGe 函数接口，AutoLisp 也可以使用这一工具，在很多算法上有了更方便高效工具，简化了代码，用 ARX 的方式方法写 AutoLisp 应用！

st788796 · 发表于 2014-9-22 11:35:04

本帖最后由 st788796 于 2014-9-22 11:38 编辑

Lisphk 发表于 2014-9-22 10:13
大师，是说用LISP就可以干以前ARX才能干的事？

用 Ge 库可以自动计算出这个 LineSeg3d 取得 startPoint 后就是 Circle 上点

可以看到参数（即点取位置）决定了绘制哪个切线

extrainfo · 发表于 2014-10-11 18:32:42

这个帮了我大忙了

extrainfo · 发表于 2014-10-11 18:35:33

st788796 发表于 2014-9-22 10:20
在 Autocad 下 AcGe 库原本只是 ARX "独享" 的一个高效工具，现在通过 XdGe 函数接口，AutoLisp 也可以 ...

原来是这么回事

账号		自动登录	找回密码
密码			立即注册

[教学] XDGE几何库应用(11)--两曲线公切线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐:

点评

点评