Guten Tag Zusammann
habe in einem VBA-Programm folgende Zeilen um bei den Zeichnungsrahmen Ecklinien zu zeichnen. Diese werden nicht auf der Vorlage definiert da diese nur fuer eine DXF-Erstellung von nöten sind.
Frage nun: Warum muss ein Zoom gemacht werden damit die Linien am richtigen Ort sind und sich nicht an die andern Linien hängen?
Speziell bei grossen Formaten (A0/A1)
Gibt es da eine professionellere Lösung?
Besten Dank für die Infos
Gruss am
Zeilen aus VBA-Programm:
' Blattformat aktivieren und Ecklinien zeichnen
DrawingDoc.EditTemplate
DrawingDoc.EditSketch
DrawingDoc.ClearSelection
'Zoomen wegen Ungenauigkeiten speziell A0 (unten links und oben rechts)
DrawingDoc.ViewZoomTo2 -0.01, -0.2, 0, 0.2, 0.1, 0 ' untere linke Ecke zoomen
DrawingDoc.CreateLine2 0, 0, 0, 0, 0.01, 0 ' unten links senkrecht Ax
DrawingDoc.CreateLine2 0, 0, 0, 0.01, 0, 0 ' unten links waagrecht Ax
Select Case Blatt_Format ' Blattformat (A4-A0)
Case 11
'Blatt_Groesse = "A0"
' Zoomen wegen Ungenauigkeiten
DrawingDoc.ViewZoomTo2 1.3, 0.86, 0, 1.198, 0.8, 0 ' oberer rechte Ecke zoomen
DrawingDoc.CreateLine2 1.189, 0.841, 0, 1.179, 0.841, 0 ' oben rechts waagrecht A0
DrawingDoc.CreateLine2 1.189, 0.841, 0, 1.189, 0.831, 0 ' oben rechts senkrecht A0
DrawingDoc.ViewZoomtofit2 ' Zoom ganzes Blatt
Case 10
'Blatt_Groesse = "A1"
' Zoomen wegen Ungenauigkeiten
DrawingDoc.ViewZoomTo2 0.79, 0.5, 0, 0.9, 0.65, 0 ' obere rechte Ecke zoomen
DrawingDoc.CreateLine2 0.841, 0.594, 0, 0.831, 0.594, 0
........
...
------------------
am
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP