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

awei

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

雪山飞狐_lzh

[WEB]http://www.vba.cn/object/acad2004/idh_intersectwith.htm[/WEB]

laoliu09

RetVal = object.IntersectWith(IntersectObject, ExtendOption)

Object：所有图形对象 (除了 Pviewport 和 PolygonMesh)
使用该方法的对象或对象集合

IntersectObjectObject[对象]：为输入项;
对象可以是所有图形对象中的任一个。

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

acExtendNone	两个对象均不延伸。
acExtendThisEntity	延伸基本对象。
acExtendOtherEntity	延伸作为参数传递的对象。
acExtendBoth	延伸两个对象。

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

laoliu09

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

awei

谢谢两位

mycad

学习，顶！！！！！！！！