Witam wszystkich,
Szukam kawałka kodowania makr, aby zamknąć 1 rysunek, z którym właśnie się zapoznałem, bez zapisywania zmian.
Moje testy jazdy w trybie nauki:
Dim swApp As Object
Przyciemnij część jako obiekt
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Ustaw swApp = _
Aplikacja.SldWorks
Ustaw część = swApp.ActiveDoc
Ustaw część = Nic
swApp.CloseDoc "MEP 01 - Arkusz 2"
Koniec subwoofera
Niestety to makro jest odpowiednie tylko dla 1 podanego pliku planu
Chciałbym, aby makro zamknęło aktywną instalację bez jej zapisywania
Pozdrowienia
nowy program programowy
Myślę, że to powinno ci pomóc, działa na moim makro
Ustaw swApp = Application.SldWorks
Ustaw część = swApp.ActiveDoc
Ustaw SelMgr = Part.SelectionManager
Part.ViewZoomtofit2
Ustaw część = Nic
swApp.CloseDoc "Rysunek1 - Arkusz1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Ustaw część = swApp.ActivateDoc2("Część1", Fałsz, longstatus)
swApp.ActiveDoc.ActiveView.FrameState = 1
Koniec subwoofera
Dziękuję
Twoje makro jest takie jak moje, nadaje się tylko do 1 pliku, dla mnie: "MEP 01 - Arkusz2"
Oczekuję, że będzie on działał dla wszystkich posłów do PE
Witam
Oto szybkie makro, możesz usunąć kontrolę rysunku, jeśli jej nie potrzebujesz.
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
– Sprawdzamy, czy rzeczywiście mamy do czynienia z otwartym dokumentem
jezeli nie swmodel to nic to nic
– Sprawdzamy, czy to rysunek
Jeśli swModel.GetType = swDocDRAWING Następnie
swApp.CloseDoc swModel.GetTitle
Inaczej
MsgBox "To makro działa tylko na rysunkach", vbCritical + vbOKOnly
Zakończ jeżeli:
Inaczej
MsgBox "Proszę otworzyć dokument", vbExquiation + vbOKOnly
Zakończ jeżeli:
Koniec subwoofera
Brawo KVuilleumier
Twoje makro działa jak grzmot,
Czekam na kolejną odpowiedź, ale twoja jest bardzo dobra
Pozdrawiam newSW
Cieszę się, że moje makro ci pomogło.
W związku z tym, czy byłoby możliwe umieszczenie mojej odpowiedzi (tej, która zawiera makro) jako najlepszej odpowiedzi? :) Dziękuję.
OK KVuilleumier
Możesz mi powiedzieć, jak to robią, aby uzyskać najlepszą odpowiedź
Przy okazji zamieściłem również 1 pytanie dotyczące 1 makra, które ponownie otworzy plik, który zostało zamknięte przez makro,
Pozdrowienia
Nowy program programowy
W prawym dolnym rogu napisałeś "Oznacz jako najlepszą odpowiedź", po prostu kliknij na nią.