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

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

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

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

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

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

RetVal = object.IntersectWith(IntersectObject, ExtendOption)
Object：所有图形对象 (除了 Pviewport 和 PolygonMesh)
使用该方法的对象或对象集合
IntersectObjectObject[对象]：为输入项;
对象可以是所有图形对象中的任一个。
ExtendOption：AcExtendOption 常数; 为输入项
该选项指定两个对象中是否没有、单个或两个对象延伸来得到交点。
acExtendNone两个对象均不延伸。
acExtendThisEntity延伸基本对象。
acExtendOtherEntity延伸作为参数传递的对象。
acExtendBoth延伸两个对象。
RetVal：Variant[变体] (双精度数组)
点数组为图形中对象与其它对象相交的点数组。