企业官网建设流程全解析

简介：本资源是一套面向SolidWorks初学者与自动化需求工程师的二次开发入门教程，聚焦宏录制、VBA编辑与API调用等核心实践环节，解决设计流程重复操作多、手动建模效率低等实际问题。教程系统讲解从零录制宏、自动打开VBA编辑器、识别并精简冗余代码（如删除未用变量声明、视图切换指令及无效SelectByID2/ClearSelection2组合）、以及利用SelectByID2与GetSelectedObject5精准访问特征等关键技能，内容直击开发落地难点。资源为单个Word文档（.doc），全文276KB，结构清晰、步骤详实，含大量可复用的代码片段与调试注释。目前已有6206人学习下载，适合机械设计人员、CAE仿真工程师及希望提升SolidWorks自动化能力的技术从业者快速上手并构建实用宏工具。

1. SolidWorks二次开发不是“写插件”，而是让设计流程自己跑起来：从宏录制到稳定可复用的自动化脚本

你有没有过这种体验：每天重复打开同一个装配体、插入同一组标准件、手动调整三个配合关系、再保存为新版本——一上午就干了27遍？这不是体力活，是流程卡点。SolidWorks二次开发的真实价值，从来不是炫技式地写个“高大上”插件，而是把这类确定性、高频次、易出错的手动操作，变成一个双击就能跑通的.swp宏文件。它不依赖.NET或C++编译环境，不碰注册表，不改安装目录，只靠VBA+原生API，在任意一台装了SolidWorks的机器上，只要打开软件、点一下“运行宏”，流程就自动走完。本系列教程的“靠谱”二字，就落在这个落地性上：所有代码都来自真实调试过的工程片段，每一步删什么、改什么、为什么必须加AccessSelections、为什么AddComponent4会静默失败——全是血泪经验。它适合两类人：刚转岗做标准化/工艺支持的工程师，想把重复劳动甩给电脑；还有带学生做课程设计的某高校导师，需要一套能讲清原理、又能当场跑通、还能让学生照着改参数的最小可行范例。别被“二次开发”四个字吓住，它本质是 SolidWorks 的“操作说明书翻译器”：你点鼠标做的动作，它帮你翻译成代码；你改代码，它就替你点鼠标。

2. 录制宏只是起点，真正能用的宏必须经过四步手术：删、剪、验、封

录制宏是入门最直观的方式，但直接拿录制结果去干活，大概率翻车。原因很简单：SolidWorks录制器是个“全量记录仪”，它不区分核心逻辑和干扰噪声。比如你旋转模型看背面，它就记下Part.ActiveView().RotateAboutCenter 0.0662574, 0.0346621；你切了个配置，它就塞进Model.Extension.SelectByID2("", "CONFIGURATION", 0, 0, 0, False, 0, Nothing, 0)。这些代码对自动化毫无价值，反而在后续调用时因视图状态不一致或空选择导致boolstatus = False。真正的可用宏，必须经历一次结构化清理。下面这四步，我称之为“宏手术”，每次新建宏必走一遍，已成肌肉记忆。

2.1 删除冗余声明：只留活着的变量

SolidWorks录制器会一股脑声明所有可能用到的对象，但90%的宏只操作零件或装配体，根本用不上Component2或DrawingDoc。不删，轻则内存占用虚高，重则在Set时因对象未初始化而报错Object variable or With block variable not set。

' 录制生成的原始声明（典型冗余） 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 Dim SelMgr As SelectionMgr ' 这个其实要用，但录制器没智能识别

' 清理后精简声明（按需保留） Dim swApp As SldWorks.SldWorks Dim Model As ModelDoc2 Dim SelMgr As SelectionMgr Dim boolstatus As Boolean ' 注意：这里显式声明为 SldWorks.SldWorks 和 ModelDoc2， ' 而非泛型 Object，好处是 VBA 编辑器能提供智能提示（IntelliSense）， ' 且编译时就能发现类型错误，比运行时报错好 debug 十倍。

提示：SldWorks.SldWorks和ModelDoc2是 SolidWorks 类型库（sldworks.tlb）中的具体类。必须在 VBA 编辑器中通过Tools → References勾选SOLIDWORKS 20xx Type Library（版本号匹配你当前 SolidWorks），否则As SldWorks.SldWorks会报错。这是新手第一道墙，跨不过去后面全白搭。

