Hallo mal wieder!
Hab ein Makro erstellt, das mir über eine Eingabe Zahlen/Buchstaben selektiert und in ein neues Part einfügt. Ich muss allerdings jede Zahl/Buchstabe in ein separates Eingabefenser eingeben. Das ist meinem Chef leider zu umständlich. Gibt es eine Möglichkeit, die Zahlen/Buchstaben, die ich benötige, in ein Eingabefenster einzugeben und das Makro dann jede string abarbeitet und nacheinander die Bodies in mein neues Part einfügt?
Hoffe, es kann mir jemand weiter helfen!
Hier ein kurzer Ausschnitt meines bisherigen Makros:
Set ADoc1 = CATIA.ActiveDocument
Set Liste1 = ADoc1.Selection
Liste1.Clear
Eingabe1 = "1.Zahl/Buchstabe der Teile-Nummer"
Eingabe1 = InputBox ("Bitte hier die 1.Zahl/den 1. Buchstaben der Teile-Nummer eingeben" & Chr (13) & Chr (10) & "Achtung: Groß- und Kleinschreibung beachten!", "Eingabe der 1.Zahl/des 1. Buchstaben der Teile-Nummer", Eingabe1)
If Eingabe1 = "" Then
CATIA.ActiveDocument.Close
Exit Sub
End If
Liste1.Search "'Part Design'.Körper.NAME =" & Eingabe1 & ";Alle"
Liste1.Copy
CATIA.Windows.Item(1).activate
'Einfügen der 1.Zahl/des 1. Buchstaben in das neue Part
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set selection1 = partDocument1.Selection
selection1.Clear
selection1.Add part1
selection1.Paste
'Weitere Zahl/Buchstabe?
Rueckfrage2 = MsgBox ("Wird noch eine Zahl oder ein Buchstabe benötigt?", vbYesNo)
If Rueckfrage2 = vbNo Then
Set WinCol = CATIA.Windows
Set ThisWindow1 = WinCol.Item(2)
ThisWindow1.activate
CATIA.ActiveDocument.Close
CATIA.ActiveDocument.Save
Exit Sub
ElseIf Rueckfrage2 = vbYes Then
CATIA.Windows.Item(2).activate
End If
Set Liste2 = ADoc1.Selection
Liste2.Clear
Eingabe2 = "2.Zahl/Buchstabe der Teile-Nummer"
Eingabe2 = InputBox ("Bitte hier die 2.Zahl/den 2. Buchstaben der Teile-Nummer eingeben" & Chr (13) & Chr (10) & "Achtung: Groß- und Kleinschreibung beachten!", "Eingabe der 2.Zahl/des 2. Buchstaben der Teile-Nummer", Eingabe2)
If Eingabe2 = "" Then
CATIA.ActiveDocument.Close
Exit Sub
End If
Liste2.Search "'Part Design'.Körper.NAME =" & Eingabe2 & ";Alle"
Liste2.Copy
...
End Sub
Ihr könnt Euch ja sicherlich vorstellen, dass dieses Makro ewig und wahrscheinlich auch unnötig lang ist!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP