Makro-Hilfe

Macro
1

Hallo

 

Ich suche nach einer Möglichkeit, die Standorteigenschaften meines Raums wiederherzustellen

 

Beispiel: Mein Dokument wird in einem Ordner "Fall X" gespeichert, in einem Ordner "Client Y"

 

Ich möchte, dass der Name der Client-Datei und der Name des Falls in meinem Block angezeigt werden.

 

Docn Ich möchte den Registrierungspfad abrufen und nur den Namen des Kunden und des Falls anzeigen, da ich oft vergesse, ihn anzugeben, und ich es merke, sobald der Druck abgeschlossen ist.

 

Lucas hatte mich auf ein Makro verwiesen.

 

Dim swApp als SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
 
Sub main()
 
 
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
 
 
swModel.AddCustomInfo2 "Dateipfad", swCustomInfoText, Links(swModel.GetPathName, InStrRev(swModel.GetPathName, "\"))
 
 
Ende Sub
Das Makro hat keine Fehler, aber ich bin mir nicht sicher, wie ich es danach machen soll.
Damit diese Information auf meiner Patrone landet.
Zu Ihrer Information gehe ich ein Formular für persönliches Eigentum durch.
 
Vielen Dank! =)
2
Hallo, eigentlich sollte das Makro eine benutzerdefinierte Eigenschaft namens "Dateipfad" hinzufügen, die Sie dann in Ihrem Schriftfeld oder in einer Anmerkung verwenden können.
1 „Gefällt mir“
3

Warum gibt mir die persönliche Eigenschaft "Dateipfad" den Namen der Client-Datei und den Namen der Geschäftsdatei?

 

Wie teilt man sie auf? Ich hätte gerne den Namen des Mandanten in einer Schachtel und den Namen des Falles in einer anderen Schachtel gehabt.

 

Es ist möglich?

4

Nun, ich habe einen Test mit einer Annotation gemacht.

 

Am Ende erhalte ich den vollständigen Pfad, als ob ich die Eigenschaft Ordnername eingefügt hätte.

5
Können Sie ein Beispiel für einen Pfad angeben, indem Sie den Namen des Kunden und des Geschäfts angeben?
1 „Gefällt mir“
6

Hier ist der Screenshot

 

Ich möchte "Kunde X" in die Kundenbox und "Affaire Y" in die Baustellen- oder Ref-Box eintragen.

 

 


macro.png
7

Dann müssen Sie den folgenden Teil vor dem End Sub einfügen:

 

filepath = Links(swModel.GetPathName, InStrRev(swModel.GetPathName, "\")) 
end = Len(Dateipfad) - 1
pos_cli = InStrRev(Dateipfad, "\", Ende)
client = Mitte(Dateipfad, pos_cli + 1, Ende - pos_cli)
pos_aff = InStrRev(Dateipfad, "\", pos_cli - 1)
case = Mid(Dateipfad, pos_aff + 1, pos_cli - 1 - pos_aff)

swModel.AddCustomInfo2 "Client", swCustomInfoText, Client

swModel.AddCustomInfo2 "Deal", swCustomInfoText-Fall
 

1 „Gefällt mir“
8

Es gibt wahrscheinlich eine einfachere Lösung, aber zumindest funktioniert es!

Das Makro fügt 2 weitere benutzerdefinierte Eigenschaften hinzu, die Sie in Ihrem Schriftfeld verwenden können:

"Client" für den Namen des Clients

"Deal" für die Deal-Nummer

 

1 „Gefällt mir“
9

Solange es funktioniert, bin ich damit einverstanden!

 

Es scheint mir wie ein Makro zu sein, aber ich habe einen Fehler auf dem client= Mid line (FilePath, po_cli+1, end-pos_cli)

10

In der Tat haben Sie einen Fehler gemacht, weil Sie nicht gut kopiert und eingefügt haben!

Es ist _cli und nicht po_cli 

1 „Gefällt mir“
11

Bearbeiten: Entfernen von Duplikaten

1 „Gefällt mir“
12

Nein, ich habe gerade auf Lynkoa schlecht nachgetippt

 

Ich habe richtig gesetzt: client = Mid(FilePath, pos_cli + 1, end - pos_cli)


macros.png
13

Seltsam, was ist der Fehler?

1 „Gefällt mir“
14

Laufzeitfehler 5

 

Ungültiges Argument oder ungültiger Prozeduraufruf

15

Trocknest du Lucas? :p ^^

1 „Gefällt mir“
16
Tut mir leid, dass ich keine Zeit hatte, es tiefer zu testen, ich schaue es mir heute Abend an.
1 „Gefällt mir“
17

Keine Sorge Lucas, es ist nett von dir!

 

Ich mache das als roten Faden, also ist es nicht extrem dringend;)

Auf jeden Fall sieht Ihr Makro sehr gut aus. Du schaffst!

Ich muss mich wirklich darin üben...

 

Einen schönen Tagesausklang wünsche ich Ihnen!

1 „Gefällt mir“
18

Tut mir leid, ich verstehe es nicht, zu Hause funktioniert es!

Ich lege Ihnen die Datei, die zu Hause funktioniert, in PJ ein, damit Sie testen können...

Vielen Dank für die Komplimente und einen guten Tagesausklang auch für Sie.


Pfad.swp
19

Ich verstehe es auch nicht...

 

Zu Hause oder im Büro, immer der gleiche Fehler.

 

Ich bin unter 2014.

 

Ein kleiner Fotoroman? Wenn Sie die Zeit haben, natürlich!

20
Wissen Sie, wie Sie das Debuggen für Makros verwenden? Andernfalls kann ich die Kontrolle über Ihren Computer aus der Ferne übernehmen?