SolidWorks*Excel+VBA-文件格式转换-其一

工程图需要输出成dwg，dxf以及pdf，模型文件需要导图为step，x_t，igs等中转格式。

以上6个文件格式相信各位工程师肯定不陌生，先来看个视频。

已关注

关注

重播分享赞

视频详情

代码篇幅比较长，而且有很多子程序调用，先暂时不展开介绍。

核心API方法：SaveAs2

参数还是比较容易理解的，新文件名，保存版本，保存为副本，是否静默运行。

这里的复选框看着是不是特别眼熟

对应的XML

回调函数

Sub PressChkbox(control As IRibbonControl, pressed As Boolean) '复选框    Select Case control.ID        Case "chk_DWG"            OutPutFileTypes.chk_DWG = pressed        Case "chk_DXF"            OutPutFileTypes.chk_DXF = pressed        Case "chk_PDF"            OutPutFileTypes.chk_PDF = pressed        Case "chk_STEP"            OutPutFileTypes.chk_STEP = pressed        Case "chk_X-T"            OutPutFileTypes.chk_X_T = pressed        Case "chk_IGS"            OutPutFileTypes.chk_IGS = pressed    End SelectEnd Sub

预先自定义了一个数据类型chkBoxs以及全局变量OutPutFileTypes

Public Type chkBoxs    chk_DWG As Boolean    chk_DXF As Boolean    chk_PDF As Boolean    chk_STEP As Boolean    chk_X_T As Boolean    chk_IGS As BooleanEnd TypePublic OutPutFileTypes As chkBoxs

这样就可以把复选框的勾选状态实时关联到变量OutPutFileTypes中。