Spuštění PowerCopy prostřednictvím ikony v Toolbaru

Jednoduchá pomůcka uživatele, který využívá PowerCopy.
Hlavním přínosem je zkrácení času při provádění existujícího PowerCopy
Koncepce spočívá v použití krátkého scriptu s následnou editací cesty k souboru PowerCopyReference.CATPart obsahující PowerCopy.

VBA :

CATIA.StartCommand "Instanciate From Document"
AppActivate "CATIA V5"
Dim partname As String
partname = "c:\temp\PowerCopyReference.CATPart"
Dim cmd As String
cmd = "wscript C:\SendKeys.vbs " & partname
Call Shell(cmd)

SendKeys.vbs:

Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.sleep 200
WshShell.SendKeys WScript.Arguments.Unnamed(0)
WshShell.SendKeys "{TAB 3}"
WshShell.SendKeys "{ENTER}"

Nakonec si uživatel vytvoří nový toolbar, kde si přidá nové ikony s odkazy na script. Při tomto použití PowerCopy již daný soubor nehledá na disku nebo v katalogu, ale otevře jej pouhým kliknutím na ikonu v systému CATIA V5.