简介：这份资源是面向机械设计工程师、CAD 开发者及自动化方向学习者的 SolidWorks 二次开发系统教程，以 doc 文档形式整理，帮助读者从零理解 API 调用、VBA 宏录制与调试等核心开发流程，解决设计过程重复操作多、效率低的问题。压缩包内共 1 个 doc 文件，约 276KB，内容按系列章节组织，涵盖录制宏的完整步骤、宏代码的编辑与调试要点，以及 SelectByID2、GetSelectedObject5 等关键 API 的语法与示例。教程从录制第一个宏讲起，说明如何删除多余变量声明、清理视图切换代码、处理 SelectByID2 与 ClearSelection2 的调用关系，并给出可直接参考的 VB 代码片段，便于读者对照理解特征选择与对象获取的实现方式。目前已有 6203 人学习，适合希望借助宏与 API 提升建模自动化水平、减少重复劳动的工程师按章节逐步实践。
1. 从一段录制的宏说起：为什么你的 SolidWorks 二次开发第一步就卡住了
很多人第一次接触 SolidWorks 二次开发，都是被“录制宏”这三个字骗进来的。点一下录制，画个拉伸，停止，打开代码一看——几十行，变量声明一堆，视图旋转、选择清空、坐标硬编码全混在一起。直接运行？大概率报错，或者选错对象，或者干脆把当前模型改乱。这不是你手笨，是录制的宏本来就不能直接当生产代码用。SolidWorks 的 API 是基于 COM 和 OLE 的，VBA 只是它的一个入口，录制出来的东西更像“操作录像”，不是“可维护的程序”。这套全教程系列的价值就在于，它没有停留在“怎么点按钮”，而是把录制、编辑、访问特征、修改数据、装配体插入、添加配合这条链路完整走了一遍，并且把每个环节里那些文档不会明说的坑都摆出来了。如果你正在用 VBA 做 SolidWorks 自动化，或者准备把重复建模、批量改参数、自动装配这些活交给程序，这份资源能让你少走很多弯路。它适合已经会基本建模、想往自动化方向走的工程师，也适合以前写过 Excel VBA、现在想迁移到 SolidWorks 的人。
2. 录制宏之后的第一刀：删代码、改声明、避开自动生成的陷阱
2.1 录制出来的宏到底多了什么
在 SolidWorks 里点“录制宏”，做几个操作，停止，然后点“编辑宏”，你会看到一段完整的 Sub。它通常包含这些内容：自动声明的对象变量、视图旋转代码、选择实体的 SelectByID2 调用、清空选择的 ClearSelection2 调用，以及一些你根本没注意到的中间状态操作。这些代码在录制时是必要的，因为 SolidWorks 要把你的鼠标动作翻译成 API 调用，但作为程序逻辑，它们大部分是噪音。
教程里给的建议很直接：先删掉没用的变量声明。录制宏会自动生成下面这些：
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如果你后面的代码只用了 swApp 和 Part，那其他几个就删掉。留着不是不行，但变量多了以后，调试时你分不清哪个是真正在用的。然后是视图切换代码，像Part.ActiveView().RotateAboutCenter 0.0662574, 0.0346621这种，直接删。录制时你转了一下模型，它就记下来了，但程序运行时不需要这个动作。
2.2 SelectByID2 和 ClearSelection2 的删除规则
这里有一个容易翻车的地方。教程里特别强调了：删除所有出现在ModelDoc2::ClearSelection2调用之前的ModelDocExtension::SelectByID2调用，但是不要删除出现在ClearSelection2之后的SelectByID2。为什么？因为录制时，SolidWorks 会先清空选择，再选新对象。如果你把清空之前的选对象代码留着，程序会先选一个东西，然后立刻被清空，等于白选。而清空之后的选择，才是你真正要保留的操作。
我一般会这样做：先通读一遍录制的宏，找到所有ClearSelection2，把它前面的SelectByID2全部删掉，只保留最后一次清空之后的选择逻辑。这样代码量能减少一半以上，而且逻辑清晰。
2.3 自动编辑宏的设置
如果你不想每次录完都手动去点“编辑宏”，可以在工具、选项、系统选项、常规里勾选“录制宏后自动编辑”。这个设置是持久的，下次录制完直接弹出 VBA 编辑器。另外，最近编辑过的 9 个宏会出现在工具、宏菜单里，方便快速打开。旧的.swb格式宏也能编辑，打开时会自动转成.swp。
提示：录制宏时尽量只做你真正需要自动化的那几步，不要一边录一边调整视图、切换窗口，否则后面删代码的工作量会翻倍。
3. 访问特征的两个核心 API：SelectByID2 与 GetSelectedObject5
3.1 为什么需要两种选择方式
SolidWorks 二次开发里，选对象是最频繁的操作。教程里重点讲了两个 API：SelectByID2和GetSelectedObject5。前者通过对象名称来选择，后者通过当前选择集里的索引来获取对象。这两个函数解决的是不同场景的问题。
SelectByID2适合你知道对象名字的情况，比如“拉伸1”“孔1”这种特征名。但问题是，很多面的名字是 SolidWorks 自动生成的，没有规律，你没法硬编码。这时候就需要用GetSelectedObject5，它拿的是用户或者程序之前已经选中的对象。比如你让用户在界面上点一个特征，然后程序通过索引 1 拿到它。
3.2 SelectByID2 的参数怎么填
先看语法：
retval = ModelDocExtension.SelectByID2(Name, Type, X, Y, Z, Append, Mark, Callout, SelectOption)Name 是对象名称，Type 是对象类型的大写字符串，比如 "BODYFEATURE" 表示实体特征。X、Y、Z 是选择位置，一般填 0 就行，除非你需要按坐标选。Append 是布尔值，True 表示追加到当前选择集，False 表示先清空再选。Mark 是标记值，用于有序选择，普通场景填 0。Callout 一般传 Nothing。SelectOption 是选择选项，写swSelectOptionDefault或者直接写 0。
教程里的例子是这样的：
boolstatus = Model.Extension.SelectByID2("拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault)如果选择成功，boolstatus 返回 True，然后就可以用 SelectionManager 拿到这个特征。
3.3 GetSelectedObject5 的索引逻辑
GetSelectedObject5的语法很简单：
retval = SelectionMgr.GetSelectedObject5(AtIndex)AtIndex 是当前选择列表里的位置，从 1 开始，到GetSelectedObjectCount为止。注意，它返回的是一个 Dispatch 对象，你需要根据实际类型去 Set 到对应的变量。教程里的用法是：
Dim SelMgr As SelectionMgr Set SelMgr = Model.SelectionManager Set feature = SelMgr.GetSelectedObject5(1) Debug.Print feature.Name这里有一个容易忽略的点：如果你没有先选中任何东西，GetSelectedObject5(1)会返回 Nothing，后面直接访问.Name就会报错。所以实际写代码时，一定要加判空。
3.4 一个完整的访问特征示例
把上面两个 API 串起来，可以写一个简单的宏，用来获取当前选中特征的名称：
Option Explicit Dim swApp As SldWorks.SldWorks Dim Model As ModelDoc2 Dim feature As feature Dim boolstatus As Variant Sub main() Set swApp = Application.SldWorks Set Model = swApp.ActiveDoc ' 先尝试按名称选择“拉伸1” boolstatus = Model.Extension.SelectByID2("拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) If boolstatus = True Then Dim SelMgr As SelectionMgr Set SelMgr = Model.SelectionManager Set feature = SelMgr.GetSelectedObject5(1) Debug.Print feature.Name Else Debug.Print "Error: 未找到指定特征" End If End Sub这段代码的逻辑是：先按名称选，选到了就从选择管理器里拿第一个对象，打印名字。选不到就输出错误。实际项目中，我会把SelectByID2的返回值判断和GetSelectedObject5的判空都加上，避免程序直接崩掉。
4. 读取与修改特征数据：从 SimpleHoleFeatureData2 到 ModifyDefinition
4.1 访问特征数据的标准步骤
教程里用简单直孔举例，展示了访问特征参数的完整流程。步骤是：定义特征对象、得到特征、得到定义、访问选择、读取参数。对应代码：
Dim featdata As SimpleHoleFeatureData2 Set curfeature = SelMgr.GetSelectedObject5(1) Set featdata = curfeature.GetDefinition boolstatus = featdata.AccessSelections(Model, component) dep = featdata.Depth dia = featdata.Diameter这里的关键是GetDefinition和AccessSelections。GetDefinition拿到的是特征的定义对象，不同类型特征对应不同的数据类，比如简单直孔是SimpleHoleFeatureData2，拉伸是ExtrudeFeatureData。AccessSelections是告诉 SolidWorks 你要开始访问这个特征的数据了，访问完要调用ReleaseSelectionAccess释放。
4.2 修改拉伸深度的完整例子
教程里给了一个把拉伸凸台长度翻倍的例子，代码比较长，但结构很清晰。我把它简化一下，保留核心逻辑：
Dim swApp As SldWorks.SldWorks Dim Model As ModelDoc2 Dim Component As Component2 Dim CurFeature As feature Dim FeatData As Object Dim Depth As Double Dim SelMgr As SelectionMgr Dim isGood As Boolean Sub doubleBE() Set swApp = CreateObject("sldWorks.application") Set Model = swApp.ActiveDoc ' 检查文档类型 If Model.GetType <> 1 And Model.GetType <> 2 Then swApp.SendMsgToUser2 "Only Allowed on Parts or Assemblies", swMbWarning, swMbOk Exit Sub End If Set SelMgr = Model.SelectionManager Set CurFeature = SelMgr.GetSelectedObject5(1) If CurFeature Is Nothing Then swApp.SendMsgToUser2 "Please select the Base-Extrude", swMbWarning, swMbOk Exit Sub End If ' 检查特征类型，注意这里用 Extrusion 而不是 swTnExtrusion If Not CurFeature.GetTypeName = "Extrusion" Then swApp.SendMsgToUser2 "Please select the Base-Extrude", swMbWarning, swMbOk Exit Sub End If Set FeatData = CurFeature.GetDefinition isGood = FeatData.AccessSelections(Model, Component) If Not isGood Then swApp.SendMsgToUser2 "Unable to obtain access selections", swMbWarning, swMbOk Exit Sub End If If Not FeatData.IsBaseExtrude Then swApp.SendMsgToUser2 "Please select the Base-Extrude", 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 "Unable to modify feature data", swMbWarning, swMbOk FeatData.ReleaseSelectionAccess End If End Sub这段代码里有几个教程作者踩过的坑。第一，Model.GetType返回的是整数，零件是 1，装配体是 2，直接用swDocPART和swDocASSEMBLY在某些环境里不通过，所以作者用了数字。第二，CurFeature.GetTypeName返回的字符串是 "Extrusion"，而不是常量swTnExtrusion，用常量反而匹配不上。第三，修改完数据后必须调用ModifyDefinition，否则改动不会生效。
4.3 退回状态与重建
教程里提到，如果特征出现“退回”状态，作者当时没找到原因，只能在代码最后调用Model.Save和Model.Rebuild来强制更新。我后来遇到类似情况，通常是因为AccessSelections之后没有正确释放，或者ModifyDefinition返回失败但没有处理。稳妥的做法是：不管成功失败，在退出前都调用一次ReleaseSelectionAccess，然后根据返回值决定是否EditRebuild。
注意：
AccessSelections和ReleaseSelectionAccess必须成对出现，否则特征数据会一直处于被占用状态，后续操作可能失败。
5. 装配体自动化：插入零部件与添加配合的避坑记录
5.1 AddComponent4 的前置条件
往装配体里插零件，用的是AddComponent4。语法：
retval = AssemblyDoc.AddComponent4(compName, configName, x, y, z)compName 是零件的完整路径，configName 是配置名称，x、y、z 是插入位置。看起来简单，但教程作者发现这个函数有个硬性要求：指定的文件必须已经在内存中加载。也就是说，你不能直接插一个没打开过的零件。解决办法是先调用OpenDoc6把零件打开，再插。
Sub insertpart() Set swApp = Application.SldWorks strpath = swApp.GetCurrentWorkingDirectory Set Model = swApp.ActiveDoc pth = strpath & "零件1.SLDPRT" openpart (pth) Model.AddComponent4 pth, "配置1", 0, 0, 0 End Sub Sub openpart(ByVal pth As String) Dim newswapp As SldWorks.SldWorks Set newswapp = Application.SldWorks Set YSBmodel = newswapp.OpenDoc6(pth, 1, 0, "", nErrors, nWarnings) YSBmodel.Visible = False End SubOpenDoc6的参数：文件名、类型（1 表示零件）、打开模式（0 表示静默）、配置名（空字符串表示默认）、错误和警告输出。打开后把Visible设为 False，这样用户看不到被插入的零件单独打开。
5.2 添加配合的流程与面选择难题
添加配合的步骤是：清空选择、选择配合实体、调用AddMate2、再次清空选择。难点在于选面。教程作者说得很实在：面的名字没有规律，用SelectByID2不现实，用坐标选更糟糕。他的做法是遍历组件的面，用GetFaces、GetFirstFace、GetNextFace这些方法找到合适的面。
Private Function selectface(dcom As SldWorks.Component2, tp As Integer) As Boolean Set swdowelbody = dcom.GetBody() ' 遍历面，根据类型或位置判断 ' ... End Function这段代码在原文里没写完，但思路是清楚的：拿到组件的 Body，然后遍历面，根据面的类型或者法线方向来筛选。实际项目中，我一般会结合面的面积、法线方向、以及相对于组件原点的位置来综合判断，而不是只靠名字。
5.3 避坑记录
现象：AddComponent4 返回 Nothing，零件没插进去。原因：目标零件没有提前加载到内存。 解决：先OpenDoc6打开零件，再调用AddComponent4。
现象：修改特征后模型没有更新。原因：没有调用ModifyDefinition，或者AccessSelections后没有释放。 解决：确保ModifyDefinition被调用，并且在所有退出路径上都调用ReleaseSelectionAccess。
现象：SelectByID2 返回 False，明明对象存在。原因：对象类型字符串写错了，或者对象名称大小写不匹配。 解决：用GetTypeName确认实际类型，名称尽量从模型树里复制。
现象：装配体里选面选不中。原因：面的命名是自动生成的，硬编码名称不可靠。 解决：遍历组件的面，用几何特征筛选，而不是依赖名称。
现象：宏运行到一半报“对象变量未设置”。原因：GetSelectedObject5返回了 Nothing，后面直接访问属性。 解决：每次拿到对象后先判空，再操作。
6. 让宏真正稳定：容错、重建与一个我常用的调试习惯
教程里的例子从简单到复杂，最后那个修改拉伸的宏已经带了比较完整的容错引导。但实际用起来，还有几个细节决定了它能不能天天跑。第一个是文档类型检查。Model.GetType返回 1 或 2，分别对应零件和装配体，如果不是这两种，直接退出，不要往下走。第二个是特征类型检查。GetTypeName返回的是字符串，比如 "Extrusion"，不要用常量去比，因为不同版本可能不一样。第三个是选择集的管理。每次操作前ClearSelection2，操作后也清空，避免残留选择影响下一步。
我自己的习惯是，在每个关键步骤后面加Debug.Print，输出当前状态。比如选到特征后打印CurFeature.Name，拿到深度后打印Depth，修改后再打印一次。这样一旦出错，从立即窗口就能看出是哪一步没拿到数据。另外，ModifyDefinition之后我会强制调用一次Model.EditRebuild，虽然教程作者说用Save和Rebuild，但EditRebuild更轻量，不会触发保存对话框。
还有一个技巧：把常用的容错逻辑写成一个独立的 Sub，比如CheckDocumentType、CheckSelection，在主流程里调用。这样代码不会到处都是 If 嵌套，读起来也清楚。最后，如果你要长时间运行批量任务，记得在循环里加DoEvents，让 SolidWorks 有机会刷新界面，不然容易卡死。
从那以后我每次写新的宏，都强制走一遍“录制、删代码、加容错、打印调试”这四步，没有再出现过跑一半崩掉的情况。希望帮到你。
本文还有配套的精品资源，点击获取
