请高手帮忙

xgngg · 发表于 2005-10-8 09:08:00

请高手帮我看一下下面的程序错在那里，下面是一个求直线交点的程序
Sub tut()
Dim Ent1 As AcadEntity
Dim Ent2 As AcadEntity
Dim v As Variant
ThisDrawing.Utility.GetEntity EntObj1, "choose"
v = EntObj1.IntersectWith(EntObj2, acExtendNone)
MsgBox "交点：" & Ent1 & Ent2
End Sub

mccad · 发表于 2005-10-9 06:52:00

帮助文件里面有例子。
从你这个程序看，有许多基础的东西还没有清楚，最好能全面了解对象模型后再写程序。
1.你只选择了一条直线，怎样求两条直线的交点？
2.GetEntity方法用错了，看看帮助。
3.EntObj1,EntObj2没有定义。
4.Ent1,Ent2定义来干什么？
5.求交点的方法倒是用对了，v值才是交点的内容，怎么用Ent1和Ent2来显示交点？

请高手帮忙

发表回复

精选推荐