|
|
发表于 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二次开发的? |
|
置顶卡
