AddBrokenline Method
Syntax
CWIMAQRegions.AddBrokenline Brokenline
Return Type
The region object that was added.
Purpose
Adds a Brokenline to the regions collection.
Remarks
This method makes a copy of the input Brokenline.
Parameters
Brokenline As CWIMAQBrokenline
The Brokenline to add.
Example
Private Sub Run_Click() Dim Brokenline As New CWIMAQBrokenline Dim Freeline As New CWIMAQFreeline Dim Polygon As New CWIMAQPolygon Dim Freeregion As New CWIMAQFreeregion 'Initialize the polylines Brokenline.Points.Initialize Array(20, 80, 50, 50, 20, 80), Array(20, 20, 20, 120, 120, 120) Freeline.Points.Initialize Array(100, 115, 130, 145, 160), Array(120, 20, 120, 20, 120) Polygon.Points.Initialize Array(180, 210, 240, 225, 195), Array(120, 20, 120, 70, 70) Freeregion.Points.Initialize Array(300, 310, 300, 280, 270, 260, 260, 270, 280, 300, 310, 320, 320, 310, 320), _ Array(100, 110, 120, 120, 110, 90, 50, 30, 20, 20, 30, 50, 90, 110, 120) 'Add the shapes to the viewer's regions collection. CWIMAQViewer1.Regions.AddBrokenline Brokenline CWIMAQViewer1.Regions.AddFreeline Freeline CWIMAQViewer1.Regions.AddPolygon Polygon CWIMAQViewer1.Regions.AddFreeregion Freeregion If TypeName(Brokenline) = "Nothing" Then MsgBox "Number of broken lines exceeded!" Else MsgBox "You added a broken line." End If If TypeName(Freeline) = "Nothing" Then MsgBox "Number of free lines exceeded!" Else MsgBox "You added a free line." End If If TypeName(Polygon) = "Nothing" Then MsgBox "Number of polygons exceeded!" Else MsgBox "You added a polygon." End If If TypeName(Freeregion) = "Nothing" Then MsgBox "Number of free regions exceeded!" Else MsgBox "You added a free region." End If End Sub