启动CATIA的VBS脚本，直接用

admin

创建一个后缀是VBS的文本文件，
% }' t) N* L7 C8 @' N9 B
$ k3 P, F$ e5 r" z) Q# S8 n" l粘贴：

Dim CATIA
On Error Resume Next
Set CATIA = GetObject(,"CATIA.Application")
If Err.Number <> 0 Then
. k; r4 z( a7 i8 @/ \+ W' n& OSet CATIA = CreateObject("CATIA.Application")
+ D9 S! S0 s# _! u5 eCATIA.Visible = True
+ S+ O' N, f+ Y7 i6 }. yEnd If
, ?- N& D' p4 p, _On Error GoTo 0

- [4 K) ]# E: ^) s
会自动启动Catia程序
+ }, ?4 B9 N; R, S- J  o