急！急！急！Obj.IntersectWith方法获得交点问题

yyq620 · 发表于 2003-4-18 12:36:00

目的：求和一条多义线相交的多条线段（多义线或样条曲线）的交点坐标，我使用Obj.IntersectWith方法。
结果：明明相交的点，程序确认为不相交。

efan2000 · 发表于 2003-4-21 17:17:00

IntersectWith方法只能求绝对相交的线的交点，即要么在同一个平面中相交，要么在空间中相交，而不能处理投影情况。

jennsen · 发表于 2003-4-18 13:06:00

我这有个以前求交点的程序，调试通过了，你先在Acad中画个矩形和一个圆相交，然后运行此程序，可得到交点。
Sub qjd()
Dim mo As AcadModelSpace
Set mo = ThisDrawing.ModelSpace
  Dim intpoints As Variant
  intpoints = mo(0).IntersectWith(mo(1), acExtendNone)
Dim i As Integer
Dim str As String
If VarType(intpoints)  vbEmpty Then 'VarType(varname),必要的 varname 参数是一个 Variant vbEmpty返回值为0
   For i = LBound(intpoints) To UBound(intpoints) Step 3
      str = str & vbCrLf & "交点为:" & intpoints(i) & "," & intpoints(i + 1) & "," & intpoints(i + 2)
   Next i
End If
MsgBox str
End Sub

zxj_76 · 发表于 2003-4-18 19:05:00

AutoCAD自带的IntersectWith函数不好用，立交点取不到，平交点也不一定能取到，你不如取两条线的坐标，自己算出交点坐标。

急！急！急！Obj.IntersectWith方法获得交点问题

发表回复

精选推荐