---

Hallo zusammen,

ich hab ein Macro geschrieben, welches mir aus dem 3-D eine Zeichnung ins Drawing ableitet.

Nun wäre es eine riesen Erleichterung, wenn ich den Sheet-Namen auch mit einem Macro erstellen kann.

Anforderung:
Ein Teil des Sheet-Namens wird aus dem Partnamen entnommen und andere Namens-Teile, für die Bezeichnung des Sheets, wiederum aus angelegten Parametern im Part.

Ich weiß das ich mit den Befehlen mid, left oder right Teile eines Namens auslesen kann, ich komm aber nicht wirklich weiter.

Hat irgendjemand eine Idee ?

Vielen Dank schonmal.

Mit freundlichen Grüßen,

cChris

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

---

Hallo cChris,

das dürfte kein Problem sein aber du mußt ein wenig präziser werden.

Welche Strings hast du, was willst du davon haben und wie soll der Fertige String zusammengesetzt werden.

Nützliche Befehle für Stringbearbeitung sind auch noch Replace, Split, Instr, Ucase, Lcase ... 

Ausserdem schreibe ich auch gerne den Benutzer und Datum mit in den Dateinamen.  Mit Date(), Format() und
CATIA.SystemService.Environ("USERNAME")

mfG
Mario

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

---

Hallo roccat,

Danke für die schnelle Antwort.
In den letzten Wochen konnte ich mich nicht mehr mit der Thematik beschäftigen.
Das Problem ist aber nachwievor vorhanden!

Also, der Sheetname lautet wie folgt: OP_010_01_01

Der Sheetname ist, in der Zeichenfolge immer so aufgebaut. Die Zeichen OP und die Underlines stehen immer an der gleichen Stelle und werden nicht ausgelesen. Diese Zeichen sind immer schon da.

OP_010_01_01 : 010 soll sich aus den Zeichen 15-17 aus dem Productnamen zusammensetzen.
OP_010_01_01 : 01 soll sich aus den Zeichen 25,26 aus dem Productnamen zusammensetzen.
OP_010_01_01 : 01 soll sich aus den Zeichen 29,30 aus dem Productnamen zusammensetzen.

Hast Du hierfür einen Lösungsansatz ?

Mit freundlichen Grüßen,

cChris

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

---

Hallo cChris,

da die Zeichen immer an der selben Stelle stehen kannst du daß mit der Mid() funktion machen.

Code:

---

Option Explicit

Sub DeineSub()
Dim MyProductName As String

'Beispiel für den Productname
MyProductName = "XXXXXXXXXXXXXX010YYYYYYY01ZZ01"

'Ausgabe, hier kann der Name dem Sheet übergeben werden
MsgBox CreateString(MyProductName)

End Sub

Function CreateString(sProductName As String) As String

Dim MyString    As String

MyString = "OP_"
MyString = MyString & Mid(sProductName, 15, 3) & "_"
MyString = MyString & Mid(sProductName, 25, 2) & "_"
MyString = MyString & Mid(sProductName, 29, 2)

CreateString = MyString

End Function

---

mfG
Mario

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

---

Danke roccat,

genau das habe ich gesucht. 10 Unities für Dich

Jetzt habe ich noch eine Frage, kann man den Wert eines Parameters XX in ein Textfeld übergeben ?

------------------
Mit freundlichen Grüßen,

cChris

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

---

Hallo cChris,

danke für die Units.

Ja, das sollte gehen aber welches Textfeld meinst du?
Im VBA-Editor die Textbox oder in der Drawing den Text?

Textbox:

Form1.TextBox1.Text=MyParameter.Value

2D Text:

MyText.Text=MyParameter.Value

mfG
Mario

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

---

Hallo roccat,

oh entschuldige das ich mich so missverständlich ausgedrückt habe.

Der "Parameter_Brennschnitt" ist im Product abgelegt und der Wert soll an ein Textfeld im Drawing übergeben werden.

------------------
Mit freundlichen Grüßen,

cChris

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