有问题请教！急——————

ouerzai

请问怎么选择图中的一条曲线，然后再与我自己画的直线用intersectwith来求交点？


                         请教各位大侠了？？？

雪山飞狐_lzh

2. Public Sub test()
3. Dim obj As AcadLine
4. Dim a As Object
5. Dim pnt1(2) As Double, pnt2(2) As Double
6. pnt2(1) = 20
7. pnt2(0) = 0
8. Set obj = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)
9. ThisDrawing.Utility.GetEntity a, pnt
10. b = obj.IntersectWith(a, acExtendBoth)
11. If UBound(b) = 2 Then
12. Debug.Print b(0) & "," & b(1)
13. Else
14. Debug.Print "无交点"
15. End If
16. End Sub

Public Sub test() Dim obj As AcadLine Dim a As Object Dim pnt1(2) As Double, pnt2(2) As Double pnt2(1) = 20 pnt2(0) = 0 Set obj = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2) ThisDrawing.Utility.GetEntity a, pnt b = obj.IntersectWith(a, acExtendBoth) If UBound(b) = 2 Then Debug.Print b(0) & "," & b(1) Else Debug.Print "无交点" End If End Sub

ouerzai

先谢谢了！