本文总共884个字,阅读需3分钟,全文加载时间:2.909s,本站综合其他专栏收录该内容! 字体大小:

文章导读:CATIA三维设计软件在汽车设计制造、造船、航空航天行业应用非常广泛,工程师一天大部分时间就围着它转[呆无辜]。 CATIA工程图模块 将研发设计工程师的3D数据出图时,通常的出图方式是将零件、组件通过CATIA工程图……各位看官请向下阅读:

CATIA三维设计软件在汽车设计制造、造船、航空航天行业应用非常广泛,工程师一天大部分时间就围着它转[呆无辜]。

CATIA工程图模块

将研发设计工程师的3D数据出图时,通常的出图方式是将零件、组件通过CATIA工程图模块进行零件创建投影视图,再保存为DWG格式文件后,用Autocad软件正式出图。(图框、标准、标注等等)

利用CATIA宏程序创建一键保存DWG格式文件的功能指令,从而提高工作效率。

保存宏程序功能介绍:一键保存DWG格式文件至特定路径文件夹,并自动以时间命名或者自定。注:需要先在本地电脑创建dwg保存固定文件夹,并将固定文件夹地址替换掉宏程序中的路径。

代码截图如下,可自取使用,觉得对你有帮助,欢迎点赞反馈[看]

CATIA自动保存宏程序 代码截图

可复制一下代码到CATIA宏文件中使用,红色划线需要替换成自己创建保存的路径。

Language="VBSCRIPT"

Sub CATMain()

Dim CurrentTime

DIM i,an

Set drawingDocument1 = CATIA.ActiveDocument

CurrentTime=year(Now)&"-"&Month(Now)&"-"&day(Now)&"-"&Hour(Now)&"'"&Minute(Now)&"''"&Second(Now)

i=MsgBox ("文件保存名:" & CurrentTime, vbYesno,"文件保存提示")

IF i=vbyes THEN

an = inputbox("输入保存文件名","自定义保存文件名","默认名称")

IF an<>"" THEN

drawingDocument1.ExportData"C:\Users\61764\Desktop\新建文件夹\"&an&".dwg","dwg"

ELSE

drawingDocument1.ExportData"C:\Users\61764\Desktop\新建文件夹\"&CurrentTime&".dwg","dwg"

END IF

ELSEIF i=vbNo THEN

exit sub

END IF

End Sub

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑,如果对您有帮助欢迎转发分享!

你可能对这些文章感兴趣:

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注