DoExtendLines方法示例
2015-12-15 22:24:48   来源：   评论：0 点击：

下列示例 说明，所选的 将被延伸到ExtendType属性设为短于30像素时的交叉点。

Set ObjHelper = BuildObject("GeometryHelper")

ObjHelper.ExtendType = 3 'set extend type max

ObjHelperExtendMaxSpace = 30 ' set max pixels to extend

Call ObjHelper.DoExtendLines