2.2 剪掉所有视图操作：让宏与当前视角解耦

任何涉及ActiveView、Rotate、Zoom、Pan的代码，一律删除。理由很硬核：自动化脚本的目标是“执行任务”，不是“展示过程”。你无法保证下次运行时模型视角和上次一样，强行保留这些代码，等于给脚本埋雷——它可能在某个视角下因坐标计算偏差而选不到面，也可能在工程图模式下因ActiveView对象不存在而直接崩溃。

' 必须删除的典型视图代码（示例，实际录制中可能有十几行） Part.ActiveView().RotateAboutCenter 0.0662574, 0.0346621 Part.ActiveView().ZoomToArea 0.1, 0.1, 0.9, 0.9 Part.ActiveView().FrameState = 1

逻辑说明：ActiveView是ModelDoc2的一个属性，但它返回的对象类型在零件、装配体、工程图中并不统一。RotateAboutCenter方法仅对DrawingView有效，对Part或AssemblyDoc会抛异常。而你的宏很可能要跨文档类型复用（比如同一段插入标准件的逻辑，既要用于零件建模，也要用于装配体编辑），所以必须剥离所有视图强依赖。

2.3 梳理选择逻辑：SelectByID2与ClearSelection2的配对陷阱

这是最隐蔽也最致命的坑。录制器生成的选择代码，常常是SelectByID2紧跟ClearSelection2，或者反过来。但 API 文档明确警告：ClearSelection2会清空所有选择，包括SelectByID2刚建立的；而SelectByID2在Append=False（默认）时，会先清空再选，相当于自带ClearSelection2。两者叠加，结果就是“选了等于没选”。

' 错误示范：录制器常见写法，导致选择失效 boolstatus = Model.Extension.SelectByID2("拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) Model.ClearSelection2 True ' 这一行让上面的选择瞬间归零

