[LISP函数]：请问这个函数？

redapple

在论坛上看到xdrx_getinters函数，是XD工具箱的功能之一吧。因为我这里没能成功安装工具箱，所以如果哪位朋友方便话，请帮我把源代码贴上来，多谢多谢！

eachy

xdrx_getinters 是api中的函数，功能是获得曲线交点，没有源码，在lisp论坛有个Vlisp 实现方法的代码。

redapple

再请问：这个函数的用法在哪里有？帮助里面有没有？我在论坛上看到的很多函数都不知道？比如：RetVal = object.IntersectWith(IntersectObject, ExtendOption)
        xdrx_entity_interSect.....
能否告知有没有这些函数大全？那样就好了!

eachy

最初由 redapple 发布
[B]再请问：这个函数的用法在哪里有？帮助里面有没有？我在论坛上看到的很多函数都不知道？比如：RetVal = object.IntersectWith(IntersectObject, ExtendOption)
        xdrx_entity_interSect.....
能否告知有没有... [/B]

1 InterSectWith帮助在Acad.help中可以找到
2

2. 
   
3. 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.            3. (xdrx_getinters <选择集> [扩展方式])
    
13.            4. (xdrx_getinters <选择集1> <选择集2> [扩展方式])
    
14.            5. (xdrx_getinters (<pt1>...<ptn>) <曲线实体名> [扩展方式])
    
15.            6. (xdrx_getinters (<pt1>...<ptn>) <选择集> [扩展方式])
    
16.            7. (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.                 )
    

<br /> 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 />            3. (xdrx_getinters <选择集> [扩展方式])<br />            4. (xdrx_getinters <选择集1> <选择集2> [扩展方式])<br />            5. (xdrx_getinters (<pt1>...<ptn>) <曲线实体名> [扩展方式])<br />            6. (xdrx_getinters (<pt1>...<ptn>) <选择集> [扩展方式])<br />            7. (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 />

花开梦落

最初由 eachy 发布
[B]xdrx_getinters 是api中的函数，功能是获得曲线交点，没有源码，在lisp论坛有个Vlisp 实现方法的代码。 [/B]

eachy，能告知实现这个方法的Vlisp代码所在的地址吗？还有API中的函数的帮助在哪儿有？