OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

The Structure of Drawings 172
Coordinates(2).y = 5000
PolyPolygonShape.PolyPolygon = Array(Coordinates())
Since the points of a polygon are defined as absolute values, you do not need to specify the
size or the start position of a polygon. Instead, you need to create an array of the points,
package this array in a second array (using the Array(Coordinates()) call), and then assign
this array to the polygon. Before the corresponding call can be made, the polygon must be
inserted into the document.
The double array in the definition allows you to create complex shapes by merging several
polygons. For example, you can create a rectangle and then insert another rectangle inside
it to create a hole in the original rectangle:
Dim Doc As Object
Dim Page As Object
Dim PolyPolygonShape As Object
Dim PolyPolygon As Variant
Dim Square1(3) As New com.sun.star.awt.Point
Dim Square2(3) As New com.sun.star.awt.Point
Dim Square3(3) As New com.sun.star.awt.Point
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
PolyPolygonShape =
Doc.createInstance("com.sun.star.drawing.PolyPolygonShape")
Page.add(PolyPolygonShape) ' Page.add must take place before the
coordinates are set
Square1(0).x = 5000
Square1(1).x = 10000
Square1(2).x = 10000
Square1(3).x = 5000
Square1(0).y = 5000
Square1(1).y = 5000
Square1(2).y = 10000
Square1(3).y = 10000
Square2(0).x = 6500
Square2(1).x = 8500
Square2(2).x = 8500
Square2(3).x = 6500
Square2(0).y = 6500
Square2(1).y = 6500
Square2(2).y = 8500