下列示例把活动画面中选定的直线和折线转换为Pipe对象。
Set ObjHelper = BuildObject("GeometryHelper")
Call ObjHelper.ConvertPipe