Dobrý den,

o tohle jsem se pokoušel již několikrát a zatím bez úspěchu. Zdaleka to není tak snadné, jak si představujete.

Použitím metody GetObject() si makro vždy chytí v pořadí první běžící Catii (jako COM object). Catia je (doufám že to píšu správně) tzv. multi-instance application, tj. pokud spustíte více Catií, vidíte je jako samostatné procesy. Naopak u single-instance, můžete spustit program kolikrát chcete, ale pořád se tváří jako jeden proces, pouze má více oken s dokumenty.

Poměrně dlouho jsem hledal řešení a poprvé narazil na možnost dostat se ke konkrétní instance přes tzv. ROT - running object table. V principu se instance chytala přes CLSID, ale i v tomto případě je tento identifikátor pokaždé totožny. Po chvíli laborování se snippetem se mi podařilo tuto možnost rozjet, ale se stejným výsledkem - vždy se mi vrátila prvně spuštěná instance. To jsem si nakonec potvrdil při dalším hledání na netu, kde tuto možnost jako řešení též zavrhli.

Ptal jsem se i kamarádů programátorů, nikdo mi nebyl schopen říct, jak by se na to dalo jít (resp. nechtěli se úplně nezištně pouštět do práce s nejistým výsledkem)

Ale...přesto existuje tohle video, ve které prezentují aplikaci CATIA Session manager, která umí ovládat instance jednotlivě, takže možnost určitě existuje.
Princip by měl být v "uložení COM objektu do souboru" a následnou identifikací (převedení) do root objektu CATIA, se kterým už se dá pracovat. K tomu bylo třeba vytvořit / použít nějaké knihovny v C...a zde jsem to tenkrát vzdal.

K videu na youtube jsem psal komentář s dotazem na dostupnost CS manageru, ale nikdo se neozval.


PS: Pokud by se vám to podařilo, byl bych ochotný řešení koupit.

Dobrý den,

jeden způsob existuje, ale je pracný a v případě, že makra budete spouštět ve více vláknech tak se nebudou muset chovat korektně.
Jde o to, že makro nepíšete jako klasickou WinForm aplikaci, ale jako .dll knihovnu, kterou musíte následně zaregistrovat do systému windows. Takovéto makro následně spouštíte vbs skriptem tak, že nejprve vytvoříte nový objekt z .dll a poté voláte příslušnou vstupní metodu s tím, že ji jako argument předáváte celou catii.

Tento způsob jsem používal posledních 10let a postupně ho opouštím neb je velmi pracný na ladění (při ladění totiž musíte mít spuštené druhé VisualStudio s pomocným spouštěcím projektem do kterého je nareferencovaná vámi vytvořená dll knihovna) a navíc takto psaná makra v určitých specifických případech padají.

Pokud byste měl zájem tak bych mohl napsat podrobný návod jak na to.

linky co se nepřenesli:
https://stackoverflow.com/questions/13807102/find-all-open-excel-workbooks
http://www.pinvoke.net/default.aspx/oleacc.AccessibleObjectFromWindow

Update informací...

Vyzkoušel jsem funkci AccessibleObjectFromWindow, bohužel bez výrazného úspěchu. Přikládám použitý kód.

DllImport("Oleacc.dll")> _

Private Shared Function AccessibleObjectFromWindow(ByVal hwnd As Int32, ByVal dwObjectID As UInt32, ByVal riid As Byte(), <MarshalAs(UnmanagedType.IDispatch)> ByRef ppvObject As Object) As Int32

End Function



Private Sub COMFromWindow(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim CATIAWindow As Object

        Dim CATIAProcess As Process = Process.GetProcessesByName("cnext").FirstOrDefault()

        Dim hWnd As Int32 = CATIAProcess.MainWindowHandle

        Const OBJID_NATIVEOM As Int32 = 0

        Dim IID_IDispatch As Guid = New Guid("618736E0-3C3D-11CF-810C-00AA00389B71")

        ' Dim IID_IDispatch As Guid = New Guid("7FBD9AB0-6840-0000-0280-030BA6000000") '

        Dim Result As Int32 = AccessibleObjectFromWindow(hWnd, OBJID_NATIVEOM, IID_IDispatch.ToByteArray, CATIAWindow)



        CATIA = CATIAWindow.Application

    End Sub

Kód je až do posledního řádku funkční. Podle popisů na webu se mi skutečně podařilo zachytit okno Catie, ale objekt je typu IAccessible, kde jsou jen omezené metody - nic čím by se dal zachytit COM objekt. Ve všech popisech (příkladu jsou na MS Excelu) se z tohoto objektu zavolá vlastnost .Application, což vrací kořenový COM objekt CATIA. Bohužel mě se nic podobného nepodařilo - v objektu iAccessible samozřejmě taková vlastnost neexistuje.

Jediné pojítko s oknem Catie je vlastnost accName, kde se objevuje caption okna Catie.

Vidím hned několik neznámých:

1) deklarace 4. parametru funkce, kde je typ UnmanagedType.IDispatch - co by to mělo správně být???

2) Giud - typ INFTIF. Window má Guid v zakomentovaném řádku - když to ale použiju, funkce vrátí prázdný objekt


Pokud by tohle mělo fungovat, bylo by to úžasné, ale jeví se mi to jako až moc jednoduché. Pořád doufám, že je mezi konstruktéry i jeden co umí trochu víc programovat ...

Dobrý den,
udělal jsem stejný průzkum už dřív jako je zde popsaný a dospěl jsem ke stejnmu konci - je to náročné :D. Je to vlastně způsobené samotným Dassaultem, a mám pocit, že tuten problém se šíří dál i na 3DExperience :D. Chtěl jsem to řešit už několikrát ale vždy to okládám, protože na to není čas.

Uživatel odpovídá na příspěvek #6530:

Dobrý den,

Princip "uložení COM objektu do souboru" má novojíčínská firma Dytron a řešení je plně funkční. Používám cca 2 roky a funguje dobře.
Zkuste se zeptat zda by produkt prodali.