[求助]请问如何求出两条多义线的交点？

yxp

有这么多求交点的程序，怎么没有人出来整理一下。

我不管了，全部复制下来，漫漫研究吧。

and2008

哈哈，我觉得那个mccad的很好

xyp1964

凑个热闹：

2. (defun x_inters (ename1 ename2)
3.   (setq ptlst (vlax-safearray->list
4.     (vlax-variant-value
5.       (vla-intersectwith (vlax-ename->vla-object ename1) (vlax-ename->vla-object ename2) acextendnone)
6.     )
7.   )
8.   )
9.   (if (> (length ptlst) 3)
10.     (progn (setq #ptlst '())
11.     (repeat (/ (length ptlst) 3)
12.       (setq x   (car ptlst)
13.      ptlst  (cdr ptlst)
14.      y   (car ptlst)
15.      ptlst  (cdr ptlst)
16.      z   (car ptlst)
17.      ptlst  (cdr ptlst)
18.      pt0   (list x y z)
19.      #ptlst (cons pt0 #ptlst)
20.       )
21.     )
22.     (setq #ptlst (reverse #ptlst))
23.     )
24.   )
25.   #ptlst
26. )

(defun x_inters (ename1 ename2)   (setq ptlst (vlax-safearray->list     (vlax-variant-value       (vla-intersectwith (vlax-ename->vla-object ename1) (vlax-ename->vla-object ename2) acextendnone)     )   )   )   (if (> (length ptlst) 3)     (progn (setq #ptlst '())     (repeat (/ (length ptlst) 3)       (setq x   (car ptlst)      ptlst  (cdr ptlst)      y   (car ptlst)      ptlst  (cdr ptlst)      z   (car ptlst)      ptlst  (cdr ptlst)      pt0   (list x y z)      #ptlst (cons pt0 #ptlst)       )     )     (setq #ptlst (reverse #ptlst))     )   )   #ptlst )

实例：
(x_inters(car(entsel"\n线1 : "))(car(entsel"\n线2 : ")))
线1 :
线2 : ((54632.4 9711.19 0.0) (60869.0 7321.07 0.0) (68407.1 6801.17 0.0)
(67617.9 11573.2 0.0))

whj0000

1，当LWPOLYLINE很复杂如由几百段线组成时vla-intersectwith 方法会很慢，请问有没有特别的方法提高速度？
2，上面那个程序当两个LWPOLYLINE不相交时应该会出错吧

xyp1964

任意条曲线交点集：

2. (load "xyp_lib")
3. ;|加载通用函数(可在签名栏直接下载)
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
13. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]|;
14. (defun c:test ()
15.   (setq p (CURVE_INTERS))
16.   p
17. )

(load "xyp_lib") ;|加载通用函数(可在签名栏直接下载) 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 5.将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]|; (defun c:test ()   (setq p (CURVE_INTERS))   p )

无痕

xyp1964发表于2005-8-29 22:14:00凑个热闹：(defun x_inters (ename1 ename2)(setq ptlst (vlax-safearray->list(vl...

这样岂不是更爽？

2. (defun intpts (e1 e2 k / lst lst2)
3.   (setq lst (vlax-invoke(vlax-ename->vla-object e1)'intersectwith(vlax-ename->vla-object e2) k))
4.   (IF lst
5.     (repeat (/ (length lst) 3)
6.       (setq lst2 (cons (list (car lst) (cadr lst) (caddr lst)) lst2)
7.      lst  (cdddr lst)
8.       )
9.     )
10.   )
11.   (reverse lst2)
12. )

(defun intpts (e1 e2 k / lst lst2)   (setq lst (vlax-invoke(vlax-ename->vla-object e1)'intersectwith(vlax-ename->vla-object e2) k))   (IF lst     (repeat (/ (length lst) 3)       (setq lst2 (cons (list (car lst) (cadr lst) (caddr lst)) lst2)      lst  (cdddr lst)       )     )   )   (reverse lst2) )

地鼠

受益非浅，我想，有了这个代码。估计自动作断面就存在可能了：）

xuming

朋友们，我是一矿山技术人员，经常要用CAD设计道路，但我不会编程。上面如此多求交点的程序，

我看了很久，却仍不会用。我现在佷需求一程序，让选择一1任意线（线型不限，线有x,y或有z值，或有标高），在平面内与2另许多线（线型不限，线有x,y或有z值，或有标高）相交，让程序按1线选择方向按次序列出2线中交点的坐标（需x,y,z)，输出为txt或excel格式。程序请设计成LSP格式。多谢了！qq:308302994

userzhl

大家可以这样吗？就是求出交点后在交点处断开？

tcsl9621

是的，楼上的说的对，LISP只加载就可以用。编译后只是快点而已。应当在程序前加上(vl-load-com)来将 Visual LISP 扩展功能加载到 AutoLISP。