Makrocode zum Schließen eines MEP

Out of category
1

Hallo an alle

Ich bin auf der Suche nach einem Stück Makrocodierung, um 1 Zeichnung zu schließen, die ich gerade konsultiert habe, ohne die Änderungen zu speichern.

Meine Tests zum Fahren mit dem Lernmodus:

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 = Nichts
swApp.CloseDoc "MEP 01 - Blatt 2"

Ende Sub

Leider ist dieses Makro nur für 1 gegebene Plandatei geeignet

Ich möchte, dass das Makro den aktiven MEP schließt, ohne ihn zu speichern

Herzliche Grüße 

neue SW

2

Ich denke, das sollte Ihnen helfen, es funktioniert auf meinem Makro

 

Legen Sie swApp = Application.SldWorks fest

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Teil.ViewZoomtofit2
Set Part = Nichts
swApp.CloseDoc "Zeichnung1 - Blatt1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc2("Part1", False, longstatus)
swApp.ActiveDoc.ActiveView.FrameState = 1
Ende Sub

 

3

Vielen Dank 

Ihr Makro ist wie meines, es ist nur für 1 Datei geeignet, für mich: "MEP 01 - Sheet2"

Ich hoffe, dass es für alle Abgeordneten funktioniert

 

4

Hallo

Hier ist ein schnelles Makro, mit dem Sie die Zeichnungsprüfung entfernen können, wenn Sie sie nicht benötigen.

 

Dim swApp als SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long

Sub main()
    Legen Sie swApp = Application.SldWorks fest
    Festlegen von swModel = swApp.ActiveDoc
   
    "Wir prüfen, ob es tatsächlich ein offenes Dokument gibt
    Wenn nicht, ist swModel nichts, dann
        "Wir prüfen, ob es sich um eine Zeichnung handelt
        Wenn swModel.GetType = swDocDRAWING Dann
            swApp.CloseDoc swModel.GetTitle
        Oder
            MsgBox "Dieses Makro funktioniert nur bei Zeichnungen", vbCritical + vbOKOnly
        Ende, wenn
    Oder
        MsgBox "Bitte öffnen Sie ein Dokument", vbAusrufezeichen + vbOKOnly
    Ende, wenn
Ende Sub

 

 

 

5

Bravo KVuilleumier

Ihr Makro funktioniert wie Donner,

Ich warte auf eine andere Antwort, aber deine ist sehr gut

Grüße newSW

6

Ich bin froh, dass mein Makro Ihnen geholfen hat.
Wäre es daher möglich, meine Antwort (diejenige, die das Makro enthält) als die beste Antwort zu setzen? :) Vielen Dank.

7

OK KVuilleumier

Sie können mir sagen, wie sie es machen, um Ihnen die beste Antwort zu geben

Übrigens habe ich auch 1 Frage zu 1 Makro gepostet, das die Datei, die Ihr Makro geschlossen hat, wieder öffnet, 

Herzliche Grüße

Neue SW

8

Unten rechts haben Sie "Als beste Antwort markieren" geschrieben, klicken Sie einfach darauf.