---

Hallo ich habe ein Macro das aus dem Dateinamen die Pos.Nr ausliest
zb 4_40_401ET 55 Halter
Pos. 55
diese Nr wird auch in das Schriftfeld geschrieben, aber  vor der 55 sollte noch Pos. stehen.

Wie bekomme ich das hin????

Brauche Hilfe
   

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

---

Hallo,

die Frage für mich klint so:

Zitat:

---

Hallo, ich habe ein Auto, keine Ahnung welches und ich habe ein Problem das ich nicht kenne.

Bitte um Hilfe 

---

Wie sieht das Skript aus? Wenn du das Online stellst dann kann dir vielleicht jemand helfen 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Schriftkopf.rar

Hir nun das Macro

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

---

Das File scheint fehlerhaft zu sein, ich kann es nicht extrahieren oder mein WinRAR schafft es noch nicht. Kannst du es nochmals posten, evtl. als zip?

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

        tberger@tobeplus.de

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

---

Schriftfeld_RD.zip

Jetzt als ZIP

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

---

Hallo,

also das ganze spielt sich in diesem Bereich ab:

Code:

---

vTXT = Left(oName, InStrRev(oName, ".CAT") - 1)

Name_1 = Mid(vTXT, InStrRev(vTXT, "_") + 9)  'Right Left Mid

Namex = Left(oName, InStrRev(oName, ".CAT") - 1)
Name_2 = Left(Namex, InStrRev(Namex, "_") + 7) 'Right Left Mid
Namey = Mid(vTXT, InStrRev(vTXT, "_") + 6)  'Right Left Mid
Name_3 = Left(Namey, Len(Namey) - 14) 'Right LeftMid

---

Leider sind die Variablennamen "Name_1", "Name_2" usw. nicht aussagekräftig. Du musst jetzt schauen in welcher Variable deine Position (im obigen Beispiel die 55) ausgelesen wird. Ich gehe jetzt einmal davon aus das es in der Variablen "Name_3" ist. Diese Zeile schreibst du dann folgendermaßen um:

Code:

---

Name_3 = "Pos. " & Left(Namey, Len(Namey) - 14) 'Right LeftMid

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Danke 

Schriftfeld passt jetzt so.

Moch ein kleine Frage kann man den Maßstab der ersten view auslesen?

guss

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

---

Hallo,

JA sicher geht das.

Code:

---

Sub CATMAin()

    Dim intDrawingDocObj As DrawingDocument
    Dim intScaleFirstViewStr As Double
   
    Set intDrawingDocObj = CATIA.ActiveDocument
   
    intScaleFirstViewStr = intDrawingDocObj.Sheets.ActiveSheet.Views.Item(3).Scale
   
    MsgBox "Masstab der ersten Ansicht: " & intScaleFirstViewStr

End Sub

---

Der Masstab kommt als Double Typ raus. D.h. bei einem Wert von "0,5" ist dein Maßstab 1:2. Willst du das so haben musst du dir noch eine Funktion schreiben die eine Double Variable in einen String Bruch umwandeln kann (siehe z.B. hier

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Noch mal kann man Textfelder über eine eingabebox füllen?

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

---

Ja kann man.

Hierzu gibt es Beispiele im Forum.
Einfach mal die Suche benutzen.

Grüsse Dominik

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