[gelöst] Kreissegment mit Basic erzeugen, wie?

[wega]

Hallo zusammen,

aus einem Basic-Makro heraus möchte ich in DRAW
ein bzw mehrere Kreissegmente erzeugen.

Wie ich eine leere Folie erzeuge ist mir bekannt.

Zum Kreisegment stellt mir das Basic-Makro die Koordinaten

x, y, i und j zur Verfügung.

Reichen diese Angaben aus oder um welche Informationen
muß die Angabe zur Erstellung eines Kreissegmentes ergänzt werden.

Wie sähe solch ein Beispielmakro aus?

Mit Gruß
Werner

[F3K Total]

Moin,
ein Beispiel:

Code: Alles auswählen

sub  Zeichne_ein_Kreissegment
    oDoc = ThisComponent
    oPage = oDoc.Drawpages(0)
    oEllipse = oDoc.createInstance("com.sun.star.drawing.EllipseShape")
    oPos = oEllipse.Position
    oPos.X = 4000
    oPos.Y = 4000
    oSize = oEllipse.Size
    oSize.Height = 6000*2
    oSize.Width = 6000*2
    oEllipse.Size = oSize
    oEllipse.Position = oPos
    oEllipse.CircleKind = com.sun.star.drawing.CircleKind.SECTION
    oEllipse.CircleStartAngle = 4500 '45°
    oEllipse.CircleEndAngle = 10500  '105°
    oEllipse.FillStyle = com.sun.star.drawing.FillStyle.SOLID
    oEllipse.FillColor = RGB(255,255,0)
    oEllipse.LineColor = RGB(0,0,0)    
   	oPage.add(oEllipse)	
end sub

Gruß R

[wega]

Hallo R,

Danke für Dein Beispiel, das ist für mich schon mal ein
Ansatz.

mit Gruß
Werner