XDGE几何库应用(八)----抠出两条线重叠的部分

XDSoft

函数用法：（翻译的坑爹，凑合看吧）

AcGeLinearEnt3d::overlap Function

Adesk::Boolean

overlap(

const AcGeLinearEnt3d& line,

AcGeLinearEnt3d*& overlap,

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

line	输入任意3D直线实体
overlap	输出与重复部分地区的一致的的线性实体
tol	输入公差

判断两条线是否重复，以及是否如此回归与它们重复部分地区一致的直线。 回归完的重复部分线可能是任何AcGeLinearEnt3d的类型所引出的对象，依赖于两条线的类型。

重复部分参数是由操作符建立的且删除它是用户的责任。 如果此函数回归Adesk:kFalse中的值，则重复部分的参数是无效的。

下面代码主要功能，找出两条线重叠的部分给抠出来，平移出重叠部分三分之一长度，颜色变成黄色。

主要函数： (setq ge3 (xdge::getpropertyvalue ge1 "overlap" ge2))

这个函数对AcGeLinearEnt3d派生的子类AcGeLine3d,AcGeLineSeg3d,AcGeRay3d都有效。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e1 (car (xdrx_entsel "\n拾取第一条曲线<退出>:")))
   
4.         (setq e2 (car (xdrx_entsel "\n拾取第二条曲线<退出>:")))
   
5.         (setq ge1 (xdge::constructor e1))
   
6.         (setq ge2 (xdge::constructor e2))
   
7.       )
   
8.     (progn
   
9.       (if (setq ge3 (xdge::getpropertyvalue ge1 "overlap" ge2))
   
10.         (progn
    
11.           (setq pnt (xdge::getpropertyvalue ge3 "pointOnLine")
    
12.                 dir (xdge::getpropertyvalue ge3 "direction")
    
13.                 vdir (xdrx_vector_PerpVector  dir)
    
14.                 dis (xdge::getpropertyvalue ge3 "length")
    
15.                 vdir (xdrx_vector_product vdir (/ dis 3.0))
    
16.                 pnt2 (mapcar '+ pnt vdir)
    
17.           )
    
18.           (setq e3 (xdge::entity:make ge3))
    
19.           (xdrx_entity_copy e3 pnt pnt2)
    
20.           (xdrx_entity_setcolor (entlast) 2)
    
21.         )
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )

(defun c:tt ()<br />   (if (and<br />         (setq e1 (car (xdrx_entsel "\n拾取第一条曲线<退出>:")))<br />         (setq e2 (car (xdrx_entsel "\n拾取第二条曲线<退出>:")))<br />         (setq ge1 (xdge::constructor e1))<br />         (setq ge2 (xdge::constructor e2))<br />       )<br />     (progn<br />       (if (setq ge3 (xdge::getpropertyvalue ge1 "overlap" ge2))<br />         (progn<br />           (setq pnt (xdge::getpropertyvalue ge3 "pointOnLine")<br />                 dir (xdge::getpropertyvalue ge3 "direction")<br />                 vdir (xdrx_vector_PerpVector  dir)<br />                 dis (xdge::getpropertyvalue ge3 "length")<br />                 vdir (xdrx_vector_product vdir (/ dis 3.0))<br />                 pnt2 (mapcar '+ pnt vdir)<br />           )<br />           (setq e3 (xdge::entity:make ge3))<br />           (xdrx_entity_copy e3 pnt pnt2)<br />           (xdrx_entity_setcolor (entlast) 2)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

牢固

多文档运行该程序有问题！
文档1可以正常运行，再打开文档2后，文档2可以正常运行该程序，但是切回到文档1运行时会出现错误：

XDSoft

牢固 发表于 2014-9-17 12:50
多文档运行该程序有问题！
文档1可以正常运行，再打开文档2后，文档2可以正常运行该程序，但是切回到文档1 ...

程序最后加个 (xdge::free) 试试。

牢固

XDSoft 发表于 2014-9-17 12:54
程序最后加个 (xdge::free) 试试。

外甥打灯笼--照旧！

XDSoft

牢固 发表于 2014-9-17 13:12
外甥打灯笼--照旧！

我看看