菜鸟请教:vba如何实现提取两直线交点?

chenyaqiou

最好是提取一直线与一多段线的交点.

多谢大侠指点,最好能给出个程序代码

alin

IntersectWith method

chenyaqiou

谢谢大侠,我已经弄出来了

Private Sub intersectwithtry()

Dim obj1 As AcadEntity
Dim obj2 As AcadEntity
Dim ppt As Variant
ThisDrawing.Utility.GetEntity obj1, ppt, ""
ThisDrawing.Utility.GetEntity obj1, ppt, ""

ppt = obj1.IntersectWith(obj2, acExtendBoth)
TextBox1.Text = ppt(0)
TextBox2.Text = ppt(1)

End Sub

我一般是业余时间搞一下AUTOCAD二次开发,感到很吃力

请问大侠们是不是受过系统的训练,专业搞开发的

另有没有人在海口的搞AUTOCAD二次开发的?