求高手指点，若有交点，交点坐标写入数组，若无则不写入

13022164437

For Each ent In ThisDrawing.ModelSpace

      intPoints = vbEmpty

  intPoints = lineObj.IntersectWith(ent, acExtendNone)

      If VarType(intPoints) <> vbEmpty Then

      ReDim Preserve px(I) As Variant

      ReDim Preserve py(I) As Variant

      ReDim Preserve pz(I) As Variant

     

px(I) = intPoints(0)

      py(I) = intPoints(1)

      pz(I) = intPoints(2)

   

      MsgBox px(I) & py(I) & pz(I)

   End If

Next ent

sailorcwx

看不懂你的，我写了一个

3. Sub test()
4. On Error Resume Next
5. Dim obj1 As AcadEntity
6. Dim pt As Variant
7. ThisDrawing.Utility.GetEntity obj1, pt
8. Dim bpts(0 To 11) As Double
9. Dim minpt As Variant
10. Dim maxpt As Variant
11. obj1.GetBoundingBox minpt, maxpt
12. bpts(0) = minpt(0)
13. bpts(1) = minpt(1)
14. bpts(2) = minpt(2)
15. bpts(3) = minpt(0)
16. bpts(4) = maxpt(1)
17. bpts(5) = minpt(2)
18. bpts(6) = maxpt(0)
19. bpts(7) = maxpt(1)
20. bpts(8) = maxpt(2)
21. bpts(9) = maxpt(0)
22. bpts(10) = minpt(1)
23. bpts(11) = maxpt(2)
24. Dim ss As AcadSelectionSet
25. ThisDrawing.SelectionSets.Add ("test")
26. Set ss = ThisDrawing.SelectionSets.Item("test")
27. ss.SelectByPolygon acSelectionSetCrossingPolygon, bpts
28. For Each obj In ss
29. If Not (obj Is obj1) Then
30. 'MsgBox "OK"
31. 'Else
32. Dim ipts As Variant
33. ipts = obj1.IntersectWith(obj, acExtendNone)
34. MsgBox "有" & (UBound(ipts) + 1) / 3 & "个交点"
35. End If
36. Next
37. End Sub

Sub test() On Error Resume Next Dim obj1 As AcadEntity Dim pt As Variant ThisDrawing.Utility.GetEntity obj1, pt Dim bpts(0 To 11) As Double Dim minpt As Variant Dim maxpt As Variant obj1.GetBoundingBox minpt, maxpt bpts(0) = minpt(0) bpts(1) = minpt(1) bpts(2) = minpt(2) bpts(3) = minpt(0) bpts(4) = maxpt(1) bpts(5) = minpt(2) bpts(6) = maxpt(0) bpts(7) = maxpt(1) bpts(8) = maxpt(2) bpts(9) = maxpt(0) bpts(10) = minpt(1) bpts(11) = maxpt(2) Dim ss As AcadSelectionSet ThisDrawing.SelectionSets.Add ("test") Set ss = ThisDrawing.SelectionSets.Item("test") ss.SelectByPolygon acSelectionSetCrossingPolygon, bpts For Each obj In ss If Not (obj Is obj1) Then 'MsgBox "OK" 'Else Dim ipts As Variant ipts = obj1.IntersectWith(obj, acExtendNone) MsgBox "有" & (UBound(ipts) + 1) / 3 & "个交点" End If Next End Sub

13022164437

我想获取模型空间中指定直线的交点，但是判断语句不对，执行时不管与指定直线有没有交点，i值总是加1
如何判断有交点时i加1,没有时i值不变？

13022164437

刚才运行了sailorcwx的代码，感觉判断语句有问题，结果上传如图。