Hallo
Ich werde mich in dieser Angelegenheit näher erklären,
Ich möchte ein Makro erstellen, das mich zur Zeichnung meiner aktiven Baugruppe macht, auf einer Modellzeichnung mit vordefinierten Ansichten,
der es dann in DWG aufzeichnet und dann das MEP schließt, ohne es zu speichern,
Normalerweise, wenn ich "Zeichnung erstellen aus" mache und das MEP-Modell auswähle, werden meine Ansichten gut dargestellt, außer dort, wenn ich den Makrorecorder verwende und keine Ansichten meines 3D auf dem MEP ausführe.
Hier ist der Entwurf des Makros:
-----------------------------------------------------------------------
Dimmen swApp als Objekt
Teil als Objekt dimmen
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
Sub main()
swApp = _ setzen
Anwendung.SldWorks
Set Part = swApp.ActiveDoc
Set Part = swApp.NewDocument("V:\BE\Cartridges\Drawing DWG.drwdot", 12, 0.21, 0.297)
Teil.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
Teil.ViewZoomtofit2
longstatus = Part.SaveAs3("C:\Benutzer\j-delepine\Desktop\Test DWG\umzubenennen. DWG", 0, 0)
boolstatus = Part.Extension.SelectByID2("Zeichnung", "BLATT", 0.236201718247981, 0.158738777908343, 0, Falsch, 0, Nichts, 0)
Part.ClearSelection2 Wahr
Set Part = Nichts
swApp.CloseDoc "wird umbenannt - Zeichnung"
Set Part = swApp.ActiveDoc
myModelView als Objekt dimmen
Festlegen von myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Festlegen von myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "Teil", Falsch, longstatus
Set Part = swApp.ActiveDoc
Ende Sub
-----------------------------------------------------------------------------
Vielen Dank im Voraus für Ihre Antworten
PS: Ich bin kein kompletter Anfänger in VBA, aber ich weiß nicht alles:)