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

The Structure of Drawings 169
The following example creates a circular slice with a 70 degree angle (produced from
difference between start angle of 20 degrees and end angle of 90 degrees)
Lines
Dim Doc As Object
Dim Page As Object
Dim EllipseShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
EllipseShape = Doc.createInstance("com.sun.star.drawing.EllipseShape")
EllipseShape.Size = Size
EllipseShape.Position = Point
EllipseShape.CircleStartAngle = 2000
EllipseShape.CircleEndAngle = 9000
EllipseShape.CircleKind = com.sun.star.drawing.CircleKind.SECTION
Page.add(EllipseShape)
OpenOffice.org provides the
com.sun.star.drawing.LineShape
service for line objects. Line objects support all of the general formatting services with the
exception of areas. The following are all of the properties that are associated with the
LineShape service:
Line properties
com.sun.star.drawing.LineProperties
Text properties
com.sun.star.drawing.Text
(with
com.sun.star.style.CharacterProperties
and