可通过宏实现SolidWorks建模、出图、检查及参数修改等操作的自动化：一、录制并优化基础宏；二、批量导出工程图为PDF；三、一键检查并高亮错误特征；四、参数化驱动草图尺寸更新；五、创建带输入界面的弹窗宏。
如果您在SolidWorks中重复执行建模、出图、检查或参数修改等操作，效率低下且易出错，则可通过宏实现流程自动化。以下是多种可立即上手的宏自动化操作方法：
一、录制并优化基础宏
录制宏是最快速的入门方式，它将您的手动操作转化为VBA代码，便于后续复用与调整。该方法适用于视图切换、特征插入、草图绘制等固定流程任务。
1、确保“宏”工具栏已启用：右键任意工具栏 → 勾选“宏”。
2、点击“录制宏”按钮（红色圆点），系统开始记录所有操作。
3、在零件文件中执行目标动作，例如：插入基准面、绘制中心矩形、添加拉伸凸台。
4、点击“停止宏”，保存为“.swp”格式文件（如AutoCreateBoss.swp）。
5、点击“编辑宏”，在VBA编辑器中删除冗余代码（如视图旋转、误选对象等非核心语句）。
6、在关键步骤后添加提示语句：swApp.SendMsgToUser2 "凸台已自动生成", 0, 0，增强交互反馈。
二、批量导出工程图为PDF
该方法绕过逐个打开图纸的手动操作，直接遍历指定文件夹内全部工程图文件，调用API批量导出，节省90%以上时间。
1、新建宏文件，进入VBA编辑器。
2、在“工具→引用”中勾选“SolidWorks Type Library”和“Microsoft Scripting Runtime”。
3、声明文件系统对象：Dim fso As New FileSystemObject。
4、使用swModel.Extension.SaveAs方法设置导出路径与格式，其中swSaveAsOptions_Silent参数确保无弹窗干扰。
5、循环读取文件夹下所有“.slddrw”文件，对每个文档执行打开→导出→关闭三步操作。
6、导出路径中自动包含原文件名，避免命名冲突：outputPath = folderPath & "\" & Replace(swModel.GetTitle, ".slddrw", "") & ".pdf"。
三、一键检查并高亮错误特征
该方法通过遍历特征树识别返回错误码的特征（如悬空尺寸、丢失参考、重建失败），并将其选中高亮，便于快速定位与修复。
1、获取当前活动文档的FeatureManager对象：Set fm = swModel.FeatureManager。
2、调用swModel.FirstFeature启动遍历，使用Do While Not swFeat Is Nothing循环处理每个特征。
3、判断特征错误状态：If swFeat.GetErrorCode 0 Then。
4、执行swFeat.Select2 False, 0选中该特征，并在图形区域高亮显示。
5、累计错误数量，调用swApp.SendMsgToUser2输出总数："共发现 " & errCount & " 个错误特征"。
四、参数化驱动草图尺寸更新
该方法通过读取外部Excel表格中的数值，动态修改草图中多个尺寸参数，实现系列化设计的一键配置切换。
1、在VBA引用中启用“Microsoft Excel XX.X Object Library”。
2、使用CreateObject("Excel.Application")启动Excel实例，打开指定.xls文件。
3、读取第一行各列数据，分别对应草图中尺寸名称（如"D1@Sketch1"、"D2@Sketch1"）。
4、调用swModel.Parameter(dimName).SystemValue = valueFromExcel写入新值。
5、执行swModel.EditRebuild3强制重建模型，确保尺寸变更生效。
6、关闭Excel进程并释放对象：xlApp.Quit: Set xlApp = Nothing。
五、创建带输入界面的弹窗宏（UserForm）
该方法为非编程用户设计图形化操作入口，通过表单收集孔径、深度、数量等参数，再调用后台逻辑生成特征，显著降低使用门槛。
1、在VBA编辑器中右键工程 → “插入” → “UserForm”，添加文本框、标签、按钮控件。
2、双击“确定”按钮，编写事件处理代码，从TextBox中读取用户输入值。
3、将字符串转换为数值类型：holeDiam = CDbl(TextBox1.Value) / 1000（单位转为米）。
4、调用swPart.FeatureManager.FeatureSimpleHole2传入变量参数创建孔。
5、设置UserForm.Show Modal:=True，确保操作完成前无法切换至SolidWorks主窗口。
6、在UserForm的Initialize事件中预设默认值：TextBox1.Text = "8"，提升首次使用体验。
