XDGE几何库应用(五)--两曲线间最近距离

st788796

void

getClosestPointTo(

const AcGeCurve3d& curve3d,

AcGePointOnCurve3d& pntOnThisCrv,

AcGePointOnCurve3d& pntOnOtherCrv,

const AcGeTol& tol = AcGeContext::gTol) const;

curve3d	输入任意3D曲线
pntOnThisCrv	输出这条曲线上的最近点
pntOnOtherCrv	输出输入曲线上最近点
tol	输入公差

找出这条曲线和输入曲线间最近的点。除了最近点被回归为“AcGePointOnCurve2d”的对象之外，此函数与函数“closestPointTo()”一样。

1. (defun c:tt (/ e1 e2 ge1 ge2 gcc ss)
   
2.   (if (and (setq e1 (xdrx_entsel
   
3.                       "\nPick Curve: "
   
4.                       '((0 . "*LINE,ARC,CIRCLE,RAY,ELLIPSE"))
   
5.                     )
   
6.            )
   
7.            (setq e2 (xdrx_entsel
   
8.                       "\nPick Curve: "
   
9.                       '((0 . "*LINE,ARC,CIRCLE,RAY,ELLIPSE"))
   
10.                     )
    
11.            )
    
12.            (setq ge1 (xdge::constructor (car e1)))
    
13.            (setq ge2 (xdge::constructor (car e2)))
    
14.            (setq gcc (xdge::getpropertyvalue
    
15.                        ge1
    
16.                        "getClosestPointTo"
    
17.                        ge2
    
18.                      )
    
19.            )
    
20.       )
    
21.     (progn
    
22.       (setq
    
23.         ss (apply
    
24.              'xdrx_line_make
    
25.              (mapcar '(lambda (x) (xdge::getpropertyvalue x "Point"))
    
26.                      gcc
    
27.              )
    
28.            )
    
29.       )
    
30.       (xdrx_entity_setcolor ss 1)
    
31.       (xdge::free)
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )

(defun c:tt (/ e1 e2 ge1 ge2 gcc ss)<br />   (if (and (setq e1 (xdrx_entsel<br />                       "\nPick Curve: "<br />                       '((0 . "*LINE,ARC,CIRCLE,RAY,ELLIPSE"))<br />                     )<br />            )<br />            (setq e2 (xdrx_entsel<br />                       "\nPick Curve: "<br />                       '((0 . "*LINE,ARC,CIRCLE,RAY,ELLIPSE"))<br />                     )<br />            )<br />            (setq ge1 (xdge::constructor (car e1)))<br />            (setq ge2 (xdge::constructor (car e2)))<br />            (setq gcc (xdge::getpropertyvalue<br />                        ge1<br />                        "getClosestPointTo"<br />                        ge2<br />                      )<br />            )<br />       )<br />     (progn<br />       (setq<br />         ss (apply<br />              'xdrx_line_make<br />              (mapcar '(lambda (x) (xdge::getpropertyvalue x "Point"))<br />                      gcc<br />              )<br />            )<br />       )<br />       (xdrx_entity_setcolor ss 1)<br />       (xdge::free)<br />     )<br />   )<br />   (princ)<br /> )

/db_自贡黄明儒_

你终于想到办法了，我还没有思路，能谈谈你的思路吗？

csharp

/db_自贡黄明儒_ 发表于 2014-9-17 09:43
你终于想到办法了，我还没有思路，能谈谈你的思路吗？

这个ARX AcGe 类中本来就有函数直接实现的，不需要算法