chenyaqiou 发表于 2007-10-1 11:18:00

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

最好是提取一直线与一多段线的交点.
多谢大侠指点,最好能给出个程序代码

alin 发表于 2007-10-1 11:46:00

IntersectWith method

chenyaqiou 发表于 2007-10-1 15:43:00

谢谢大侠,我已经弄出来了
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二次开发的?
页: [1]
查看完整版本: 菜鸟请教:vba如何实现提取两直线交点?