Hallo
Ik zal mezelf in meer detail toelichten over de kwestie,
Ik wil graag een macro maken die mij de tekening van mijn actieve assemblage maakt, op een modeltekening met vooraf gedefinieerde aanzichten,
die het vervolgens opneemt in DWG en vervolgens het lid van het Europees Parlement sluit zonder het op te slaan,
normaal gesproken als ik doe "tekening maken van" en ik selecteer het MEP-model, zet het mijn opvattingen goed, behalve daar wanneer ik de macrorecorder gebruik en ik het geen weergaven van mijn 3D op de MEP,
Hier is het ontwerp van de macro:
-----------------------------------------------------------------------
Dim swApp als object
Deel dimmen als object
Dim boolstatus als Booleaanse
Dim longstatus As Long, longwarnings As Long
Sub hoofd()
Stel swApp in = _
Toepassing.SldWorks
Deel instellen = swApp.ActiveDoc
Set Part = swApp.NewDocument("V:\BE\Cartridges\Drawing DWG.drwdot", 12, 0.21, 0.297)
Deel.WeergaveZoomtofit2
Deel.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
Deel.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
Deel.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
Deel.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
Deel.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
Deel.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
Deel.WeergaveZoomtofit2
longstatus = Part.SaveAs3("C:\Users\j-delepine\Desktop\Test DWG\te hernoemen. DWG", 0, 0)
boolstatus = Part.Extension.SelectByID2("Tekening", "SHEET", 0.236201718247981, 0.158738777908343, 0, False, 0, Nothing, 0)
Deel.ClearSelection2 Waar
Set Deel = Niets
swApp.CloseDoc "te hernoemen - Tekening"
Deel instellen = swApp.ActiveDoc
myModelView dimmen als object
Stel myModelView = Deel.ActiveView in
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Stel myModelView = Deel.ActiveView in
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "deel", False, longstatus
Deel instellen = swApp.ActiveDoc
Einde Sub
-----------------------------------------------------------------------------
Bij voorbaat dank voor uw antwoorden
PS: Ik ben geen complete beginner in VBA, maar ik weet niet alles:)