---

Hallo Leute

Also, ich bin kurz vorm Verzweifeln.
Als VBA Anfänger versuch ich gerade das Makro
der Beispiel Datei " bearing " zu verstehen.
(zu finden unter...Programme\Solid Edge\Custom\Bearing)
Die einzelnen Anweisungen hab ich ja verstanden.
Aber wo zum Henker ist außer der Stelle:

' Connect to Solid Edge
Set IApp = GetObject(, "SolidEdge.Application")
If Err Then
    MsgBox "Solid Edge must be running"
Else
    ' Get variables collection
    Set Vars = IApp.ActiveDocument.Variables
           
    ' Make sure correct document is active.
If UCase(IApp.ActiveDocument.Name) <> "BEARING.PAR" Then
    MsgBox "The document Bearing.par must be active."

der Name der "Par" Datei versteckt ??
Nach einem Umbennen der Datei kommt die MsgBox.......

Bitte helft einem Unwissenden

Gruß Patrick

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Patrick,

beachte bitte das der Name im Quellcode in Großbuchstaben geschrieben werden muß!
Der Name Deiner Datei wird mittels UCase() in Großbuchstaben verwandelt, nur so läßt es sich sauber vergleichen.
Du kannst aber im VB Editor mal einen Breakpoint auf die Zeile setzen (in die leere Spalte am linken Rand klicken), jetzt hält das Programm an dieser Stelle an und Du kannst Dir in Ruhe den Inhalt von Variablen ansehen (einfach mit der Maus auf die Variable, Ausdruck, usw. zeigen).
Du kannst das Programm danach auch wieder weiterlaufen lassen.

------------------
Gruß

Markus Gras
Unitec Informationssysteme GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Markus

Herzlichen Dank
Nun kann ich das Programm umschreiben.
Ich bin von der Art der Steuerung total begeistert.

Gruß Patrick

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP