[编程申请]：求解交点个数的程序！

lisp730 · 发表于 2003-8-22 11:17:37

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

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

×

我在工作中最费劲的就是数许多直线交点个数，请问那位高手可以编制此类LISP，ARX程序给我帮忙一下？感激不尽！

zhqchn · 发表于 2003-8-22 11:38:21

该不是所有直线的所有交点吧！你应该贴张图说明一下，到底是什么样的直线，什么样的交点，是哪个专业方面的。

lsjjm · 发表于 2003-8-22 11:57:21

用(vla-IntersectWith obj1 obj2 mode) 函数编程.

XDSoft · 发表于 2003-8-22 13:29:43

最初由 lisp730 发布
[B]我在工作中最费劲的就是数许多直线交点个数，请问那位高手可以编制此类LISP，ARX程序给我帮忙一下？感激不尽！ [/B]

用XDRX_API 函数xdrx_getinters 一个函数搞定一切

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

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

agang198 · 发表于 2003-8-22 17:43:14

请教：
如何用lisp建立选择范围内的所有交点选择集(多条直线与1条spline线)。
谢谢谢

XDSoft · 发表于 2003-8-22 18:01:29

最初由 agang198 发布
[B]请教：
如何用lisp建立选择范围内的所有交点选择集(多条直线与1条spline线)。
谢谢谢 [/B]

获得直线选择集SS，SPLINE实体名e

那么：

(setq ints (xdrx_getinters e ss))

获得SPLINE和所有直线的交点。

lisp730 · 发表于 2003-8-23 09:10:07

我的意思是：在机械制图绘制换热器排管图中要求计算换热管数量，如何能够以求多条直线交点数量的办法获得！
麻烦各位高人了！

eachy · 发表于 2003-8-23 09:16:23

最初由 lisp730 发布
[B]我的意思是：在机械制图绘制换热器排管图中要求计算换热管数量，如何能够以求多条直线交点数量的办法获得！
麻烦各位高人了！ [/B]

(setq ss (ssget '((0 . "line"))));;构造直线选择集
(setq ints (xdrx_getinters ss 0)) ;;选择直线内的所有交点
(princ (strcat "\交点数量＝ " (itoa (length ints))))

lisp730 · 发表于 2003-8-23 11:40:17

要R14版求多条直线交点数量-难道真的不存在高人吗？

lsjjm · 发表于 2003-8-25 18:00:05

参考:
SweepLine.lsp by Daniele Piazza.
This is a "SWEEPLINE algorithm to compute all intersection points of n line segments"
(Preparata & Shamos - Computational Geometry: an introduction)
This is again academic code and should be used if you expect a huge number of lines to intersect and you are looking for all intersection points. (sweepline) should run in O(n*logn), but the shell sort in AutoLISP is too slow.

;;; Otherwise a greedy method like this is sufficient:
;;; O(n*2),  exactly: O(n*(n-1))
;;; test each line with all other lines
;;; segments: ((p1 p2)(p1 p2)...)
(defun greedy-all-intersections (segments / seg1 rest seg2 pt pts)
  (setq rest segments)
  (foreach seg1 segments
(setq rest (cdr rest))
(foreach seg2 rest
   (if (setq pt (inters (car seg1)(cadr seg1)(car seg2)(cadr seg2) T))
      (setq pts (cons pt pts)))))
  pts
)

Extensions:
It is possible to add bulged segments too by extending the data structure "segment" with (p1 p2 bulge) for curved segments and use a line-arc resp. arc-arc intersection method for those. Then a straight segment is still representable with (p1 p2)

eachy · 发表于 2003-8-25 19:34:50

最初由 lisp730 发布
[B]要R14版求多条直线交点数量-难道真的不存在高人吗？ [/B]

R14下不用ARX或者Vlisp，仅用Lisp求交点（spline、含弧的pline、ellipse、arc），没戏。
LUCAS贴过一个求选择集交点的函数（ActiveX方法）

lisp730 · 发表于 2003-8-27 08:31:17

问英雄何处？聚晓东空间否，高人何处?呜乎哀哉！

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

[编程申请]：求解交点个数的程序！

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

相关帖子

Re: [编程申请]：求解交点个数的程序！

浏览过的版块