Linien mit Pfeilenden (gelöst)

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Linien mit Pfeilenden (gelöst)

Re: Linien mit Pfeilenden

von erikafuchs » Mi, 09.11.2011 17:59

Liebe/r R,
tausend Dank.
Pit

Re: Linien mit Pfeilenden

von F3K Total » Mi, 09.11.2011 17:46

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

von erikafuchs » Mi, 09.11.2011 13:44

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

von F3K Total » Mi, 09.11.2011 05:23

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

von erikafuchs » Di, 08.11.2011 23:39

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

von F3K Total » Di, 08.11.2011 20:58

... 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

Linien mit Pfeilenden (gelöst)

von erikafuchs » Di, 08.11.2011 20:38

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

Nach oben