DoExtendLines 方法示例

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

Set ObjHelper = BuildObject("GeometryHelper")

ObjHelper.ExtendType = 3 'set extend type max

ObjHelperExtendMaxSpace = 30 ' set max pixels to extend

Call ObjHelper.DoExtendLines