KEINE WERBEANZEIGEN FÜR REGISTRIERTE USER



❤ Das LibreOffice Forum ❤
❤ braucht JETZT Ihre Hilfe! ❤



  🌹 DANKE FÜR JEDE SPENDE! 🌹




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

Das kraftvolle Grafik-Paket
Antworten
wega
Beiträge: 107
Registriert: Mi 16. Jul 2014, 19:15

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

Beitrag von wega » Do 8. Sep 2022, 19:03

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
Zuletzt geändert von wega am Mo 12. Sep 2022, 09:57, insgesamt 1-mal geändert.

F3K Total
Beiträge: 2218
Registriert: So 10. Apr 2011, 10:10

Re: Kreissegment mit Basic erzeugen, wie?

Beitrag von F3K Total » So 11. Sep 2022, 09:45

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
Windows 10: AOO, LO Linux Mint: AOO, LO

wega
Beiträge: 107
Registriert: Mi 16. Jul 2014, 19:15

Re: Kreissegment mit Basic erzeugen, wie?

Beitrag von wega » Mo 12. Sep 2022, 00:10

Hallo R,

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

mit Gruß
Werner

Antworten