Linien mit Pfeilenden (gelöst)

[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

[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

[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

[F3K Total]

hier:
http://bernard.marcelly.perso.sfr.fr/index2.html
Gruß R

PS.: Kannst Du den Thread bitte als [gelöst] markieren?

[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

[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

[erikafuchs]

Liebe/r R,
tausend Dank.
Pit