---

Hallo,

bin in VB blutiger Anfänger. Wollte in meinem jugendlichen Leichtsinn ein Makro aufzeichnen, das "nur" Folgendes tut:
Ein in V5 geöffnetes Dokument in ein bestimmtes Verzeichnis als .model abspeichern.
Leider nimmt das Makro jetzt immer den Namen des CATParts mit dem ich das Makro aufgezeichnet habe.
Das kann doch nicht so schwer sein ??????
Bitte um Hilfe.

umuenst

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

---

Hallo
Für eine Antwort wäre es sehr hilfreich wenn man ein paar Informationen mehr hätte z.b.:
Willst du den vorhandenen Namen des Part verwenden oder soll ein neuer eingegebn werden?
Soll das model im gleichen Verzeichnis abgespeichert werden?
...
Ansonsten befindet sich irgendwo in deinem Makro der aufgezeichnete Partname, diesen kannst du auch vor Benutzung des Makros händisch ändern.
Bis denn
Gruß Tstone

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

---

Hi Tstone,

zuallererst: Danke für Deine Antwort !

Ja, ich will den Namen des Parts / Drawings verwenden, genau das ist mein Problem.

Den Namen vor Benutzung des Makros händisch zu ändern, kann ICH schon...eigentlich wäre es ja auch kein Problem, die paar Klicks ( File --> Save As --> zu Directory klicken --> Dateityp auf .model ändern ) von Hand auszuführen, aber manche Konstrukteure brauchen für sowas halt ein Makro ;-)
Die Daten werden dann alle im gleichen Verzeichnis gespeichert, sozusagen ein " Transfer-Topf ", der in V4 deklariert ist. Das hat auch in der Aufzeichnung des Makros geklappt.

FreuŽ mich auf Antwort !

Grüsse

umuenst

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

---

Hallo
Versuch doch mal das:

Language="VBSCRIPT"

Sub CATMain()

Dim CATIA As CATIA.Application
Set CATIA = CreateObject("CATIA.Application")

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim AlterName As String
AlterName= partDocument1.FullName

Dim NeuerName As String
NeuerName = Left (AlterName,(Len(AlterName)-8))  & ".model"

partDocument1.ExportData NeuerName, "model"

End Sub

Ich hoffe alles wird Gut, bis denn
Gruß TStone

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

---

Hallo Tstone,

vielen Dank !!!! Habe Dein Makro am PC ausprobiert - und tut super !
Das File muß noch in ein anderes Verzeichnis geschrieben werden ( " fester " Pfad ), aber das habe ich wohl nicht klar ausgedrückt. Egal.
Mist ist, daß das Makro unter AIX nicht tut.
Die Fehlermeldung ist: "ActiveX component canŽt create object: 'Create Object' und bezieht sich auf Deine Zeile: "Set CATIA = CreateObject("CATIA.Application")".
Oh je, wie soll das enden ? Müssen in gemischten Netzwerken jew. ein Makro für UNIX und eins für WIN geschrieben werden ?
Was ist mit den Pfaden ? Wie oben erwähnt, sollte das File ausserdem in ein anderes Verzeichnis geschrieben werden. Nachdem der Pfad fest sein soll ( weil manch verwöhnter Konstruktuer an UNIX sich immer noch nicht durch einen Pfad klicken kann ... ), heißt er ja dann anders ( Laufwerksbuchstaben, Backslash statt Slash etc. )
Also, Du bist gut - danke nochmal für Deine VB-Kenntnisse, aber alles ( die Makro-Schreiberei in CATIA ) wird hoffentlich gut !

Gruesse

umuenst

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

---

Hi,

anbei zwei Antworten, die eventuell weiterhelfen:

1. CATIA ist ein Ankerobjekt von CATScript ("Effiziente Konstruktion mit Makros, S. 35). Probiere mal:
  Dim MeinCATIA As Application
  Set MeinCATIA = CATIA

2. Das Trennzeichen bei Windows lautet "\", bei Unix "/". Die Klasse "FileSystem" verfügt über die Eigenschaft "FileSeparator". Diese Eigenschaft liefert das korrekte Trennzeichen in Abhängigkeit des Betriebssystems ("Effiziente Konstruktion mit Makros", S. 191).

------------------
Tschüß, Dieter

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