ouerzai 发表于 2004-4-13 14:54:00

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

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


                       请教各位大侠了？？？

雪山飞狐_lzh 发表于 2004-4-13 15:09:00

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 发表于 2004-4-14 11:55:00

先谢谢了！
页: [1]
查看完整版本: 有问题请教！急——————