Witam
Wyjaśnię się bardziej szczegółowo w tej sprawie,
Chcę utworzyć makro, które uczyni mnie rysunkiem mojego aktywnego zespołu, na rysunku modelu, który ma predefiniowane widoki,
który następnie zapisuje go w formacie DWG, a następnie zamyka instalację bez zapisywania,
normalnie, gdy robię "tworzenie rysunku z" i wybieram model MEP, dobrze umieszcza moje widoki, z wyjątkiem tam, gdy używam rejestratora makr i uruchamiam go bez widoków mojego 3D na MEP,
Oto szkic makra:
-----------------------------------------------------------------------
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ęść = swApp.NewDocument("V:\BE\Cartridges\Drawing DWG.drwdot", 12, 0.21, 0.297)
Part.ViewZoomtofit2
Part.ViewZoomTo2 0, 0, 0, 0,1, 0,1, 0,1
Part.ViewZoomTo2 0, 0, 0, 0,1, 0,1, 0,1
Part.ViewZoomTo2 0, 0, 0, 0,1, 0,1, 0,1
Part.ViewZoomTo2 0, 0, 0, 0,1, 0,1, 0,1
Part.ViewZoomTo2 0, 0, 0, 0,1, 0,1, 0,1
Part.ViewZoomTo2 0, 0, 0, 0,1, 0,1, 0,1
Part.ViewZoomtofit2
longstatus = Part.SaveAs3("C:\Users\j-delepine\Desktop\Test DWG\do zmiany nazwy. DWG", 0, 0)
boolstatus = Part.Extension.SelectByID2("Rysunek", "ARKUSZ", 0.236201718247981, 0.158738777908343, 0, Fałsz, 0, Nic, 0)
Part.ClearSelection2 Prawda
Ustaw część = Nic
swApp.CloseDoc "do zmiany nazwy - Rysunek"
Ustaw część = swApp.ActiveDoc
Przyciemnij myModelView jako obiekt
Ustaw myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Ustaw myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "część", Fałsz, longstatus
Ustaw część = swApp.ActiveDoc
Koniec subwoofera
-----------------------------------------------------------------------------
Z góry dziękuję za odpowiedzi
PS: Nie jestem kompletnym nowicjuszem w VBA, ale nie znam się na wszystkim :)