Hulp bij macro's

Macro
1

Hallo

 

Ik ben op zoek naar een manier om de locatie-eigenschappen van mijn kamer te herstellen

 

Voorbeeld: Mijn document is opgeslagen in een map "Geval X", in een map "Cliënt Y"

 

Ik wil graag dat de naam van het cliëntendossier en de naam van de zaak op mijn blok verschijnen.

 

Docn Ik wil het registratiepad ophalen en alleen de naam van de klant en de zaak laten zien, omdat ik dit vaak vergeet aan te geven en ik het me realiseer zodra het afdrukken is voltooid.

 

Lucas had me naar een macro gedirigeerd.

 

Dim swApp als SldWorks.SldWorks
Dim swModel als SldWorks.ModelDoc2
 
Sub hoofd()
 
 
Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
 
 
swModel.AddCustomInfo2 "File Path", swCustomInfoText, Left(swModel.GetPathName, InStrRev(swModel.GetPathName, "\"))
 
 
Einde Sub
De macro heeft geen fouten, maar ik weet niet zeker hoe ik dat daarna moet doen.
Zodat deze informatie op mijn cartridge terecht komt.
Ter informatie doorloop ik een formulier voor persoonlijke eigendommen.
 
Bedankt! =)
2
Hoi, eigenlijk zou de macro een aangepaste eigenschap moeten toevoegen met de naam "File Path" die je vervolgens kunt gebruiken in je titelblok of in een annotatie.
1 like
3

Waarom geeft de persoonlijke eigenschap "Bestandspad" mij de naam van het cliëntdossier en de naam van het bedrijfsdossier?

 

Hoe verdeel je ze? Ik had graag de naam van de cliënt in het ene vak gehad, en van het hoesje in het andere.

 

Is het mogelijk?

4

Nou, ik heb een test gedaan op een annotatie.

 

Ik eindig met het volledige pad alsof ik de eigenschap mapnaam had ingevoerd.

5
Kunt u een voorbeeld geven van een pad door de naam van de klant en de deal op te geven?
1 like
6

Hier is de schermafbeelding

 

Ik wil graag "Cliënt X" in het cliëntvak plaatsen en "Affaire Y" in het vak Bouwplaats of Ref.

 

 


macro.png
7

Dan moet je het volgende deel toevoegen voor de End Sub:

 

filepath = Links(swModel.GetPathName, InStrRev(swModel.GetPathName, "\")) 
einde = Lin (bestandspad) - 1
pos_cli = InStrRev(bestandspad, "\", einde)
client = Midden (bestandspad, pos_cli + 1, einde - pos_cli)
pos_aff = InStrRev(bestandspad, "\", pos_cli - 1)
case = Midden (bestandspad, pos_aff + 1, pos_cli - 1 - pos_aff)

swModel.AddCustomInfo2 "Client", swCustomInfoText, client

swModel.AddCustomInfo2 "Deal", swCustomInfoText case
 

1 like
8

Er is waarschijnlijk een eenvoudigere oplossing, maar het werkt tenminste!

De macro voegt nog 2 aangepaste eigenschappen toe die u in uw titelblok kunt gebruiken:

"Klant" voor de naam van de klant

"Deal" voor het dealnummer

 

1 like
9

Zolang het werkt, vind ik het prima!

 

het lijkt mij een macro, maar ik heb een fout op de client= Mid line (FilePath, po_cli+1, end-pos_cli)

10

Je hebt inderdaad een fout omdat je niet goed hebt gekopieerd en geplakt!

Het is _cli en niet po_cli 

1 like
11

Edit: dubbele verwijdering

1 like
12

Nee, ik heb gewoon slecht overgetypt op Lynkoa

 

Ik heb het correct gezegd: client = Mid (FilePath, pos_cli + 1, einde - pos_cli)


macros.png
13

Vreemd, wat is de fout?

1 like
14

Runtime-fout 5

 

Ongeldig argument of procedureaanroep

15

Ben je Lucas aan het afdrogen? :p ^^

1 like
16
Sorry dat ik geen tijd had om het dieper te testen, ik kijk er vanavond naar.
1 like
17

Geen zorgen Lucas, het is aardig van je!

 

Ik doe dit als een rode draad, dus het is niet extreem dringend;)

Je macro ziet er in ieder geval erg goed uit. Jij beheert!

Ik moet mezelf hier echt op trainen....

 

Lekker aan het einde van de dag!

1 like
18

Sorry dat ik het niet begrijp, thuis werkt het!

Ik zet je in PJ, het bestand dat thuis werkt, zodat je kunt testen...

Bedankt voor de complimenten en ook voor jou een goed einde van de dag.


pad.swp
19

Ik begrijp het ook niet...

 

Thuis of op kantoor, altijd dezelfde fout.

 

Ik ben jonger dan 2014.

 

Een kleine fotoroman? Als je tijd hebt natuurlijk!

20
Weet u hoe u foutopsporing voor macro's kunt gebruiken? Anders kan ik de controle over uw computer op afstand overnemen?