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

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

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

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

<font face="Arial" size="2">IntersectWith method</font>

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

<p>谢谢大侠,我已经弄出来了</p><p>Private Sub intersectwithtry()</p><p>Dim obj1 As AcadEntity<br/>Dim obj2 As AcadEntity<br/>Dim ppt As Variant<br/>ThisDrawing.Utility.GetEntity obj1, ppt, ""<br/>ThisDrawing.Utility.GetEntity obj1, ppt, ""</p><p>ppt = obj1.IntersectWith(obj2, acExtendBoth)<br/>TextBox1.Text = ppt(0)<br/>TextBox2.Text = ppt(1)</p><p>End Sub</p><p>我一般是业余时间搞一下AUTOCAD二次开发,感到很吃力</p><p>请问大侠们是不是受过系统的训练,专业搞开发的</p><p>另有没有人在海口的搞AUTOCAD二次开发的?</p>
页: [1]
查看完整版本: 菜鸟请教:vba如何实现提取两直线交点?