查看: 2761|回复: 0

启动CATIA的VBS脚本,直接用

[复制链接]

6

主题

4

回帖

60

积分

管理员

积分
60
发表于 2020-7-9 21:57:16 | 显示全部楼层 |阅读模式

请使用QQ关联注册PLM之家,学习更多关于内容,更多精彩原创视频供你学习!

您需要 登录 才可以下载或查看,没有账号?注册

×
创建一个后缀是VBS的文本文件,
( V+ _6 B& ~4 x. {* Z2 i: Q" r, @9 T! W2 E. `
粘贴:
* Y, s, E: U- J+ l( B5 y! j" {" c- e' s7 Z
Dim CATIA5 {% ?( s/ T) y2 g! G
On Error Resume Next' R1 T' t/ s* P' C, I  P' V5 d
Set CATIA = GetObject(,"CATIA.Application"). s% [1 [' z* n' e
If Err.Number <> 0 Then
& P3 `) S5 c. g! _: I6 g. LSet CATIA = CreateObject("CATIA.Application")
0 v8 d& X7 e# w2 g) _: W$ ICATIA.Visible = True
( d1 @1 z' k8 r4 g9 B+ B2 {9 F& _End If
$ v7 m: k9 N5 `* \. {% @On Error GoTo 0
8 g' [8 g: d5 N  A
+ T3 A1 v4 L/ a3 F6 F7 X( }
+ n, {/ e' k" {7 W0 q" a会自动启动Catia程序 2 A- r# C* i. n" _  C6 W. R6 A" H
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

在本版发帖
关注公众号
QQ客服返回顶部