Hallo,
jetzt bin ich ja schon ein großes Stück weitergekommen. Mein Programm tut schon was es soll. Nur wenn ich direkt auf das Blatt zeichne und der User einen anderen Maßstab einstellt, hüpfen meine Linie von der gewünschten Position 
Jetzt hab ich in meinem Jugendlichen Leichtsinn gedacht : füge eine Ebene mit benutzerdefiniertem Maßstab von 1:1 ein.
Hier mein Programmschnipsel:
Model.CreateViewport2 XPoint, YPoint, XPoint + 0.185, YPoint + 0.007 * anzahl, 100, 1#
' Senkrechte Linie
x1 = XPoint
y1 = YPoint
x2 = XPoint
y2 = YPoint + 0.007 * anzahl
Model.CreateLineVB x1, y1, 0#, x2, y2, 0#
'Horizontale Linien
For i = 1 To anzahl
x1 = XPoint
y1 = YPoint + 0.007 * i
x2 = XPoint + 0.185
y2 = YPoint + 0.007 * i
Model.CreateLineVB x1, y1, 0#, x2, y2, 0#
Next i
' Texte einfügen
For i = 1 To anzahl
x1 = XPoint + 0.004
y1 = YPoint + 0.007 * i - 0.002
Model.CreateText text(i), x1, y1, 0#, 0.003, 0#
Next i
Soweit so schön - die Ebene wurde erstellt und die Texte erscheinen auch an der gewünschten Position. Nur es werden keinerlei Linien angezeigt ???
Wo liegt hier der Bug.
Dirk
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP