Witam wszystkich,
Ktoś ma sztuczkę, aby precyzyjnie ustawić widok?
Celem jest umieszczenie widoku ISO dokładnie w tym samym miejscu na 5 folio (aby uniknąć przesuwania się widoku wraz z przewijaniem stron w formacie PDF).
Dziękuję i życzę miłego dnia!
Widok ISO można skopiować i wkleić do każdego arkusza. Widok jest skonfigurowany w tym samym miejscu.
Edit: OOPS to już widocznie nie działa... :/
Witam
Jednym z rozwiązań byłoby zduplikowanie arkusza po wstawieniu widoku, a następnie zmiana szablonu.
Utwórz rysunek z ustawionym widokiem, wstawiając widok ISO.
I zapisz jako szablon.
Oto przykład
Ditto Benoi.LF czy to działa dla mnie!!
Dziękuję, czy to zaskakujące, że nie ma pozycjonowania X Y?
Przepraszam, ale nie mogę ponownie uruchomić aplikacji FOLIOS.
Dzięki wstępnie ustawionym widokom wszystko aktualizuje się automatycznie.
Nie ma potrzeby przerabiać wszystkiego....
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
W przypadku błędu Wznów następny
Dim swApp jako SldWorks.SldWorks
Ustaw swApp = Application.SldWorks
Jeśli nie swApp to nic to nic
Przyciemnij część jako SldWorks.ModelDoc2
Ustaw część = swApp.ActiveDoc
Sun swSelMgr jako SldWorks.SelectionMgr
Ustaw swSelMgr = Part.SelectionManager()
Jeśli Not Part Jest Niczym, A Not SwSelMgr Jest Niczym, To
boolstatus = Part.ActivateView("Widok szczegółowy A (4:1)")
boolstatus = Part.Extension.SelectByID2("Widok szczegółowy A (4:1)", "DRAWINGVIEW", 0.3567189637584, 0.2569348080537, 0, False, 0, Nic, 0)
Dim swView As SldWorks.View
Ustaw swView = swSelMgr.GetSelectedObject6(1, -1)
jezeli nie swview to nic to
Dim vArr jako wariant
vArr = swView.Pozycja
Wywołaj MsgBox("Współrzędne bieżącego widoku: X = " & vArr(0) * 1000 & "mm, Y = " & vArr(1) * 1000 & "mm")
vArr(0) = 0,37 '' ruchoma oś X
swView.Position = vArr
vArr(1) = 0,25 '' ruchoma oś Y
swView.Position = vArr
Wywołaj Part.EditRebuild3
Wywołaj MsgBox("Współrzędne bieżącego widoku: X = " & vArr(0) * 1000 & "mm, Y = " & vArr(1) * 1000 & "mm")
Zakończ jeżeli:
Ustaw swView = Nic
Zakończ jeżeli:
Set swSelMgr = Nic
Ustaw część = Nic
Zakończ jeżeli:
Ustaw swApp = Nic
Jeśli Liczba.Błędu <> 0, to Błąd.Wyczyść
Koniec subwoofera
Witam
1- Kopiujesz swoje folio (w tym widok ISO)
2- Przeciągasz nowy widok ISO do folio, które chcesz umieścić w drzewie
3- Usuwasz swoją bezużyteczną kopię folio
Nowy widok zostanie automatycznie przeniesiony w to samo miejsce, co w oryginalnym folio.
Musisz zrobić tak jak dla 2D, wyświetlić siatkę
Klasa A+