[编程申请]：?请教如何求多义线（或样条曲线）和一条直线的交点?

panzhongw

?请教如何求多义线（或样条曲线）和一条直线的交点?
（已选择一条多义线和一条直线，有且只有一个交点）

cssanhui

下面这个程序是用ARX编的，lsp程序可调用，函数名为(ent_inter_ent ent1 ent2 0),ent1和ent2为实体名。如两实体相交没有交点，则返回nil。最后一个参数可选0,1,2,3,具体用法为不延伸0，延伸本身1，延伸相交实体2，都延伸3。下载后先加载该程序，然后在lsp程序中调用。
考虑到你的爱心币不多，就不收你的费用了。

LUCAS

打斷所有交點
http://www.xdcad.net/forum/showt ... tid=50185#post50185

panzhongw

谢谢！archtool.arx还有其它函数吗？

XDSoft

最初由 panzhongw 发布
[B]谢谢！archtool.arx还有其它函数吗？ [/B]

XDRX_API

2. <normalfont>
   
3. 86. xdrx_getinters
   
4. 
   
5. 功能：1.求两个AcDbCurve(曲线)实体的交点.
   
6.       2.求一个AcDbCurve(曲线)实体和一个选择集中所有AcDbCurve(曲线)的交点。
   
7.       3.求一个选择集中所有AcDbCurve(曲线)实体的交点.
   
8.       4.求一个选择集SS1中的所有AcDbCurve实体和另个选择集SS2所有AcDbCurve实体的交点。
   
9.       
   
10. 调用格式： 1. (xdrx_getinters <实体图元1> <实体图元2> [扩展方式])
    
11.           2. (xdrx_getinters <实体图元名> <选择集> [扩展方式])
    
12.           2. (xdrx_getinters <选择集> [扩展方式])
    
13.           3. (xdrx_getinters <选择集1> <选择集2> [扩展方式])
    
14.           4. (xdrx_getinters (<pt1>...<ptn>) <曲线实体名> [扩展方式])
    
15.           5. (xdrx_getinters (<pt1>...<ptn>) <选择集> [扩展方式])
    
16.           6. (xdrx_getinters (<pt1>...<ptn>) (<pt1>...<ptn>) [扩展方式])
    
17. 
    
