Hallo an alle
Hat jemand einen Trick, um eine Ansicht genau zu positionieren?
Ziel ist es, eine ISO-Ansicht auf 5 Folios an genau der gleichen Stelle zu platzieren (um zu vermeiden, dass sich die Ansicht beim Scrollen der Seiten in der PDF-Datei verschiebt).
Vielen Dank und einen schönen Tag!
Sie können die ISO-Ansicht kopieren und in jedes Blatt einfügen. Die Ansicht wird an der gleichen Stelle eingerichtet.
Edit: Hoppla, es funktioniert anscheinend nicht mehr... :/
Hallo
Eine Lösung wäre, das Blatt nach dem Einfügen der Ansicht zu duplizieren und die Vorlage anschließend zu ändern.
Erstellen Sie eine Zeichnung mit einer voreingestellten Ansicht, indem Sie eine ISO-Ansicht einfügen.
Und als Vorlage speichern.
Hier ist ein Beispiel
Dito Benoi.LF funktioniert es für mich!!
Danke, ist es verwunderlich, dass es keine X Y Positionierung gibt?
Es tut mir leid, aber ich kann meine FOLIOS nicht wieder starten.
Mit voreingestellten Ansichten wird alles automatisch aktualisiert.
Es ist nicht nötig, alles neu zu machen....
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
Sub main()
Bei Fehler: Weiter fortsetzen
Dim swApp als SldWorks.SldWorks
Legen Sie swApp = Application.SldWorks fest
Wenn nicht, ist swApp nichts, dann
Dimmen des Teils als SldWorks.ModelDoc2
Set Part = swApp.ActiveDoc
Sun swSelMgr As SldWorks.SelectionMgr
Set swSelMgr = Part.SelectionManager()
Wenn nicht Teil nichts ist und nicht swSelMgr nichts ist, dann
boolstatus = Part.ActivateView("Detailansicht A (4:1)")
boolstatus = Part.Extension.SelectByID2("Detailansicht A (4:1)", "DRAWINGVIEW", 0.3567189637584, 0.2569348080537, 0, Falsch, 0, Nichts, 0)
Dim swView As SldWorks.View
Set swView = swSelMgr.GetSelectedObject6(1, -1)
Wenn nicht, ist swView nichts, dann
Dim vArr als Variante
vArr = swView.Position
Aufruf von MsgBox("Aktuelle Ansichtskoordinaten: X = " & vArr(0) * 1000 & "mm, Y = " & vArr(1) * 1000 & "mm")
vArr(0) = 0,37 '' bewegliche X-Achse
swView.Position = vArr
vArr(1) = 0.25 '' bewegliche Y-Achse
swView.Position = vArr
Aufrufen von Part.EditRebuild3
Aufruf von MsgBox("Aktuelle Ansichtskoordinaten: X = " & vArr(0) * 1000 & "mm, Y = " & vArr(1) * 1000 & "mm")
Ende, wenn
Set swView = Nichts
Ende, wenn
Set swSelMgr = Nichts
Set Part = Nichts
Ende, wenn
Set swApp = Nichts
Wenn Err.Number <> 0, dann Err.Clear
Ende Sub
Hallo
1- Sie kopieren Ihr Folio (einschließlich Ihrer ISO-Ansicht)
2- Sie ziehen Ihre neue ISO-Ansicht auf das Folio, das Sie im Baum haben möchten
3- Sie löschen Ihre nutzlose Foliokopie
Die neue Ansicht wird automatisch an die gleiche Stelle verschoben wie auf dem ursprünglichen Folio.
Sie müssen wie bei 2D vorgehen, das Raster anzeigen
A+