求助！！

daydayup

Sub SelectSp()
On Error Resume Next
Dim SSpline As AcadSelectionSet
Dim SLine As AcadSelectionSet
Dim fd(0) As Integer, ft(0)
Dim Pline As AcadLine
Dim s, t

Dim pInsertPnt()
Set SSpline = ThisDrawing.SelectionSets.Add("Spline")
fd(0) = "Spline": ft(0) = 0
SSpline.Select acSelectionSetAll, , , ft, fd
Set SLine = ThisDrawing.SelectionSets.Add("Line")
fd(0) = "Line": ft(0) = 0
SLine.Select acSelectionSetAll, , , ft, fd
For Each Pline In SLine
For s = 0 To SSpline.Count - 1
pInsertPnt = Pline.IntersectWith(SSpline(s), acExtendNone)
Next s
Next Pline
Dim i As Integer, j As Integer, k As Integer
Dim str As String
If VarType(pInsertPnt) <> vbEmpty Then
For i = LBound(pInsertPnt) To UBound(pInsertPnt)
str = "Intersection Point[" & k & "] is: " & pInsertPnt(j) & "," & pInsertPnt(j + 1) & "," & pInsertPnt(j + 2)
MsgBox str, , "IntersectWith Example"
str = ""
i = i + 2
j = j + 3
k = k + 1
Next
End If
End Sub

上图是运行上面一段代码后的结果，我想求直线与曲线的交点并输出。结果…… 请问大侠们用insertwith求得的交点是怎么储存在数组里的啊？？帮助文档里的例子为什么是i=i+2,,j=j+3。我想把求得的交点按照x坐标进行排序再输出应该怎么办呢？

mccad

Intersection方法只能求对象与对象间的交点，而不是选择集与选择集间的交点。

雪山飞狐_lzh

2. Sub SelectSp()
3.        On Error Resume Next
4.        Dim SSpline As AcadSelectionSet
5.        Dim SLine As AcadSelectionSet
6.        Dim ft(0) As Integer, fd(0)
7.        Dim Pline As AcadLine
8.        Dim s, t
9.        Dim i As Integer, j As Integer, k As Integer
10.        Dim str As String
11.        Dim pInsertPnt
12.    
13.        ThisDrawing.SelectionSets("Spline").Delete
14.        ThisDrawing.SelectionSets("Line").Delete
15.       
16.        Set SSpline = ThisDrawing.SelectionSets.Add("Spline")
17.        ft(0) = 0: fd(0) = "Spline"
18.        SSpline.Select acSelectionSetAll, , , ft, fd
19.       
20.        Set SLine = ThisDrawing.SelectionSets.Add("Line")
21.        ft(0) = 0: fd(0) = "Line"
22.        SLine.Select acSelectionSetAll, , , ft, fd
23.       
24.        For Each Pline In SLine
25.                For s = 0 To SSpline.Count - 1
26.                        pInsertPnt = Pline.IntersectWith(SSpline(s), acExtendNone)
27.                        j = 0
28.                        For i = 0 To UBound(pInsertPnt)
29.                                str = "Intersection Point[" & k & "] is: " & pInsertPnt(j) & "," & pInsertPnt(j + 1) & "," & pInsertPnt(j + 2)
30.                                MsgBox str, , "IntersectWith Example"
31.                                str = ""
32.                                i = i + 2
33.                                j = j + 3
34.                                k = k + 1
35.                        Next
36.                Next s
37.        Next Pline
38. End Sub

Sub SelectSp()        On Error Resume Next        Dim SSpline As AcadSelectionSet        Dim SLine As AcadSelectionSet        Dim ft(0) As Integer, fd(0)        Dim Pline As AcadLine        Dim s, t        Dim i As Integer, j As Integer, k As Integer        Dim str As String        Dim pInsertPnt            ThisDrawing.SelectionSets("Spline").Delete        ThisDrawing.SelectionSets("Line").Delete               Set SSpline = ThisDrawing.SelectionSets.Add("Spline")        ft(0) = 0: fd(0) = "Spline"        SSpline.Select acSelectionSetAll, , , ft, fd               Set SLine = ThisDrawing.SelectionSets.Add("Line")        ft(0) = 0: fd(0) = "Line"        SLine.Select acSelectionSetAll, , , ft, fd               For Each Pline In SLine                For s = 0 To SSpline.Count - 1                        pInsertPnt = Pline.IntersectWith(SSpline(s), acExtendNone)                        j = 0                        For i = 0 To UBound(pInsertPnt)                                str = "Intersection Point[" & k & "] is: " & pInsertPnt(j) & "," & pInsertPnt(j + 1) & "," & pInsertPnt(j + 2)                                MsgBox str, , "IntersectWith Example"                                str = ""                                i = i + 2                                j = j + 3                                k = k + 1                        Next                Next s        Next Pline End Sub

daydayup

谢谢两位老大的教导啦！ 都是小弟我看明经出的《AutoCAD VBA 开发精彩实例教程》不够认真，这两天发现好多问题在书上都有例子了。十分感谢版主们热心回答我的问题！！！ 呵呵，小弟我还有个问题.???? For i = 0 To UBound(pInsertPnt)
str = "Intersection Point[" & k & "] is: " & pInsertPnt(j) & "," & pInsertPnt(j + 1) & "," & pInsertPnt(j + 2)
MsgBox str, , "IntersectWith Example"
str = ""
[U]i = i + 2[/U] j = j + 3
k = k + 1
Next
上面那段代码中为什么i = i + 2, i的取值范围不是由交点的个数决定的吗，每个交点由x y z三个坐标啊。还请可爱的版主同志回答一下小弟这个菜菜的问题，谢谢啦