---

Hallo,
vielleicht kann mir jemand von euch helfen. Mit Excel habe ich einen Konfigurator erstellt. Mit seiner Hilfe werden Artikelnummern ausgegeben, die gleichzeitig auch die Zeichnungsnamen sind. Jetzt lade ich über ein Excel-Makro die Bauteile in CATIA. Anschließend möchte ich gerne ein VBA-Makro in CATIA (aus Excel heraus) starten.
Leider habe ich noch keinen Erfolg gehabt. Vielleicht kann mir jemand von euch dabei helfen.

Danke schon mal.
Gruß Timo

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

---

Hallo Timo,

Du holst Dir mit

'===============
Set CATIA = GetObject("","CATIA.Application")
'===============

die CATIA Instanz und startest dann mit

'===============
Dim params()

CATIA.SystemService.ExecuteScript MacroPath, catScriptLibraryTypeDirectory, MacroName, "CATMain", params
'===============

dein Skript. Wahrscheinlich musst Du noch Dim 's zu diesem BeispielCode hinzufügen.

MacroPath, MacroName sind Strings und da musst Du den Pfad und den Dateinamen deines Skripts einfügen.

Ob das auch für .vba Dateien geht weis ich nicht, für .catvbs Dateien gehts mit Sicherheit (verwende ich selbst häufig)

Gruss Wolfgang

Edit: Statt "CATMain" kannst Du natürlich jede Sub angeben die Du starten willst.

[Diese Nachricht wurde von WolfgangKrenz am 08. Aug. 2005 editiert.]

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

---

Danke,
habe es ausprobiert. Mit CATScript hat es bei mir geklappt, leider aber nicht mir VBA.
Habe das Problem inzwischen anders gelöst. In Excel gebe ich die Daten in eine .txt aus und starte dann eine neue Instanz von CATIA mit dem Makro zusammen.

Gruß Timo

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

---

warum liesst du die daten nicht von catia aus vom geoeffneten excel file rein?

erst in catia VBA editor in tools references die excel object library ranlinken und dann:

Dim my_excel As Excel.Application
Set my_excel = GetObject(, "Excel.Application")
Dim my_sheet As Excel.Worksheet
Set my_sheet = my_excel.ActiveWorkbook.ActiveSheet

dann irgendwas_in_catia = my_sheet.Cells(i, j)

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