Macro: De naam van het werkblad in een tekening

Macro
1

Heeft iemand een SolidWorks macro (SW2014) om dit te doen:

In een tekening, benoem (of hernoem) het eerste blad "Plan"

2

Wat levert de Macro recorder u op?

3

Ik heb niet getest...

4

De volgende verklaring moet worden gebruikt:

swSheet.SetName "Plan"

2 likes
5

Hier is een macro om te testen:

http://www.lynkoa.com/tutos/macro-solidworks-renommer-feuille-1-de-la-msie-en-plan

 

1 like
6

Het blijft om zeker te zijn dat het de eerste zal zijn.

Zie je het starten van de macro met een knop?

[bewerken] @.PL. Kunt u alstublieft uw code op de post plaatsen?

2 likes
7

Van de macro van @.PL is dit wat we ermee hebben gedaan:

Sub lecture_seule_bib()
Dim swApp als object
Deel dimmen als object

'Informatie: Ik heb elke regel code direct van onderaf becommentarieerd.
'Als je vragen hebt, kom dan gerust naar http://www.lynkoa.com/user/register/uref/MTM0

title = "SOLIDWORKS BESTAND LEES-/SCHRIJFMODUS"
Stel swApp = Toepassing.SldWorks in
    Verklaring van SolidWorks-aanvraag
Deel instellen = swApp.ActiveDoc
    Verklaring van het toneelstuk
PathName = UCase(Deel.GetPathName)
    Het verkrijgen van het pad + bestandsnaam
'Als links(UCase(PathName), 1) <> "o" dan
    De vorige verklaring becommentarieerde, om het te gebruiken, verwijder de ' (apostrof) aan het begin van de regel
    'In ons bedrijf staan alle bibliotheekbestanden op O: (netwerkschijf)
    'ALS: we controleren of het bestand op O staat
    'ret = MsgBox("Dit bestand staat niet op O:, procedure afgebroken", , titel)
    De vorige verklaring becommentarieerde, om het te gebruiken, verwijder de ' (apostrof) aan het begin van de regel
    'Bericht om aan te geven dat de procedure is afgebroken omdat het bestand niet in onze bibliotheek staat
   ' Uitgang Sub
    De vorige verklaring becommentarieerde, om het te gebruiken, verwijder de ' (apostrof) aan het begin van de regel
    "Einde van het programma indien het pad afwijkt van O:
'Einde als
De vorige verklaring becommentarieerde, om het te gebruiken, verwijder de ' (apostrof) aan het begin van de regel
Einde van SI (IF) blok

Als GetAttr(PathName) en vbReadOnly dan
Als het bestand alleen-lezen is
        ret = MsgBox ("Dit bestand is alleen-lezen, wilt u ernaar schrijven?" & vbNewLine_
        & vbNewLine & "Vergeet niet om uw wijzigingen later op te slaan", vbYesNo, titel)
        'bericht om te vragen of we er in lezen en schrijven toegang toe willen hebben
        Als ret = vbNo dan afsluit Sub
        'Zo niet, dan stappen we uit het programma
        SetAttr PathName, vbNormal
        'Als dat zo is, halen we de read-only in Windows weg
        Deel.BestandHerladen
        ret = Part.ReloadOrReplace(False, Part.GetPathName, True)
        Deel.BestandHerladen
        'We laden het document opnieuw in SolidWorks
Anders
'Anders (= bestand lezen, schrijven)
        ret = MsgBox("Dit bestand is gelezen/schrijven, wilt u het alleen-lezen maken?", vbJaNee, titel)
        'Bericht om te vragen of u toegang wilt tot het in de alleen-lezen modus
        Als ret = vbNo dan afsluit Sub
        'Zo niet, dan stappen we uit het programma
        SetAttr PathName, vbReadOnly
        'Als dat zo is, zetten we read-only in Windows
        Deel.BestandHerladen
        ret = Part.ReloadOrReplace(False, Part.GetPathName, True)
        Deel.BestandHerladen
        'We laden het document opnieuw in SolidWorks
Einde als
Einde Sub
Einde van het programma: als je het leuk vond, beoordeel dan deze tutorial op Lynkoa!

 


ficap_macro_renommer_premiere_feuille_mep.swp
1 like