' 正确写法：只用 SelectByID2，且明确 Append 参数 ' 场景1：单次选择，覆盖当前选择（最常用） boolstatus = Model.Extension.SelectByID2("拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) ' 场景2：多对象累加选择（如选多个面做配合） boolstatus = Model.Extension.SelectByID2("面-1", "FACE", 0.1, 0.2, 0.3, True, 0, Nothing, 0) boolstatus = Model.Extension.SelectByID2("面-2", "FACE", 0.4, 0.5, 0.6, True, 0, Nothing, 0)

参数说明：Append参数是关键开关。False表示“清空重选”，True表示“追加到现有选择”。SelectByID2的X,Y,Z参数是世界坐标系下的选择点，用于精确点击（如选曲面上某点），若填0,0,0，SolidWorks 会尝试在对象几何中心附近选择，鲁棒性更高，推荐初学者统一用0,0,0。

2.4 封装容错校验：没有If的宏，就是定时炸弹

所有关键操作后，必须加If ... Then ... Else校验。这不是代码洁癖，是生产环境底线。比如GetSelectedObject5(1)返回Nothing，意味着用户根本没选东西，此时继续执行GetDefinition必然崩；ModifyDefinition失败，不检查就往下走，特征可能卡在“退回”状态，模型树变黄，用户还得手动右键“还原”。

' 容错封装模板（直接抄作业） Set SelMgr = Model.SelectionManager Set CurFeature = SelMgr.GetSelectedObject3(1) ' 用 GetSelectedObject3 更健壮，支持更多类型 If CurFeature Is Nothing Then swApp.SendMsgToUser2 "请先选择一个特征！", swMbWarning, swMbOk Exit Sub ' 立刻退出，不往下执行 End If ' 类型校验：确保选的是拉伸特征 If Not CurFeature.GetTypeName = "Extrusion" Then ' 注意：此处用字符串 "Extrusion"，而非常量 swTnExtrusion swApp.SendMsgToUser2 "请选择一个拉伸特征！", swMbWarning, swMbOk Exit Sub End If ' 获取定义前，先做 AccessSelections Set FeatData = CurFeature.GetDefinition isGood = FeatData.AccessSelections(Model, Nothing) ' 零件内操作，Component 传 Nothing If Not isGood Then swApp.SendMsgToUser2 "无法获取特征选择权限，请检查特征是否被压缩或外部引用丢失", swMbWarning, swMbOk Exit Sub End If

血泪经验：GetSelectedObject3比GetSelectedObject5更推荐，因为它的AtIndex参数支持0（表示“第一个有效选择”，自动跳过Nothing），且返回类型更明确。而swTnExtrusion这类常量，在某些 SolidWorks 版本或 VBA 环境下可能未正确定义，用字符串"Extrusion"是最稳妥的跨版本写法。

3. 访问与修改特征数据：GetDefinition+AccessSelections是黄金组合，漏一不可

很多新手卡在“能选中特征，却读不到参数”的死胡同里。根源在于没理解 SolidWorks API 的“两阶段访问”机制：GetDefinition只拿到一个“数据快照”，它告诉你“这个特征理论上有哪些参数”，但不保证你能安全读写；AccessSelections才是真正的“开门钥匙”，它告诉 SolidWorks “我要开始编辑这个特征了，请把相关几何体、草图、参考面等资源加载进内存，并锁定它们”。漏掉AccessSelections，GetDepth、SetDiameter这些方法要么返回默认值（如0），要么直接报错Invalid argument。下面以修改拉伸深度为例，拆解完整链路。

3.1 为什么GetDefinition后必须调用AccessSelections

GetDefinition返回的是一个FeatureData对象（如ExtrudeFeatureData、SimpleHoleFeatureData2），它本质上是一个“参数容器”，里面存着Depth、Diameter、IsBaseExtrude等属性。但这些属性的值，在特征创建后是“静态缓存”的。当你想读取真实深度（比如用户拖拽修改后的值），或想写入新值（比如把深度设为2*原值），SolidWorks 必须重新关联到原始草图、方向面、终止条件等底层几何。AccessSelections(Model, Component)就是触发这个关联的动作。它会：

• 检查特征所依赖的所有几何体（草图、面、边线）是否在当前文档中存在且可访问；
• 如果是装配体内的特征，还会解析Component参数，定位到正确的子部件；
• 成功后，FeatData对象才真正“活”过来，其属性读写才反映真实状态。

' 错误示范：跳过 AccessSelections，读到的 Depth 永远是初始值 Set FeatData = CurFeature.GetDefinition Depth = FeatData.Depth ' 这里得到的几乎肯定是创建时的值，不是当前模型里的实时值

' 正确链路：GetDefinition → AccessSelections → 读写 → ReleaseSelectionAccess Set FeatData = CurFeature.GetDefinition isGood = FeatData.AccessSelections(Model, Nothing) ' 零件内操作，Component 传 Nothing If Not isGood Then ' 处理失败，见上一章容错模板 Exit Sub End If ' 此时读取才是实时深度 Depth = FeatData.GetDepth(True) ' True 表示返回“终止于面”的深度值，False 返回“终止于距离”的值 ' 修改深度（注意：SetDepth 的第二个参数是布尔值，表示是否启用该深度） FeatData.SetDepth True, Depth * 2 ' 关键！修改后必须调用 ModifyDefinition 生效 isGood = CurFeature.ModifyDefinition(FeatData, Model, Nothing) If Not isGood Then swApp.SendMsgToUser2 "修改特征失败，请检查草图是否欠约束或参考面是否丢失", swMbWarning, swMbOk FeatData.ReleaseSelectionAccess ' 失败也要释放，避免内存泄漏 Exit Sub End If ' 成功后释放资源 FeatData.ReleaseSelectionAccess

参数深挖：FeatData.GetDepth(True)的True参数，对应 SolidWorks 中拉伸的“终止条件”。True表示“终止于指定面”，返回的是面到草图的距离；False表示“终止于指定距离”，返回的是数值距离。SetDepth True, newValue同理，它不仅设值，还强制将终止条件切换为“终止于面”。如果你的拉伸原本是“终止于距离”，强行SetDepth True可能失败，此时应先用FeatData.SetEndCondition swEndCondOffset, 0切换条件。

3.2 遍历特征面：当SelectByID2失效时，用GetFirstFace+GetNextFace破局

SelectByID2依赖特征名（如"拉伸1"、"圆角2"），但名字极易被用户修改，或在复制特征时自动生成"拉伸1-2"，导致脚本失效。更鲁棒的方式是“找几何”，即根据面的拓扑属性（如面积、法向、所属特征）来识别。Component2.GetBody→Body.GetFirstFace→Face.GetNextFace是标准路径。

' 功能：在选中的组件中，找到面积最大的那个面（常用于选基准面） Function GetLargestFace(dcom As Component2) As Face Dim swBody As Body2 Dim swFace As Face2 Dim maxArea As Double Dim largestFace As Face2 Set swBody = dcom.GetBody If swBody Is Nothing Then Exit Function Set swFace = swBody.GetFirstFace maxArea = 0 Do While Not swFace Is Nothing Dim area As Double area = swFace.GetSurfaceArea ' 获取面的面积 If area > maxArea Then maxArea = area Set largestFace = swFace End If Set swFace = swFace.GetNextFace ' 遍历下一个面 Loop Set GetLargestFace = largestFace End Function

' 在主逻辑中调用 Set comp = SelMgr.GetSelectedObject3(1) ' 先选中一个组件 Set targetFace = GetLargestFace(comp) If Not targetFace Is Nothing Then ' 用 SelectByID2 选中这个面（此时 Name 是系统生成的唯一ID，不会变） boolstatus = Model.Extension.SelectByID2(targetFace.GetID, "FACE", 0, 0, 0, False, 0, Nothing, 0) End If

玄学提示：Face.GetID返回的是一个长整数 ID（如123456789），它是 SolidWorks 内部为每个面分配的唯一标识符，不受用户重命名影响，是SelectByID2最可靠的Name参数来源。但注意，GetID只对Face2、Edge2、SketchSegment等几何对象有效，对Feature无效（Feature用GetName）。

3.3 修改孔特征：SimpleHoleFeatureData2的AccessSelections是生死线

孔特征（尤其是异形孔）的修改比拉伸更敏感，因为它的AccessSelections不仅要加载孔本身，还要加载螺纹线、倒角面等附加几何。SimpleHoleFeatureData2是处理标准直孔的核心类，其Diameter、Depth、HoleType属性必须在AccessSelections成功后才能安全读写。

' 修改选中直孔的直径和深度 Sub ModifyHole() Dim swApp As SldWorks.SldWorks Dim Model As ModelDoc2 Dim SelMgr As SelectionMgr Dim CurFeature As Feature Dim HoleData As SimpleHoleFeatureData2 Dim isGood As Boolean Set swApp = Application.SldWorks Set Model = swApp.ActiveDoc Set SelMgr = Model.SelectionManager Set CurFeature = SelMgr.GetSelectedObject3(1) If CurFeature Is Nothing Or Not (CurFeature.GetTypeName = "SimpleHole") Then swApp.SendMsgToUser2 "请选择一个标准直孔特征", swMbWarning, swMbOk Exit Sub End If Set HoleData = CurFeature.GetDefinition ' 关键！必须 AccessSelections，否则 GetDiameter 返回 0 isGood = HoleData.AccessSelections(Model, Nothing) If Not isGood Then swApp.SendMsgToUser2 "无法访问孔特征选择，请检查孔是否被压缩或参考丢失", swMbWarning, swMbOk Exit Sub End If ' 读取并修改 Dim oldDia As Double, oldDep As Double oldDia = HoleData.Diameter oldDep = HoleData.Depth HoleData.Diameter = oldDia * 1.2 ' 直径放大20% HoleData.Depth = oldDep * 1.5 ' 深度放大50% ' 生效 isGood = CurFeature.ModifyDefinition(HoleData, Model, Nothing) If Not isGood Then swApp.SendMsgToUser2 "修改孔失败，请检查孔类型是否支持此修改", swMbWarning, swMbOk End If HoleData.ReleaseSelectionAccess End Sub

避坑 / 常见问题 / 排查 / 注意
现象1：HoleData.Diameter总是返回0
原因：AccessSelections调用失败，但代码没检查isGood就直接读取。
解决：严格遵循GetDefinition → AccessSelections → if isGood then ...链路，AccessSelections失败时立即Exit Sub。

现象2：ModifyDefinition成功，但模型树中孔特征变黄（退回状态）
原因：修改后几何冲突，如新直径导致孔与相邻边线干涉，或新深度超出实体厚度。
解决：ModifyDefinition后，立即调用Model.EditRebuild3强制重建，若返回False，说明重建失败，需回滚或提示用户检查模型。

现象3：GetFirstFace遍历不出任何面
原因：dcom.GetBody返回Nothing，常见于：组件被压缩、组件是空引用（External Reference）、或dcom本身不是Component2类型（如误传了Feature）。
解决：在GetBody后加If swBody Is Nothing Then Exit Function，并在调用前用TypeName(dcom)确认类型。

现象4：SelectByID2用Face.GetID选不中面
原因：Face.GetID返回的是Long，但SelectByID2的Name参数是String，直接传会类型不匹配。
解决：CStr(targetFace.GetID)转为字符串后再传入。

现象5：宏在自己电脑跑通，发给别人就报错User-defined type not defined
原因：对方 VBA 环境未引用SOLIDWORKS 20xx Type Library。
解决：在 VBA 编辑器Tools → References中勾选对应版本的库；或改用As Object声明（牺牲智能提示，但兼容性100%）。

4. 装配体自动化：AddComponent4不是“插入”，而是“挂载”，OpenDoc6是前置刚需

在装配体中插入零部件，绝不是Model.AddComponent4 "C:\xxx.sldprt", "默认", 0,0,0一行代码的事。AddComponent4的官方文档里那句 “The specified file must be loaded in memory”（指定文件必须已在内存中加载），是绝大多数新手翻车的起点。它不是建议，是铁律。AddComponent4的本质是“挂载”一个已加载的内存实例，而不是“读取磁盘文件并加载”。如果文件没在内存里，它会静默失败（retval为Nothing），不报错，不提示，只让你对着空装配体发呆。破局之道，是OpenDoc6—— 它才是真正的“加载器”。

4.1OpenDoc6的参数详解：为什么swOpenDocOptions_Silent是默认选项

OpenDoc6是 SolidWorks 加载文档的底层接口，比菜单里的“打开”更底层、更可控。它的五个输入参数，每一个都决定着加载行为：

' OpenDoc6 函数签名（VBA） ' retval = SldWorks.OpenDoc6 (filename, type, options, configuration, Errors, Warnings) Dim retval As ModelDoc2 Dim nErrors As Long, nWarnings As Long ' 参数1：filename - 文件全路径，必须包含扩展名 Dim pth As String pth = "C:\MyParts\StandardBolt.SLDPRT" ' 参数2：type - 文档类型，必须用整数，不能用常量（常量可能未定义） ' 1=零件, 2=装配体, 3=工程图, 0=无效 Dim docType As Long docType = 1 ' 加载零件 ' 参数3：options - 打开模式，核心是 swOpenDocOptions_Silent (0) ' 0=静默（不显示窗口，不弹提示），1=只读，2=轻量化，4=后台加载... Dim openOptions As Long openOptions = 0 ' 强烈推荐，避免弹窗打断自动化流 ' 参数4：configuration - 配置名，为空字符串则用默认配置 Dim configName As String configName = "M6x1.0" ' 指定加载 M6 规格 ' 调用 Set retval = swApp.OpenDoc6(pth, docType, openOptions, configName, nErrors, nWarnings) ' 检查错误 If nErrors <> 0 Then MsgBox "加载失败，错误码：" & nErrors & "，请检查路径或文件是否损坏" Exit Sub End If

参数说明：options = 0（swOpenDocOptions_Silent）是灵魂。它让 SolidWorks 在后台静默加载，不弹出任何窗口、不抢占焦点、不播放加载动画。这对自动化至关重要——你想让脚本在后台默默干活，而不是突然跳出一个零件窗口挡住用户视线。nErrors和nWarnings是输出参数，OpenDoc6不会抛异常，所有信息都通过这两个Long返回。nErrors = 0表示成功，非零值查 SolidWorks SDK 文档（如1是文件未找到，2是文件格式错误）。

4.2AddComponent4的三要素：路径、配置、坐标，缺一不可

AddComponent4的签名看似简单，但三个参数（compName,configName,x,y,z）环环相扣：

' AddComponent4 函数签名 ' retval = AssemblyDoc.AddComponent4 (compName, configName, x, y, z) ' 参数1：compName - 必须是已加载文件的全路径（与 OpenDoc6 的 filename 一致） ' 即使文件已加载，这里仍需传路径，SolidWorks 用它做内部索引 Dim compPath As String compPath = "C:\MyParts\StandardBolt.SLDPRT" ' 必须和 OpenDoc6 的路径完全一致 ' 参数2：configName - 要加载的配置名，必须存在于该零件中 ' 如果为空，加载默认配置；如果配置名错误，静默失败 Dim compConfig As String compConfig = "M6x1.0" ' 参数3：x,y,z - 组件中心的世界坐标，单位是米（不是毫米！） ' 这是最大坑点：SolidWorks API 全部使用米制单位 Dim x As Double, y As Double, z As Double x = 0.1 ' 100mm y = 0.05 ' 50mm z = 0.0 ' 0mm ' 调用 Dim newComp As Component2 Set newComp = Model.AddComponent4(compPath, compConfig, x, y, z) ' 检查是否成功 If newComp Is Nothing Then MsgBox "AddComponent4 失败！请确认：1.文件已用 OpenDoc6 加载；2.路径配置名拼写正确；3.坐标在装配体范围内" Exit Sub End If

血泪经验：x,y,z是世界坐标系（WCS）下的位置，不是相对于某个面的偏移。新手常犯错误是把0,0,0当作“原点”，结果零件插到屏幕外。安全做法是：先用Model.Extension.SelectByID2选中一个参考点（如原点草图点），再用GetPointInSpace获取其坐标，作为AddComponent4的x,y,z。单位是米，务必牢记！100mm = 0.1，写成100就插到100米外去了。

4.3 配合（Mate）自动化：AddMate2的选择顺序与ClearSelection2的节奏控制

添加配合是装配体自动化的高潮，也是最容易混乱的环节。AddMate2本身不难，难在“选什么、怎么选、何时清空”。核心原则：一次AddMate2调用，只处理一对配合；每次调用前，必须确保选择列表里只有且仅有两个实体（一个来自装配体，一个来自新插入的组件）。ClearSelection2的调用时机，就是这个节奏的节拍器。

' 示例：为新插入的螺栓，自动添加“同心”和“重合”配合 Sub AutoMateBolt(newComp As Component2) Dim swApp As SldWorks.SldWorks Dim Model As ModelDoc2 Dim SelMgr As SelectionMgr Set swApp = Application.SldWorks Set Model = swApp.ActiveDoc Set SelMgr = Model.SelectionManager ' 步骤1：清空所有选择（为第一次配合做准备） Model.ClearSelection2 True ' 步骤2：选择装配体上的孔边线（假设已知名称 "HoleEdge"） boolstatus = Model.Extension.SelectByID2("HoleEdge", "EDGE", 0, 0, 0, False, 0, Nothing, 0) ' 步骤3：选择新螺栓的轴线（需先获取其轴线特征） ' 这里简化：假设螺栓有名为 "Axis" 的参考轴 boolstatus = Model.Extension.SelectByID2("Axis", "AXIS", 0, 0, 0, True, 0, Nothing, 0) ' Append=True，追加到选择 ' 步骤4：添加同心配合 Dim mateType As Long mateType = swMateCOINCIDENT ' 或 swMateCONCENTRIC，查 SDK 常量 Dim mateRet As Long mateRet = Model.AddMate2(mateType, 0, False, 0, 0, 0, 0, 0, 0, 0, 0, 0) ' 步骤5：再次清空，为下一次配合准备 Model.ClearSelection2 True ' 步骤6：选择装配体上的基准面（如 "FrontPlane"） boolstatus = Model.Extension.SelectByID2("FrontPlane", "PLANE", 0, 0, 0, False, 0, Nothing, 0) ' 步骤7：选择螺栓的端面（假设名为 "EndFace"） boolstatus = Model.Extension.SelectByID2("EndFace", "FACE", 0, 0, 0, True, 0, Nothing, 0) ' 步骤8：添加重合配合 mateRet = Model.AddMate2(swMateCOINCIDENT, 0, False, 0, 0, 0, 0, 0, 0, 0, 0, 0) End Sub

逻辑说明：AddMate2的参数虽多，但前两个最关键：mateType（配合类型）和align（对齐方式）。swMateCONCENTRIC是同心，swMateCOINCIDENT是重合，swMateDISTANCE是距离。align参数控制方向，0表示默认，1表示反向。ClearSelection2 True是强制清空，False是只清空图形区选择（不包括特征树选择），我们永远用True。记住这个节奏：Clear → Select1 → Select2 → AddMate2 → Clear → Select1 → Select2 → AddMate2。

5. 从“能跑”到“稳跑”：宏的发布、调试与防崩溃三板斧

写完一个功能完整的宏，只是万里长征第一步。真正的挑战在于：如何让它在不同电脑、不同 SolidWorks 版本、不同用户习惯下，都能“稳如老狗”地跑通？我见过太多宏，在开发者自己机器上完美运行，一发给同事就报错Object required或Invalid procedure call。这背后不是代码问题，是环境适配和防御性编程的缺失。下面这三板斧，是我从某跨平台系统项目中沉淀下来的实战心法，专治各种“本地OK，上线就崩”。

5.1 版本兼容性：用Application.SldWorks替代CreateObject("sldWorks.application")

很多教程教用CreateObject("sldWorks.application")启动 SolidWorks 实例，这在独立脚本中可行，但在宏里是毒药。原因：宏是在 SolidWorks 进程内运行的，Application.SldWorks就是当前正在运行的那个实例的引用。CreateObject会试图启动一个新进程，而 SolidWorks 不允许多实例共存（尤其在旧版本），结果就是CreateObject返回Nothing，后续所有Set Model = ...全崩。

' 错误示范：在宏里用 CreateObject Set swApp = CreateObject("sldWorks.application") ' 在宏中，这行大概率返回 Nothing Set Model = swApp.ActiveDoc ' 报错：Object variable not set

' 正确写法：永远用 Application.SldWorks Set swApp = Application.SldWorks ' 这是宏的“根”，100%可靠 Set Model = swApp.ActiveDoc ' ActiveDoc 是当前打开的文档

技巧：Application.SldWorks是宏的“上帝视角”，它永远指向你正在操作的 SolidWorks。swApp变量一旦Set，就不要Set swApp = Nothing，因为它是全局引用，Nothing会导致整个宏上下文丢失。

5.2 文档类型校验：Model.GetType返回的是数字，不是字符串

Model.GetType是判断当前文档是零件、装配体还是工程图的唯一可靠方法。但它的返回值是整数（1=swDocPART,2=swDocASSEMBLY,3=swDocDRAWING），不是字符串"Part"。新手常写If Model.GetType = "swDocPART"，结果永远False。

' 错误示范：用字符串比较 If Model.GetType = "swDocPART" Then ' 永远不成立，GetType 返回 Long ' do something End If

' 正确写法：用数字常量或直接比较 ' 方式1：用预定义常量（需确保引用了类型库） If Model.GetType = swDocPART Then ' 处理零件 End If ' 方式2：最稳妥，直接用数字（跨版本兼容） Dim docType As Long docType = Model.GetType If docType = 1 Then ' 零件 ElseIf docType = 2 Then ' 装配体 ElseIf docType = 3 Then ' 工程图 Else MsgBox "不支持的文档类型" Exit Sub End If

参数说明：swDocPART等常量定义在sldworks.tlb中。如果担心常量未定义，直接用数字1,2,3是最保险的。SolidWorks SDK 保证这些数字在所有版本中不变。

5.3 防崩溃兜底：On Error Resume Next与On Error GoTo 0的黄金搭档

VBA 的错误处理不是可选项，是必选项。On Error Resume Next让代码在出错时跳过错误行继续执行，On Error GoTo 0则关闭它，恢复默认的“出错中断”。二者

本文还有配套的精品资源，点击获取