Seite 1 von 1
Linien mit Pfeilenden (gelöst)
Verfasst: Di, 08.11.2011 20:38
von erikafuchs
Hallo zusammen,
da es ja anscheinend nicht möglich ist, den Maßstab oder den Text von einzelnen Maßlinien zu ändern, programmiere ich halt meine Maßlinien selbst. Jetzt finde ich aber keine Möglichkeit, meine Linien mit Pfeilspitzen zu versehen - geht das etwa auch nicht?
Hilfe!
Viele Grüße
Pit
Re: Linien mit Pfeilenden
Verfasst: Di, 08.11.2011 20:58
von F3K Total
... 5 Min Xray:
Code: Alles auswählen
oline=thisComponent.drawpage.getbyindex(0)
with oline
exit sub
.LineEndName="Arrow"'"Circle", "Square", "Small Arrow", "Double Arrow", "Line Arrow" um nur einige zu nennen
.LineStartName="Arrow"
.LineEndWidth=200
.LineStartWidth=400
end with
Gruß R
Re: Linien mit Pfeilenden
Verfasst: Di, 08.11.2011 23:39
von erikafuchs
Ach...da fühle ich mich wieder als totalen Anfänger.
Vielen Dank für die Info.
Wo findet man das?
Viele Grüße
Pit
Re: Linien mit Pfeilenden
Verfasst: Mi, 09.11.2011 05:23
von F3K Total
hier:
http://bernard.marcelly.perso.sfr.fr/index2.html
Gruß R
PS.: Kannst Du den Thread bitte als [gelöst] markieren?
Re: Linien mit Pfeilenden
Verfasst: Mi, 09.11.2011 13:44
von erikafuchs
Ihr Lieben,
vielen Dank, ich muss noch viel lernen. Das xRay Toll habe ich jetzt zumindest schon mal aufgerufen ... zum Entgültigen Verstehen aller Funktionen brauche ich sicher noch ein Weilchen. (Da muss ich jetzt als nächstes z.B. schon mal verstehen was ein "struct" ist).
PS.: Kannst Du den Thread bitte als [gelöst] markieren?
Nein, noch nicht.
Was mache ich bei:
Code: Alles auswählen
sub MasslinieErstellen (X0 , Y0 , X1 , Y1)
oLinie=oDoc.createInstance("com.sun.star.drawing.LineShape")
with oLinie
.Position = erzeugePunkt(X0*100+10, Y0*100)
.size =erzeugeSize((X1-X0)*100, (Y1-Y0)*100)
.LineEndName="Arrow"'"Circle", "Square", "Small Arrow", "Double Arrow", "Line Arrow" um nur einige zu nennen
.LineStartName="Arrow"
.LineEndWidth=200
.LineStartWidth=400
end with
oPage.add(oLinie)
end sub
falsch? Es kommen keine Pfeile.
Grüße von
Pit
Re: Linien mit Pfeilenden
Verfasst: Mi, 09.11.2011 17:46
von F3K Total
Hi,
warum, kann ich nicht genau sagen, aber wenn ich die Pfeilspitzen nach dem Einfügen der Linie einstelle, geht es.
Code: Alles auswählen
sub MasslinieErstellen (X0 , Y0 , X1 , Y1)
oLinie=oDoc.createInstance("com.sun.star.drawing.LineShape")
with oLinie
.Position = erzeugePunkt(X0*100+10, Y0*100)
.size =erzeugeSize((X1-X0)*100, (Y1-Y0)*100)
end with
oPage.add(oLinie)
with oLinie
.LineEndName="Arrow"'"Circle", "Square", "Small Arrow", "Double Arrow", "Line Arrow" um nur einige zu nennen
.LineStartName="Arrow"
.LineEndWidth=200
.LineStartWidth=400
end with
end sub
Gruß R
Re: Linien mit Pfeilenden
Verfasst: Mi, 09.11.2011 17:59
von erikafuchs
Liebe/r R,
tausend Dank.
Pit