18. 说明：1.程序能求AcDbCurve(包括：AcDbLine、AcDbArc、AcDbCircle、AcDbEllipse、AcDbSpline、
    
19.        AcDbPolyline(lwpolyline)交点。
    
20.      2.参数[扩展方式]：
    
21.        对于1种情况：
    
22.          0：不延伸实体
    
23.          1：延伸第一个实体
    
24.          2：延伸第二个实体
    
25.          3: 两个都延伸
    
26.        对于第二、三、四种情况(选择集):
    
27.          0: 不延伸实体
    
28.          1: 两个都延伸
    
29. 
    
30. 示例： 1. 求天正建筑软件轴线层上，所有轴线的交点
    
31.       (if (setq ss (ssget "x" (list (cons 8 (xdrx_getlyrname "轴线")) '((0 . "line")))))
    
32.          (progn
    
33.              (setq intl (xdrx_getinters ss))
    
34.          )
    
35.       )
    
36.       
    
37.       2. 点取一根轴线，然后求出与这个轴线相交的所有轴线交点。
    
38.       (setq lyr (xdrx_getlyrname "轴线"))
    
39.       (if (setq en (xdrx_entsel "\n请点取一个轴线<退出>:" (list (cons 8 lyr) '(0 . "line"))))
    
40.          (progn
    
41.             (xdrx_setentodb)
    
42.             (setq p1 (xdrx_getentdxf 10)
    
43.                   p2 (xdrx_getentdxf 11)
    
44.                   ss (ssget "f" p1 p2 (list (cons 8 lyr) '(0 . "line")))
    
45.             )
    
46.             (if (setq intl (xdrx_getinters (car en) ss))
    
47.                (progn
    
48.                   .....;;intl中为交点表
    
49.                )
    
50.             )
    
51.          )
    
52.       )         
    
53. 
    
54. </font>

<normalfont><br /> 86. xdrx_getinters<br /> <br /> 功能：1.求两个AcDbCurve(曲线)实体的交点.<br />       2.求一个AcDbCurve(曲线)实体和一个选择集中所有AcDbCurve(曲线)的交点。<br />       3.求一个选择集中所有AcDbCurve(曲线)实体的交点.<br />       4.求一个选择集SS1中的所有AcDbCurve实体和另个选择集SS2所有AcDbCurve实体的交点。<br />       <br /> 调用格式： 1. (xdrx_getinters <实体图元1> <实体图元2> [扩展方式])<br />           2. (xdrx_getinters <实体图元名> <选择集> [扩展方式])<br />           2. (xdrx_getinters <选择集> [扩展方式])<br />           3. (xdrx_getinters <选择集1> <选择集2> [扩展方式])<br />           4. (xdrx_getinters (<pt1>...<ptn>) <曲线实体名> [扩展方式])<br />           5. (xdrx_getinters (<pt1>...<ptn>) <选择集> [扩展方式])<br />           6. (xdrx_getinters (<pt1>...<ptn>) (<pt1>...<ptn>) [扩展方式])<br /> <br /> 说明：1.程序能求AcDbCurve(包括：AcDbLine、AcDbArc、AcDbCircle、AcDbEllipse、AcDbSpline、<br />        AcDbPolyline(lwpolyline)交点。<br />      2.参数[扩展方式]：<br />        对于1种情况：<br />          0：不延伸实体<br />          1：延伸第一个实体<br />          2：延伸第二个实体<br />          3: 两个都延伸<br />        对于第二、三、四种情况(选择集):<br />          0: 不延伸实体<br />          1: 两个都延伸<br /> <br /> 示例： 1. 求天正建筑软件轴线层上，所有轴线的交点<br />       (if (setq ss (ssget "x" (list (cons 8 (xdrx_getlyrname "轴线")) '((0 . "line")))))<br />          (progn<br />              (setq intl (xdrx_getinters ss))<br />          )<br />       )<br />       <br />       2. 点取一根轴线，然后求出与这个轴线相交的所有轴线交点。<br />       (setq lyr (xdrx_getlyrname "轴线"))<br />       (if (setq en (xdrx_entsel "\n请点取一个轴线<退出>:" (list (cons 8 lyr) '(0 . "line"))))<br />          (progn<br />             (xdrx_setentodb)<br />             (setq p1 (xdrx_getentdxf 10)<br />                   p2 (xdrx_getentdxf 11)<br />                   ss (ssget "f" p1 p2 (list (cons 8 lyr) '(0 . "line")))<br />             )<br />             (if (setq intl (xdrx_getinters (car en) ss))<br />                (progn<br />                   .....;;intl中为交点表<br />                )<br />             )<br />          )<br />       )          <br /> <br /> </font>

cssanhui

最初由 panzhongw 发布
[B]谢谢！archtool.arx还有其它函数吗？ [/B]

archtool.arx 是一个编译好的可执行程序，就含一个函数，是我从ARX程序中摘下的，你只用将他copy到CAD可搜索路径下，在lsp程序中用先arxload加载一下，然后调用(ent_inter_ent ent1 ent2 0)函数。

aeo

1. 
   
2. RetVal = object.IntersectWith(IntersectObject, ExtendOption)
   
3. 
   
4. Object
   
5. 
   
6. All Drawing Objects (Except Pviewport and PolygonMesh)
   
7. The object or objects this method applies to.
   
8. 
   
9. IntersectObject
   
10. 
    
11. Object, input-only;
    
12. The object can be one of All Drawing Objects.
    
13. 
    
14. 
    
15. ExtendOption
    
16. 
    
17. AcExtendOption enum; input-only
    
18. This option specifies if one or the other, both, or none of the entities are to be extended in order to attempt an intersection.
    
19. 
    
20. acExtendNone
    
21. Does not extend either object.
    
22. 
    
23. acExtendThisEntity
    
24. Extends the base object.
    
25. 
    
26. acExtendOtherEntity
    
27. Extends the object passed as an argument.
    
28. 
    
29. acExtendBoth
    
30. Extends both objects.
    
31. 
    
32. 
    
33. RetVal
    
34. 
    
35. Variant (array of doubles)
    
36. The array of points where one object intersects another object in the drawing.
    
37. 
    

复制代码

(vla-IntersectWith  ob1 ob2 extend)--->Variant
(vlax-safearray->list
(vlax-variant-value Variant))---->list

ZOUWU

我也试一试