简介：这份文档面向希望入门 SolidWorks 二次开发的工程师与设计人员，聚焦用 API 与 VBA 实现自动化建模和自定义操作，解决手工重复设计效率低、宏录制后无法直接复用的问题。压缩包内共 1 个 doc 文件，约 276KB，以教程正文形式系统整理二次开发要点。内容从录制第一个宏讲起，说明录制后需删除未使用变量声明、视图切换代码及冗余的 SelectByID2 与 ClearSelection2 调用等调整方法，并介绍用 Microsoft VBA 编辑调试宏、最近九个宏列表、swb 旧格式自动转 swp 等细节；随后以 SelectByID2 和 GetSelectedObject5 两个访问特征的 API 为例给出示例代码与 VB 语法说明，便于对照理解对象选择与特征获取流程。已有 6207 人学习，适合作为二次开发起步阶段的参考材料。
1. 从一段录坏的宏说起：这套 SolidWorks 二次开发教程到底能解决什么
很多人第一次碰 SolidWorks 二次开发，都是从「录制宏」开始的——点一下录制，画个拉伸、打个孔、转个视图，停止，然后打开代码一看，几十行里一半是垃圾。直接运行？大概率报错或者行为诡异。这不是你操作错了，而是录制器把视图切换、冗余选择、自动生成的变量声明全塞进去了，它只保证「记录」，不保证「能跑」。这套全教程系列的价值就在这：它不跟你讲 COM 原理的大道理，而是从「录一个宏 → 删掉哪些行 → 用 SelectByID2 和 GetSelectedObject5 拿到特征 → 读参数 → 改参数 → 装配体插零件 → 加配合」这条完整链路，把 SolidWorks 二次开发里最常翻车的那几个 API 一个个拆开给你看。适合谁？适合已经会用 SolidWorks 建模、想把手头重复劳动脚本化的机械设计从业者，也适合刚接触 VBA 和 COM 调用、需要一个能照着跑通的最小闭环的开发者。它不覆盖完整插件工程化，但能让你把「宏能跑、参数能读能改、装配能自动装配」这几件事真正落地。
2. 录制宏到可运行脚本：删哪些行、留哪些骨架
2.1 录制出来的宏为什么不能直接用
SolidWorks 的宏录制器本质是个「操作录像机」，它把你每一次鼠标点击、每一次视图旋转都翻译成 API 调用，但它不判断这些调用对当前任务有没有意义。所以录完一段建模操作，你会看到三类典型垃圾：一是视图操作，比如Part.ActiveView().RotateAboutCenter 0.0662574, 0.0346621这种带一串浮点数的旋转，纯粹是录制时鼠标晃了一下；二是成对出现的冗余选择，SelectByID2后面紧跟一个ClearSelection2，再跟一个SelectByID2，中间那次清空往往是录制器自己加的；三是自动声明的变量，Dim swApp As Object、Dim Part As Object、Dim boolstatus As Boolean、Dim longstatus As Long, longwarnings As Long、Dim FeatureData As Object、Dim Feature As Object、Dim Component As Object这一串是模板自动塞的，你实际用不到几个。
我一般拿到录制宏后的第一件事不是运行，而是先做「减法」：把没引用的变量声明删掉，把视图切换整行删掉，把ClearSelection2紧挨在SelectByID2前面的那一次清空删掉——注意是「前面」，如果SelectByID2出现在ClearSelection2之后，那是正常的选择流程，不能动。这个顺序判断错了，后面选择集就乱了，属于血泪经验。
2.2 编辑与调试入口的实操配置
编辑宏有两个入口：工具栏上的 Edit Macro，或者菜单 Tools → Macro → Edit。如果你希望录完自动进编辑器，去 Tools → Options → Systems Options → General 标签，勾上Automatically edit macro after recording，这个设置是跨会话持久的，勾一次以后每次录完直接弹编辑界面，省得来回找文件。另外 Tools → Macro 菜单会列出你最近编辑过的 9 个宏，日常调试基本靠这个列表快速切换。
文件格式上有个坑要提前知道：.swp是当前宏格式，.swb是旧格式，你打开.swb时 SolidWorks 会自动把它转成.swp，所以别在.swb上做长期维护，转完就统一用.swp。
下面是一个清理后的最小可运行骨架，我习惯在Option Explicit下写，强制声明变量，能提前暴露拼写错误：
Option Explicit Dim swApp As SldWorks.SldWorks Dim Model As ModelDoc2 Dim boolstatus As Boolean Sub main() Set swApp = Application.SldWorks Set Model = swApp.ActiveDoc ' 确认当前有打开的文档，否则后续所有调用都会崩 If Model Is Nothing Then swApp.SendMsgToUser2 "请先打开一个零件或装配体", swMbWarning, swMbOk Exit Sub End If ' 这里放你清理后的建模/选择逻辑 Debug.Print "当前文档: " & Model.GetPathName End Sub逻辑说明：Set swApp = Application.SldWorks拿到 SolidWorks 应用对象，这是所有调用的根；swApp.ActiveDoc拿当前活动文档，赋给ModelDoc2。参数上，SendMsgToUser2的第二个参数是图标类型（swMbWarning警告、swMbInformation提示），第三个是按钮类型（swMbOk只有确定），比老式MsgBox更贴合 SolidWorks 界面风格。这段骨架本身不建模，但它把「空文档保护」这个最容易忽略的前置判断立住了——没有这个判断，后面任何Model.Extension.SelectByID2都会直接抛错，而且报错信息往往指向选择失败，让你误以为是名字写错了。
提示：
Option Explicit加上后，所有变量必须先Dim，录制宏里那些没声明的隐式变量会立刻报编译错误，这反而是好事，逼你把变量清单理清楚。
3. 两个核心选择 API：SelectByID2 与 GetSelectedObject5 怎么配合
3.1 SelectByID2 的参数逐位拆解
SelectByID2是「按名字选」，你告诉它对象叫什么、是什么类型，它去模型里找。完整签名是retval = ModelDocExtension.SelectByID2(Name, Type, X, Y, Z, Append, Mark, Callout, SelectOption)，返回布尔值表示选没选中。参数含义逐个说：
Name：对象名称，比如"拉伸1"，空字符串表示不按名字。Type：对象类型，大写字符串，取值来自swSelectType_e，选特征用"BODYFEATURE"，选面用"FACE"，选边用"EDGE"。X, Y, Z：选择位置坐标，按名字选时一般全填 0。Append：布尔值，True表示追加到当前选择集（已选中的会被移除），False表示先清空再选。Mark：标记值，给需要「有序选择」的后续函数用，普通选择填 0。Callout：关联标注指针，一般传Nothing。SelectOption：选择选项，来自swSelectOption_e，写了Option Explicit后可以直接用swSelectOptionDefault，也可以填 0。
一个典型调用：
boolstatus = Model.Extension.SelectByID2("拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault) If boolstatus = True Then Debug.Print "选中成功" Else Debug.Print "未找到该特征，检查名称是否含空格或已被重命名" End If这里最容易翻车的是Name：SolidWorks 默认特征名是「拉伸1」「拉伸2」，但中文界面下名字里可能带空格，而且用户重命名后你的硬编码就失效了。所以生产脚本里我一般不用硬编码名字，而是先遍历特征拿名字，或者让用户手动选中再用GetSelectedObject5取。
3.2 GetSelectedObject5 的索引语义
GetSelectedObject5是「按索引取」，前提是选择集里已经有东西。签名是retval = SelectionMgr.GetSelectedObject5(AtIndex)，AtIndex从 1 开始，上限是SelectionMgr.GetSelectedObjectCount。它返回一个 Dispatch 指针，类型由swSelType_e决定，取不到时返回NULL。
配合SelectByID2的典型写法是「先选后取」：
Dim SelMgr As SelectionMgr Dim feature As feature Set SelMgr = Model.SelectionManager Set feature = SelMgr.GetSelectedObject5(1) ' 取选择集里第 1 个对象 If Not feature Is Nothing Then Debug.Print feature.Name Else Debug.Print "选择集为空或索引越界" End If参数说明：AtIndex是「当前选择列表中的位置」，不是特征树里的序号，也不是对象 ID。如果你先SelectByID2选了一个特征，再手动在界面上多选一个，那GetSelectedObject5(1)取到的可能是先选的那个，顺序依赖选择动作的先后，这点在批量脚本里要特别小心——我一般会在取之前先Model.ClearSelection2 True清空，保证索引从干净状态开始。
注意：
GetSelectedObject5返回Nothing时不要直接访问.Name，VBA 里会抛「对象变量未设置」错误，必须先判空。
4. 读特征数据到改特征数据：GetDefinition、AccessSelections、ModifyDefinition 三步链
4.1 访问简单直孔参数的完整流程
要读一个特征的参数，标准链路是四步：定义特征对象 → 拿到特征 →GetDefinition拿定义对象 →AccessSelections申请访问权限。以简单直孔为例，孔深和孔径分别在SimpleHoleFeatureData2的Depth和Diameter属性上：
Option Explicit Dim swApp As SldWorks.SldWorks Dim Model As ModelDoc2 Dim curfeature As feature Dim featdata As SimpleHoleFeatureData2 Dim SelMgr As SelectionMgr Dim dep As Double Dim dia As Double Sub getHoleInfo() Set swApp = Application.SldWorks Set Model = swApp.ActiveDoc Set SelMgr = Model.SelectionManager Set curfeature = SelMgr.GetSelectedObject5(1) If curfeature Is Nothing Then swApp.SendMsgToUser2 "请先选中一个简单直孔特征", swMbWarning, swMbOk Exit Sub End If Set featdata = curfeature.GetDefinition If featdata Is Nothing Then Exit Sub ' 申请访问权限，装配体环境下第二个参数传 Component2，零件环境传 Nothing If Not featdata.AccessSelections(Model, Nothing) Then swApp.SendMsgToUser2 "无法获取访问权限", swMbWarning, swMbOk Exit Sub End If dep = featdata.Depth dia = featdata.Diameter Debug.Print "孔径 x 孔深 = " & dia & " x " & dep ' 用完必须释放，否则后续操作可能被锁 featdata.ReleaseSelectionAccess End Sub逻辑说明：GetDefinition返回的是「特征定义对象」，它和特征本身是两个东西，定义对象才带具体参数属性。AccessSelections是权限申请，返回False说明当前上下文不允许访问（常见于装配体里没传对 Component）。参数上，AccessSelections(Model, Component)在独立零件里Component传Nothing，在装配体里要传实际组件，传错会直接失败。最后ReleaseSelectionAccess一定要调，不调的话特征处于「被占用」状态，后续ModifyDefinition可能报错，这个坑我踩过不止一次。
4.2 修改拉伸深度并提交：ModifyDefinition 的容错写法
改参数比读参数多一步「提交」：改完定义对象后必须调ModifyDefinition把改动写回模型，否则内存里改了、模型没变。下面这个例子把基础拉伸的深度翻倍，带完整容错：
Sub doubleBaseExtrude() Dim Component As Component2 Dim CurFeature As feature Dim FeatData As Object Dim Depth As Double Dim isGood As Boolean Set swApp = CreateObject("sldWorks.application") Set Model = swApp.ActiveDoc ' 只允许零件或装配体，类型值 1=零件 2=装配体 If Model.GetType <> 1 And Model.GetType <> 2 Then swApp.SendMsgToUser2 "仅支持零件或装配体", swMbWarning, swMbOk Exit Sub End If Set SelMgr = Model.SelectionManager Set CurFeature = SelMgr.GetSelectedObject5(1) If CurFeature Is Nothing Then swApp.SendMsgToUser2 "请选中基础拉伸特征", swMbWarning, swMbOk Exit Sub End If ' 类型名判断，注意不同版本返回字符串可能是 "Extrusion" If Not CurFeature.GetTypeName = "Extrusion" Then swApp.SendMsgToUser2 "选中的不是拉伸特征", swMbWarning, swMbOk Exit Sub End If Set FeatData = CurFeature.GetDefinition isGood = FeatData.AccessSelections(Model, Component) If Not isGood Then swApp.SendMsgToUser2 "无法获取访问权限", swMbWarning, swMbOk Exit Sub End If If Not FeatData.IsBaseExtrude Then swApp.SendMsgToUser2 "请选中基础拉伸", swMbWarning, swMbOk FeatData.ReleaseSelectionAccess Exit Sub End If Depth = FeatData.GetDepth(True) FeatData.SetDepth True, Depth * 2 isGood = CurFeature.ModifyDefinition(FeatData, Model, Component) If Not isGood Then swApp.SendMsgToUser2 "修改失败", swMbWarning, swMbOk FeatData.ReleaseSelectionAccess End If End Sub参数说明：GetDepth(True)的True表示取「反向深度」那一侧的值，SetDepth True, Depth * 2对应写回同一侧，两个True必须一致，不一致会出现「读的是正向、写的是反向」的错位。ModifyDefinition(FeatData, Model, Component)三个参数分别是定义对象、模型文档、组件（零件环境传Nothing或未初始化的Component2）。GetTypeName返回的字符串在不同版本里可能是"Extrusion"而不是常量swTnExtrusion，我实测环境里常量判断不通过，改成字符串比较才稳，这点在跨版本部署时要留意。
如果改完特征出现「退回」状态，常见做法是在脚本末尾补Model.Save和Model.EditRebuild强制重建，虽然治标不治本，但能保证模型状态一致。
5. 装配体自动化：AddComponent4 插零件与 AddMate2 加配合
5.1 插零件前必须先 OpenDoc6 加载到内存
AddComponent4(compName, configName, x, y, z)的参数看着简单：文件全路径、配置名、插入点坐标，返回Component2指针。但它有个硬性前提写在备注里——指定文件必须已经在内存中加载。也就是说你不能直接对一个磁盘上没打开过的零件调AddComponent4，必须先OpenDoc6把它加载进来。
OpenDoc6(filename, type, options, configuration, Errors, Warnings)的参数：type用 1 表示零件、2 表示装配体、3 表示工程图、0 表示非 SolidWorks 文件；options一般用swOpenDocOptions_Silent（值为 0）静默打开；configuration传空字符串表示用上次使用的配置；Errors和Warnings是输出参数，用来接打开失败的原因。
Sub insertPart() Dim YSBmodel As ModelDoc2 Dim pth As String Dim nErrors As Long Dim nWarnings As Long Set swApp = Application.SldWorks Set Model = swApp.ActiveDoc pth = swApp.GetCurrentWorkingDirectory & "零件1.SLDPRT" ' 先加载到内存，再插入 Set YSBmodel = swApp.OpenDoc6(pth, 1, swOpenDocOptions_Silent, "", nErrors, nWarnings) If YSBmodel Is Nothing Then swApp.SendMsgToUser2 "零件加载失败，错误码 " & nErrors, swMbWarning, swMbOk Exit Sub End If YSBmodel.Visible = False ' 不想看到它弹出来 Model.AddComponent4 pth, "配置1", 0, 0, 0 End Sub逻辑说明：GetCurrentWorkingDirectory拿当前工作目录，拼出全路径；OpenDoc6返回ModelDoc2，失败时返回Nothing，此时nErrors里是swFileLoadError_e的错误码，排查时先看这个码。Visible = False让零件在后台加载不弹窗，批量插零件时界面不会闪成一片。AddComponent4的配置名必须真实存在，写错配置名不会报错但会插成默认配置，属于静默失败，很难查。
5.2 加配合时怎么稳定选到面
AddMate2加配合的流程是固定四步：ClearSelection2清空 → 选两个实体 →AddMate2→ 再ClearSelection2。难点全在「选实体」：面的名字是程序自动生成的，没规律，SelectByID2按名字选基本不可靠；按坐标选又太脆弱，模型一改坐标就偏。我一般用遍历面的方式：拿到组件或特征的GetBody，再GetFirstFace/GetNextFace逐个走，按面的几何属性（比如法向、面积、是否平面）筛出目标面，再SelectByID2用面对象选。
Private Function selectFaceByNormal(dcom As Component2, targetNormal As Variant) As Boolean Dim body As Body2 Dim face As Face2 Dim normal As Variant Set body = dcom.GetBody Set face = body.GetFirstFace Do While Not face Is Nothing normal = face.Normal ' 比较法向是否接近目标方向，容差 0.01 If Abs(normal(0) - targetNormal(0)) < 0.01 And _ Abs(normal(1) - targetNormal(1)) < 0.01 And _ Abs(normal(2) - targetNormal(2)) < 0.01 Then face.Select2 False, 0 selectFaceByNormal = True Exit Function End If Set face = face.GetNextFace Loop selectFaceByNormal = False End Function参数说明：face.Normal返回三元数组，表示面法向；face.Select2(Append, Mark)的Append传False表示替换当前选择，Mark传 0。容差 0.01 是经验值，太小匹配不上、太大误选相邻面，按模型精度调。这个函数只处理「法向唯一」的平面，圆柱面、曲面要换判据（比如半径、轴向），不能一套逻辑通吃。
注意：
AddMate2之前如果选择集里残留了上一次的对象，配合会加错位置，所以每次加配合前ClearSelection2 True是必须的，别省这一步。
6. 避坑与排查：五个我实际踩过的坑
6.1 现象：宏运行报「对象变量未设置」
原因：GetSelectedObject5返回Nothing后直接访问.Name或.GetDefinition。解决：所有取对象的调用后面先判Is Nothing，再往下走，这是最廉价也最有效的防护。
6.2 现象：SelectByID2返回False，但特征明明存在
原因：Name里带了多余空格，或者特征被重命名过，或者Type写成了小写。解决：Type必须大写（"BODYFEATURE"不是"bodyfeature"）；名字先用遍历特征的方式打印出来核对，别硬编码；中文界面下名字里的空格要原样保留。
6.3 现象：ModifyDefinition返回False，参数没改上
原因：AccessSelections没调或返回False就往下走了，或者GetDepth和SetDepth的True/False不一致导致读写错位。解决：AccessSelections的返回值必须判断，失败直接退出；读写深度用同一个布尔值；改完失败时补ReleaseSelectionAccess释放占用。
6.4 现象：AddComponent4插进去的是默认配置，不是指定配置
原因：configName拼写和零件里的配置名不完全一致，函数不报错但静默回退到默认配置。解决：插入前用OpenDoc6打开零件，遍历ConfigurationManager核对配置名，或者干脆用GetConfigurationNames打印出来对照。
6.5 现象：改完特征模型出现「退回」状态，重建后才正常
原因：ModifyDefinition提交后模型没有立即重建，特征树状态和几何不同步。解决：脚本末尾补Model.EditRebuild强制重建，必要时加Model.Save；如果频繁出现，检查是不是在装配体上下文里改零件却没传对Component。
7. 进阶技巧：把「录制—清理—参数化」固化成自己的模板
跑通上面几条链路后，真正省时间的是把重复部分模板化。我现在的习惯是维护一个.swp模板文件，里面预置好Option Explicit、swApp/Model/SelMgr三个全局对象、一个InitDoc()做空文档和类型检查、一个SafeSelect(name, type)封装SelectByID2加判空、一个ReleaseAll()统一释放。每次新任务复制模板，只写业务逻辑，前置判断和释放全走封装。
验证脚本是否可靠，我一般做三件事：一是拿一个已知参数的模型跑一遍，用Debug.Print把读到的值打出来和界面核对；二是故意传错名字、传空选择集，看容错分支是否按预期弹提示而不是崩；三是在装配体上下文里再跑一遍，因为零件环境和装配体环境在AccessSelections、Component参数上行为不同，零件能跑的脚本装配体里未必能跑。
| 封装函数 | 作用 | 关键参数 |
|---|---|---|
InitDoc() | 校验活动文档非空且类型合法 | 无，返回 Boolean |
SafeSelect(name, type) | 封装 SelectByID2 并判返回值 | name 精确匹配，type 大写 |
GetFeatData(feat) | 封装 GetDefinition + AccessSelections | 失败返回 Nothing |
ReleaseAll() | 统一 ReleaseSelectionAccess + ClearSelection2 | 无 |
这套模板不解决所有问题，但它把「空文档、选不中、没释放」这三类最高频的翻车点挡在了业务代码之外。从那以后我每次写新宏，都强制先套模板再写逻辑，宁可多花五分钟搭骨架，也不愿意在几十行录制垃圾里找那一行报错。希望帮到你。
本文还有配套的精品资源，点击获取
