Macrocode om een MEP te sluiten

Out of category
1

Hallo allemaal,

Ik ben op zoek naar een stukje macrocodering, om 1 tekening af te sluiten, die ik zojuist heb geraadpleegd, zonder de wijzigingen op te slaan.

Mijn tests mijn rijstijl met de leermodus:

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 Deel = Niets
swApp.CloseDoc "MEP 01 - Blad2"

Einde Sub

Helaas is deze macro maar geschikt voor 1 bepaald planbestand

Ik zou graag willen dat de macro de actieve MEP sluit zonder deze op te slaan

Vriendelijke groeten 

nieuwe SW

2

Ik denk dat dit je zou moeten helpen, het werkt op mijn macro

 

Stel swApp = Toepassing.SldWorks in

Deel instellen = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Deel.WeergaveZoomtofit2
Set Deel = Niets
swApp.CloseDoc "Tekening1 - Blad1"
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
Einde Sub

 

3

Bedankt 

uw macro is net als de mijne het is gewoon geschikt voor 1 bestand, voor mij: "MEP 01 - Sheet2"

Ik ben op zoek naar een oplossing voor alle leden van het Europees Parlement

 

4

Hallo

Hier is een snelle macro, u kunt de tekeningcontrole verwijderen als u deze niet nodig heeft.

 

Dim swApp als SldWorks.SldWorks

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

Sub hoofd()
    Stel swApp = Toepassing.SldWorks in
    Stel swModel = swApp.ActiveDoc in
   
    'We kijken of er inderdaad een open document is
    Zo niet, dan is swModel niets
        'We kijken of het een tekening is
        Als swModel.GetType = swDocDRAWING Dan
            swApp.CloseDoc swModel.GetTitle
        Anders
            MsgBox "Deze macro werkt alleen op tekeningen", vbCritical + vbOKOnly
        Einde als
    Anders
        MsgBox "Open a.u.b. een document", vbUitroep + vbOKOnly
    Einde als
Einde Sub

 

 

 

5

Bravo KVuilleumier

Je macro werkt als de donder,

Ik wacht op een ander antwoord, maar dat van jou is erg goed

Groeten newSW

6

Ik ben blij dat mijn macro je heeft geholpen.
Zou het daarom mogelijk zijn om mijn antwoord (het antwoord dat de macro bevat) als het beste antwoord te geven? :) Bedankt.

7

OK KVuilleumier

Je kunt me vertellen hoe ze het doen om je het beste antwoord te geven

Trouwens, ik heb ook 1 vraag gepost over 1 macro die het bestand dat je macro heeft gesloten opnieuw zal openen, 

Vriendelijke groeten

Nieuwe SW

8

Rechtsonder heb je "Markeer als beste antwoord" geschreven, klik er gewoon op.