BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

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

Das kraftvolle Grafik-Paket
Antworten
wega
Beiträge: 121
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: 2410
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: 121
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

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten