[求助]：捕捉交点!!!!

handonglong

两线条ob1 和ob2相交,如何用语言找出交点?

nuomandi

(inters pt1 pt2 pt3 pt4 [onseg])
用inters函数，你查一查用法就可以了！！！

狂刀

vla－intersectwith

handonglong

能否用代码详细说明?

默然回首

我也想知道如何用lisp代码实现找到两线条ob1和ob2的交点p，有谁知道，请帮忙！谢！

winabcd

求两条直线的交点
(inters pt1 pt2 pt3 pt4 [onseg])

所有的点都以当前 UCS 表示，如果提供的四个点都是三维点，inters 函数检查三维交点。只要所提供的点中有一个是二维点，
inters 函数就将这两条线投影到当前构造平面上，仅检查二维交点。

参数

pt1

第一条直线的端点。

pt2

第一条直线的另一端点。

pt3

第二条直线的端点。

pt4

第二条直线的另一端点。

onseg

如果指定为 nil，则由四个 pt 参数定义的两条线被认为是无限长的。如果省略 onseg 参数或其值不为 nil，则交点必须同时位于两条线上，否则 inters 返回 nil。

返回值

如果 onseg 参数存在且为 nil，则 inters 返回交点坐标，即使这个交点不在其中的一条线（或者两条线）的端点范围之内。如果忽略 onseg 参数或其值不为 nil，则交点必须同时位于两条线上，否则 inters 返回 nil。如果两条直线不相交，inters 函数返回 nil。

样例

(setq a '(1.0 1.0) b '(9.0 9.0))

(setq c '(4.0 1.0) d '(4.0 2.0))

命令：(inters a b c d)

nil

命令：(inters a b c d)

nil

命令：(inters a b c d nil)

(4.0 4.0)

xyp1964

2. [FONT=courier new]
   
3. (defun x_inters        (ename1 ename2)
   
4.   (vlax-safearray->list
   
5.     (vlax-variant-value
   
6.       (vla-intersectwith
   
7.         (vlax-ename->vla-object ename1)
   
8.         (vlax-ename->vla-object ename2)
   
9.         acextendnone
   
10.       )
    
11.     )
    
12.   )
    
13. )[/FONT]

[FONT=courier new]<br /> (defun x_inters        (ename1 ename2)<br />   (vlax-safearray->list<br />     (vlax-variant-value<br />       (vla-intersectwith<br />         (vlax-ename->vla-object ename1)<br />         (vlax-ename->vla-object ename2)<br />         acextendnone<br />       )<br />     )<br />   )<br /> )[/FONT]

lajiguo

路过

handonglong

按6楼所说,完全可以求出两直线相交,但如何求出一直线和一圆弧相交?有谁知?

xyp1964

如何曲线都行，没有交点就出错！
[php](defun c:test ()
  (setq        e1  (car (entsel "\n请选择第一条线:"))
        e2  (car (entsel "\n请选择第二条线:"))
  )
  (x_inters e1 e2)
)
(defun x_inters        (ename1 ename2)
  (vlax-safearray->list
    (vlax-variant-value
      (vla-intersectwith
        (vlax-ename->vla-object ename1)
        (vlax-ename->vla-object ename2)
        acextendnone
      )
    )
  )
)[/php]