die Maßlinien für Figuren und Körper werden unter OpenOffice wunderbar angezeigt und beschriftet, in LibreOffice werden zwar die Maßlinien angezeigt, die Beschriftung fehlt allerdings. Hier ist nur der entsprechende Teil des Codes, hilft der schon?
Code: Alles auswählen
sub MasslinieZeichnen (x1, y1, x2, y2, flag)
oMass=oDoc.createInstance("com.sun.star.drawing.MeasureShape")
oPage.add(oMass)
With oMass
.StartPosition=erzeugePunkt(x1*100, y1*100)
.endPosition=erzeugePunkt(x2*100, y2*100)
.MeasureDecimalPlaces=1
.MeasureUnit=2
if flag then .MeasureBelowReferenceEdge=true
End With
End sub