有没有判断多段线交点位置的程序

芦苇芦苇

如题，如果两条多段线相接，能不能找出它们交点的位置呢？如果有多个相交点，可以逐步显示它们相交的位置。

csharp

有求交点函数，有点自然就有位置xdrx_entity_intersectwith vla-intersectwith

czx663

VLA-IntersectWith就可以

芦苇芦苇

csharp 发表于 2014-8-24 09:31
有求交点函数，有点自然就有位置xdrx_entity_intersectwith vla-intersectwith

谢谢，不过我不知道怎么用？可不可以给一个lisp的呢？

芦苇芦苇

czx663 发表于 2014-8-24 13:25
VLA-IntersectWith就可以

谢谢，不过我不知道怎么用~~~可以说具体一点吗

czx663

芦苇芦苇 发表于 2014-8-25 08:57
谢谢，不过我不知道怎么用~~~可以说具体一点吗

举个例子:

2. 
   
3. (defun findInsertPoint (/ ent1 ent2)
   
4.   (setq ent1 (car (entsel)))
   
5.   (setq ent2 (car (entsel)))
   
6.   (setq Pt (vlax-safearray->list
   
7.       (vlax-variant-value
   
8.         (vla-IntersectWith
   
9.    (vlax-ename->vla-object Ent1)
   
10.    (vlax-ename->vla-object Ent2)
    
11.    3
    
12.         )
    
13.       )
    
14.     )
    
15.   )
    
16. )
    

<br /> (defun findInsertPoint (/ ent1 ent2)<br />   (setq ent1 (car (entsel)))<br />   (setq ent2 (car (entsel)))<br />   (setq Pt (vlax-safearray->list<br />       (vlax-variant-value<br />         (vla-IntersectWith<br />    (vlax-ename->vla-object Ent1)<br />    (vlax-ename->vla-object Ent2)<br />    3<br />         )<br />       )<br />     )<br />   )<br /> )<br />

芦苇芦苇

czx663 发表于 2014-8-25 22:41
举个例子:

加载后，输入什么命令调用呢？

czx663

芦苇芦苇 发表于 2014-8-26 08:42
加载后，输入什么命令调用呢？

晕倒{:soso_e127:} (findInsertPoint)

芦苇芦苇

czx663 发表于 2014-8-26 11:13
晕倒 (findInsertPoint)

输入后显示：findInsertPoint 未知命令“FINDINSERTPOINT”。按 F1 查看帮助。

XDSoft

芦苇芦苇 发表于 2014-8-26 12:44
输入后显示：findInsertPoint 未知命令“FINDINSERTPOINT”。按 F1 查看帮助。

写的是函数的表示，你要加括号才行。

(FINDINSERTPOINT)

芦苇芦苇

XDSoft 发表于 2014-8-26 13:05
写的是函数的表示，你要加括号才行。

(FINDINSERTPOINT)

谢谢，可以用了。我也想学一下lisp，有没有什么好的电子教程推荐呢？