awei 发表于 2005-2-1 14:54:00

如何使用vba得到线段和多段线的交点

图形中有一个多段线,然后有一条线段,我想得到线段(或线段的延长线)和多线段的交点.如何通过vba得到这个交点

雪山飞狐_lzh 发表于 2005-2-1 15:33:00

http://www.vba.cn/object/acad2004/idh_intersectwith.htm

laoliu09 发表于 2005-2-1 15:33:00

RetVal = object.IntersectWith(IntersectObject, ExtendOption)


<P class=element>Object：所有图形对象        (除了 Pviewport 和 PolygonMesh)<BR>使用该方法的对象或对象集合


<P class=element>IntersectObjectObject[对象]：为输入项; <BR>对象可以是所有图形对象中的任一个。


<P class=element>ExtendOption：AcExtendOption 常数; 为输入项<BR>该选项指定两个对象中是否没有、单个或两个对象延伸来得到交点。


<P class=element>
<TABLE class=Simple>
<TBODY>
<TR vAlign=top>
<TD>
<P class=constant>acExtendNone

</TD>
<TD>
<P class=constant-desc>两个对象均不延伸。

</TD></TR>
<TR vAlign=top>
<TD>
<P class=constant>acExtendThisEntity

</TD>
<TD>
<P class=constant-desc>延伸基本对象。

</TD></TR>
<TR vAlign=top>
<TD>
<P class=constant>acExtendOtherEntity

</TD>
<TD>
<P class=constant-desc>延伸作为参数传递的对象。

</TD></TR>
<TR vAlign=top>
<TD>
<P class=constant>acExtendBoth

</TD>
<TD>
<P class=constant-desc>延伸两个对象。

</TD></TR></TBODY></TABLE>


<P class=element>RetVal：Variant[变体] (双精度数组)<BR>点数组为图形中对象与其它对象相交的点数组。<BR>

laoliu09 发表于 2005-2-1 15:37:00

呵呵！这么巧，跟飞狐老师同时回复了，不好意思！

awei 发表于 2005-2-2 11:54:00

谢谢两位

mycad 发表于 2012-11-6 08:42:32

学习，顶！！！！！！！！
页: [1]
查看完整版本: 如何使用vba得到线段和多段线的交点