Makro Solidworks meine ersten Anfänge

Macro
1

Hallo Community.

 

Ich befinde mich in einem frühen Stadium mit SW-Makros.

 

Ich möchte ein Makro erstellen, das den Namen der Datei (ohne die Erweiterung) abruft und diese Zeichenfolge in einer persönlichen Eigenschaft registriert.

Ich stoße auf PBS über das Aufteilen der Erweiterung des Dateinamens, den ich wiederherstellen konnte.

Unten ist der Code, den ich geschrieben habe. Was mache ich falsch, weil ich es wirklich nicht verstehe...

Dimmen swApp als Objekt
Sub main()

Legen Sie swApp = Application.SldWorks fest
    
Festlegen von swModel = swApp.ActiveDoc

Dim swBodies als Variante
Dim swBody As SldWorks.Body2
Set Part = swModel
            
Dim b Als Zeichenfolge
Dunkler Name

b = swModel.GetTitle
Debug.Drucken b

name = Split(b, ".", -1)

Name der Datei "Debug.Print"

Ende Sub

 

 

Vielen Dank im Voraus

2

Hallo

Was ist der Fehler?

3

Die Leitung muss ersetzt werden:

name = Split(b, ".", -1)

Bis:

Name = Links(b, (InStrRev(b, ".", -1, vbTextCompare) - 1))

 

Denn Split kann so nicht verwendet werden.

4

 

Ups, die empfangene Nachricht lautet: 

Laufzeitfehler 13

Typ-Inkompatibilität

1 „Gefällt mir“
5

Ja, ich habe getestet und gesehen.

Zu Ihrer Information ist es notwendig, auch darauf hinzuweisen, welche Zeile fehlerhaft ist:)

Mit meiner vorherigen Nachricht funktioniert es jetzt.

6

Vielen Dank, aber was bedeutet diese Codezeile???

1 „Gefällt mir“
7

Für die Aufteilung siehe hier:

http://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-I

Links siehe hier:

http://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-B

Für instrrev siehe hier (der Unterschied zu instr besteht darin, dass es am Ende des Strings beginnt):

http://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-E

 

Andernfalls siehe für Funktionen auf Zeichenketten auch:

http://boisgontierjacques.free.fr/pages_site/chainesvba.htm