[VBA]请问:如何求交点?
<FONT color=#e61a42>直线之间的交点可以通过解方程来求</FONT><FONT color=#e61a42>请问,直线和样条曲线的交点怎么求?</FONT>
<FONT color=#e61a42>还有,知道X值,如何求的样条曲线上对应的y值?</FONT> <P class=Heading-2>语法
<P class=syntax>RetVal = object.IntersectWith(IntersectObject, ExtendOption)
<P class=element>Object
<P class=element-desc><A href="http://www.mjtd.com/object/acad2004/all_drawing_objects.htm" target="_blank" >所有图形对象</A> (除了 Pviewport 和 PolygonMesh)<BR>使用该方法的对象或对象集合。
<P class=element>IntersectObject
<P class=element-desc>Object, 为输入项; <BR>对象可以是 <A href="http://www.mjtd.com/object/acad2004/all_drawing_objects.htm" target="_blank" >所有图形对象</A>中的任一个。<BR>
<P class=element>ExtendOption
<P class=element-desc>AcExtendOption 枚举值; 为输入项<BR>该选项指定两个对象中是否没有、单个或两个对象延伸来得到交点。
<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
<P class=element-desc>Variant[变体] (双精度数组)<BR>点数组为图形中对象与其它对象相交的点数组。
<P class=Heading-2>说明
<P class=body>如果两个对象不相交，则没有返回数据。用户可以要求一个或两个对象延伸相交来产生相交点。例如，在以下例图中，线1为该方法调用的基本对象，而线3作为参照传递给该方法。如果 ExtendOption 传递的是 acExtendThisEntity，则点A将作为线1在延伸后与线3相交的点返回 。如果 ExtendOption 为 acExtendOtherEntity，则不会返回数据，因为即使线3延伸了，它也与线1没有相交。
<P class=body>如果相交类型为 acExtendBothEntities 并且线2作为参数图元传递，则返回点B。如果 ExtendOption 为 acExtendNone 并且线2为参数图元，则无数据返回。 谢谢<A name=70591><FONT color=#000066><B>yulijin608</B></FONT></A>的解答.我一定按你给的函数试试.
再次表示感谢.
论坛是学习的好地方!
页:
[1]