请高手帮忙
<P>请高手帮我看一下下面的程序错在那里，下面是一个求直线交点的程序</P><P>Sub tut()<BR>Dim Ent1 As AcadEntity<BR>Dim Ent2 As AcadEntity<BR>Dim v As Variant<BR>ThisDrawing.Utility.GetEntity EntObj1, "choose"<BR>v = EntObj1.IntersectWith(EntObj2, acExtendNone)<BR>MsgBox "交点：" & Ent1 & Ent2<BR>End Sub<BR></P> <P>帮助文件里面有例子。<BR>从你这个程序看，有许多基础的东西还没有清楚，最好能全面了解对象模型后再写程序。<BR>1.你只选择了一条直线，怎样求两条直线的交点？<BR>2.GetEntity方法用错了，看看帮助。<BR>3.EntObj1,EntObj2没有定义。<BR>4.Ent1,Ent2定义来干什么？<BR>5.求交点的方法倒是用对了，v值才是交点的内容，怎么用Ent1和Ent2来显示交点？</P>
页:
[1]