DoExtendLines Method Example

The following exampleshows that the selected line object(s) will be extended to the intersection when the ExtendType property is set to shorter than 30 pixels.

Set ObjHelper = BuildObject("GeometryHelper")

ObjHelper.ExtendType = 3 'set extend type max

ObjHelperExtendMaxSpace = 30 ' set max pixels to extend

Call ObjHelper.DoExtendLines