SolidWorks二次开发入门：宏录制、API读写与避坑指南

简介这是一份面向SolidWorks二次开发初学者与希望提升自动化建模效率的工程师的系统教程文档围绕API与VBA宏展开重点解决从录制宏到编辑、调试与精简代码的入门问题。压缩包内共1个doc文件大小约276KB以图文教程形式组织适合按章节顺序阅读并对照SolidWorks软件操作。内容覆盖宏录制流程、Microsoft VBA编辑与调试入口、.swp与旧版.swb文件的转换也说明了最近九个宏列表、录制后自动编辑等实用设置。教程进一步讲解删除未使用变量声明、视图切换代码和多余选择调用等整理技巧并借SelectByID2与GetSelectedObject5两个API演示特征访问与调试输出思路。已有6208人学习下载可作为二次开发入门阶段的参考材料帮助读者理解宏代码结构、减少无效调用并建立后续自定义功能开发的排错习惯。1. 先别怕代码SolidWorks 二次开发到底是在做什么很多做机械设计的朋友第一次听到 solidworks 二次开发第一反应是「我又不是程序员这跟我没关系」。换个角度想就轻松多了你每天在软件里点的那些操作——打开零件、选中一个面、拉伸、装配、加配合——本质上都是一条条指令只不过你是用鼠标发的。所谓二次开发就是把这些指令写成文字让软件自己去执行。就像带一个新同事做设计第一次你手把手点给他看第二次他就能自己重复。宏就是这份「操作说明书」只是它写成代码之后能一遍又一遍替你跑不会点错、不会漏步、不会到下午手就酸了。这篇就从零开始带你把第一个宏跑起来。2. 为什么值得学把一天两百次的操作压成一次点击2.1 重复劳动到底吃掉了多少时间先算一笔很朴素的账。假设你手上有一批零件每个都要做同一件事打开、检查某个孔的深度和直径是不是在公差内、把数值抄到表格里、保存关闭。单个零件从点开到关掉,哪怕熟练工也要一分半一批五十个就是一小时出头。这一小时里你的大脑几乎不参与判断全是手指在做机械动作但人不是机器第四十个和第四十一个之间手一抖点错菜单后面可能全部返工。这类活儿的特点很明确步骤固定、判断规则简单、量大。它恰恰是最适合交给程序的部分因为程序没有「手滑」这个概念同样的输入永远给同样的输出。你只需要把「怎么判断、怎么记录、怎么保存」这三件事写成代码一次剩下的批次就是按下运行然后去倒杯水。需要说清楚的是二次开发不是要替代你的设计能力。真正值钱的是你知道这个孔该多深、那个配合该留多少间隙,这些判断是软件教不会的。二次开发把「执行」这一段接过去把你的时间还给「判断」。2.2 二次开发能替你做的四类事从最容易上手到最需要经验大致可以排成四层新手读完心里有个地图就不容易迷路。第一类是批量重复操作。改一百个文件的图纸格式、批量导出、批量改属性这类活儿逻辑最简单通常录制加改造就能搞定是新手最好的练手场。第二类是读数据做检查。比如遍历一个装配体里所有零件把每个孔的直径和深度读出来跟一张标准值表比对超差就记下来。这类任务的核心不在操作而在「怎么把模型里的数字拿出来」会用到后面要讲的特征数据访问。第三类是按规则自动建模。给定一组参数自动生成对应的模型比如系列化的支架、法兰。这类任务开始有门槛需要你对建模顺序本身非常清楚因为程序只会照你写的顺序做。第四类是自动装配与配合。往装配体里按规则插零件、自动加配合这是很多人最想做的部分也是踩坑最多的部分因为面、边这些几何元素的命名不像特征名那样稳定。刚入门不用想着一步做到第四类。先把第一类做扎实你会发现自己对软件的理解突然变清晰了——因为你被迫用「指令」而不是「手感」去描述一次操作。2.3 入门前的准备清单动手之前把下面几样东西备齐能省掉后面一大半的困惑。第一样是软件本身。只要你的版本里能看到「工具 → 宏」这一项菜单就说明宏功能是齐的不需要额外装开发环境。SolidWorks 内置的 VBA 编辑器就是我们写代码的地方。第二样是一个专用的练习文件夹。这一点听起来琐碎但我见过太多人第一次练习就打开了自己正在交付的项目文件一个跑飞的宏把模型改乱了只能靠备份。练习文件夹里放几个随便画的零件、一个空装配体怎么折腾都不心疼。第三样是一点点 VBA 的阅读能力注意是「阅读」不是「精通」。你只要能看懂Dim x As 类型是在声明一个变量、Set x 某对象是在赋值、If ... Then ... End If是在做判断就足够开始了。剩下的函数名、参数含义都可以边用边查。SolidWorks 自带的 API 帮助里例子很多看多了自然有感觉。注意练习阶段一定要用副本文件。宏一旦跑起来是按代码执行的它不会像手动操作那样在中途问你「确定吗」。准备工作到这里就够了不需要先去看什么编程教材。直接进下一章用录制的办法先摸到一个真实的宏。3. 第一步录一个宏再把它改到能用3.1 录制第一个宏五步走完录制宏的思路跟当年学 Excel 时一模一样先让软件把你的操作记下来再回头看它生成了什么。当年很多人学 Excel 的 VBA 就是这么入门的SolidWorks 也吃这一套只是生成的代码更啰嗦需要清理。具体怎么做按这个顺序来打开一个练习用的零件文件随便画一个拉伸凸台保存好。点菜单「工具 → 宏 → 录制」在弹出的对话框里给宏起个名字比如first_macro保存。这时软件开始记录你的每一个动作。做你想自动化的那件事比如选中拉伸特征、改一下长度、重建模型。点「工具 → 宏 → 停止」。点「工具 → 宏 → 编辑」选中刚才那个.swp文件打开。第五步会把你带到 VBA 编辑器界面。第一次看到那一屏代码大概率会懵满屏的Dim中间夹着几行看不懂的调用别慌下一步就讲怎么读它。顺便说一个能省事的设置在「工具 → 选项 → 系统选项 → 常规」里勾上「录制宏后自动编辑宏」以后停止录制的瞬间编辑器就自己弹出来了不用再来回点菜单。这个设置会记住下次打开软件依然生效。还有一个细节值得知道宏文件的标准后缀是.swp如果你拿到的是老一点的.swb文件照样可以打开编辑软件会自动帮你转成.swp。另外「工具 → 宏」菜单里会列出你最近编辑过的九个宏常用的宏不用每次去文件夹里翻。3.2 打开编辑器录下来的代码长什么样录完之后打开编辑器你会看到一个典型结构顶部一排Dim声明下面一个Sub main()过程中间是录下来的操作序列。顶部那几行通常是这样的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这几行是录制时软件自动塞进来的它不管你有没有用到统统先声明一遍。在 VBA 里声明本身不花什么代价但它会让你误以为「这些东西我后面会用到」读代码时平白多出一堆干扰。清理的时候第一件事就是把没用到的删掉。中间那部分才是你真正做的操作。这里有个关键认知录制出来的代码不能直接用。这不是你操作有问题,是所有录制的宏都这样因为录制器会把「鼠标的每一个动作」都记下来包括那些对结果毫无影响的视图旋转、缩放、重复的选择取消。举个例子你在建模过程中顺手转了一下视角看看侧面录制器就会老老实实记下一行类似Part.ActiveView().RotateAboutCenter 0.0662574, 0.0346621的代码后面跟着一串没什么规律的小数。这行代码对你的自动化目标毫无用处但它会在每次运行时把视角转一下跑批量任务的时候屏幕上就是一片乱晃。3.3 三步清理法把录制的宏改到能顺利运行清理不是靠感觉按这三步走顺序别乱。第一步删掉没用到的变量声明。打开代码从上往下看凡是声明了但后面一次都没出现过的变量整行删掉。判断方法很简单在编辑器里按 CtrlF 搜一下这个变量名只搜到声明那一处就可以删了。第二步删掉所有跟视图相关的代码。凡是以ActiveView开头、参数里带一串小数的调用基本都是视角切换、缩放、旋转一律删。这类代码留着不但没用还会拖慢执行速度。第三步处理选择动作的冗余。录制器对「选择」这件事特别敏感它会频繁插入「先清空选择、再选中某个东西」的成对动作。规则可以记成这样如果一个「清空选择」紧挨在一个「按名字选择」的前面那个清空动作通常是多余的可以删但紧跟在「清空选择」后面的「按名字选择」要留着因为那是真正干活的指令。三步做完代码一般会瘦掉三分之一以上。这时候先别急着改逻辑直接按 F5 跑一遍看看能不能走通。3.4 第一次运行按 F5 之后该看什么按 F5 之前先把当前文档切到你录制时用的那个零件其他文档关掉。这一步很重要因为很多录制的宏默认操作「当前活动文档」你开着三个窗口它可能跑到别的文件上去。运行之后有三种可能的结果每种都对应不同的下一步第一种顺利跑完模型上出现了你录制时做的那个变化。这是最好的情况说明清理没伤到逻辑。这时候可以再跑第二遍、第三遍看看结果是不是稳定——如果第二遍报错通常是因为第一遍已经把特征改名或删掉了。第二种弹出类型不匹配之类的错误。这往往是因为某些枚举常量在当前环境里没定义后面避坑那一章会专门讲。第三种代码跑完没报错但模型一点变化都没有。这通常是选择那一步没成功代码走进了「什么都没选到」的分支安安静静地结束了。第一次跑失败太正常了。我第一次录宏的时候代码跑完弹了三个报错框改到能跑用了一个下午。把报错信息抄下来对照下一章的两个核心函数逐个核对基本都能定位到问题。4. 两个核心 API从选中一个特征到读它、改它4.1 先搞懂一件事SolidWorks 眼里只有「被选中的对象」这一节是整个入门路上最重要的概念理解了它后面一大半函数就顺了。你在屏幕上看到的模型是一个由特征堆起来的东西草图、拉伸、圆角、孔。但程序不是这么看它的。程序看到的是一份「当前选中了什么」的清单——你在界面里点了一个面清单里就多了一个面你按 Ctrl 再点一个边清单里就有两个元素还带着先后顺序。几乎所有二次开发的操作都是先往这份清单里放东西再对清单里的东西做动作。所以有两个动作你必须会一是怎么把东西放进清单按名字选还是让用户自己先选好二是怎么从清单里把东西取出来按索引取第一个、第二个。前者对应SelectByID2后者对应GetSelectedObject5这两个函数贯穿了后面所有的例子。4.2 第一个能跑的例子选中「拉伸1」并打印它的名字先看一段完整能跑的代码功能很朴素在一个零件里找到名字叫「拉伸1」的特征选中它然后把它的名字打印到「立即窗口」。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这个特征类型限定为 BODYFEATURE 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 从当前选中清单里取第 1 个对象 Set feature SelMgr.GetSelectedObject5(1) Debug.Print feature.Name Else Debug.Print Error End If End Sub运行前把当前文档切到一个含有「拉伸1」这个特征的零件上。按 F5 之后编辑器下方会弹出一个「立即窗口」里面打印出拉伸1如果你把特征名改成不存在的名字会打印Error。这段代码的逻辑顺序是先拿到 SolidWorks 应用对象再从应用对象拿到当前文档然后按名字选中一个特征如果选成功了就从选择管理器里把它取出来并读名字。中间那个If boolstatus True是容错分支非常重要——选择这件事经常失败不写判断的话后面取对象会直接崩。这里有个小细节值得记住Option Explicit这行放在文件最上面意思是「所有变量必须先声明才能用」。它有个副作用——在它的约束下SelectByID2最后一个参数可以直接写0代表默认选择选项不用去查那个枚举常量叫什么名字。4.3 参数逐个拆SelectByID2 的九个输入这个函数参数多第一次看确实头大拆开看就清楚了。参数类型含义新手怎么填Name字符串要选的对象的名字比如「拉伸1」传空字符串表示不按名字选Type字符串对象类型大写特征写BODYFEATURE面写FACEX / Y / Z双精度选择点的坐标按名字选的时候三个都填 0Append布尔是否追加到现有选择填False表示先清空再选Mark长整型选择标记给后续函数排序用一般填 0Callout指针关联的标注对象填NothingSelectOption长整型选择选项填 0 用默认重点说三个容易出错的。Type这个参数必须大写写小写会选不中而且它不报错只是返回False你会以为名字写错了。Append这个参数的规则要记牢填True且对象没被选过就加进清单填True且对象已在清单里就把它移出去是的是移出去相当于再点一次取消选择填False且对象没被选过就先清空清单再放进去填False且对象已在清单里清单保持不变。坐标那三个参数在按名字选的时候填 0 就行。只有在按位置选、或者名字不固定的时候才需要真实的坐标——那种用法更难新手先放一放。4.4 从选到读拿到一个特征的四个动作选只是第一步。想读到特征里的数据比如一个孔的深度和直径需要走固定的四个动作我把它叫做「四步套路」定义一个特征对象用GetSelectedObject5或者SelectByID2把特征拿到手。用GetDefinition拿到这个特征的定义对象。用AccessSelections申请访问权限。访问数据读完记得ReleaseSelectionAccess释放。看一个完整例子。运行前先在界面里手动选中一个简单直孔特征。Option Explicit Dim swApp As SldWorks.SldWorks Dim Model As ModelDoc2 Dim curfeature As feature Dim boolstatus As Boolean Dim featdata As SimpleHoleFeatureData2 Dim component As Component2 Dim dep As Double Dim dia As Double Dim SelMgr As SelectionMgr Sub getselected() Set swApp Application.SldWorks Set Model swApp.ActiveDoc Set SelMgr Model.SelectionManager 取当前选中的第一个特征 Set curfeature SelMgr.GetSelectedObject5(1) If curfeature Is Nothing Then MsgBox 请先选中一个孔特征 Exit Sub End If 拿到特征定义对象 Set featdata curfeature.GetDefinition 申请访问权限之后才能读数据 boolstatus featdata.AccessSelections(Model, component) If boolstatus False Then MsgBox 无法获取访问权限 Exit Sub End If 正式读取参数 dep featdata.Depth dia featdata.Diameter MsgBox dia * dep 用完释放不释放会影响后续操作 featdata.ReleaseSelectionAccess Model.EditRebuild End Sub几个地方解释一下。GetSelectedObject5的参数是索引从 1 开始指的是「当前选择清单里的第几个」不是特征树上的第几个。所以这句代码的意思完全取决于你在界面上选了什么——这也是为什么加上了Is Nothing的判断。AccessSelections的两个参数第一个是文档第二个是组件。在单独的零件里第二个参数不填也没关系只有在装配体里操作某个零件的特征时才需要传进那个具体的组件对象。原文作者的代码里这个位置留空了在零件场景下能跑。GetFeatureScopeBodiesCount是另一个可以顺手读的属性返回这个特征影响到了几个实体多实体建模时挺有用。这套四步套路最容易被忽略的是最后那步释放。很多人读完数据就直接往下写结果下一次操作时报错或者行为诡异地被前一次的选择影响。血泪经验凡是调了AccessSelections就一定配上ReleaseSelectionAccess。4.5 从读到写ModifyDefinition 是最后那道提交读通了写就顺了。改数据的流程跟读几乎一样只在最后多一步「提交」。前面四步走完用手里的SetDepth、SetDiameter这类方法把新值设进去然后调用ModifyDefinition把改动写回模型。这一步是关键——不调用它你设的值只存在于内存里模型上什么都看不到。看一个完整例子功能是把当前选中的拉伸凸台的长度翻一倍。Option Explicit Dim swApp As SldWorks.SldWorks Dim Model As ModelDoc2 Dim CurFeature As feature Dim FeatData As Object Dim Depth As Double Dim SelMgr As SelectionMgr Dim isGood As Boolean Sub doubleBE() Set swApp Application.SldWorks Set Model swApp.ActiveDoc If Model Is Nothing Then Exit Sub 只在零件或装配体里干活 If Model.GetType 1 And Model.GetType 2 Then MsgBox 只能在零件或装配体里运行 Exit Sub End If Set SelMgr Model.SelectionManager Set CurFeature SelMgr.GetSelectedObject5(1) If CurFeature Is Nothing Then MsgBox 请先选中一个拉伸特征 Exit Sub End If 判断特征类型只处理拉伸 If Not CurFeature.GetTypeName Extrusion Then MsgBox 请选中拉伸特征 Exit Sub End If Set FeatData CurFeature.GetDefinition isGood FeatData.AccessSelections(Model, Nothing) If Not isGood Then MsgBox 无法获取访问权限 Exit Sub End If 读出当前深度设成两倍 Depth FeatData.GetDepth(True) FeatData.SetDepth True, Depth * 2 提交改动这一步不能省 isGood CurFeature.ModifyDefinition(FeatData, Model, Nothing) If Not isGood Then MsgBox 修改失败 FeatData.ReleaseSelectionAccess End If End Sub跟读的版本比多的就是SetDepth和ModifyDefinition两行。GetDepth(True)里那个True表示取的是「反向」方向的深度值跟模型的建模方向有关第一次用不确定的话两种都试一下看哪个是你想要的。有一段特别值得说Model.GetType的判断。原文作者在这个地方踩过坑常量swDocPART在他的环境里没识别他最后是用MsgBox Model.GetType把值打出来发现零件是 1、装配体是 2才改成写数字的。这是个很实用的笨办法——不确定某个返回值的枚举叫什么就先用消息框把原始值打出来再对照文档查。还有一个现象原文作者也提到了改完参数之后特征树上偶尔会冒出一个「退回」状态的小标记。他当时的解法是在代码末尾补上保存和重建Model.Save Model.EditRebuild这两句能让模型刷新到正常状态。至于「退回」到底为什么出现跟模型的重建顺序、特征的依赖关系有关入门阶段不用深追先能稳定跑通就够了。5. 避坑与排查新手最容易翻车的五个地方下面这五条基本覆盖了新手第一个月会遇到的绝大多数问题。每一条都按「看到什么现象 → 为什么 → 怎么办」写遇到问题时可以直接按症状对号入座。5.1 现象一运行就报「用户定义类型未定义」现象编辑器里代码看着没问题按 F5 立刻弹编译错误光标停在一个Dim ... As SldWorks.xxx的行上。原因VBA 工程里少了一个引用。SldWorks、ModelDoc2、Feature这些名字不是 VBA 自带的它们来自软件提供的类库。新建的宏文件通常会自动带上这个引用但如果你从别处复制代码过来或者从旧文件里摘出来就可能丢。解决在 VBA 编辑器里点「工具 → 引用」在弹出的列表里找到那两个跟软件 API 相关的库勾上确定之后再运行。如果列表里勾着但依然报错取消勾选再重新勾一次让引用刷新。实在搞不定就先在同一个文件里录制一个空宏再停止让文件自身把引用带全然后把你抄来的代码粘进去。5.2 现象代码没报错模型却一动不动现象F5 跑完什么错误框都没弹但模型上看不出任何变化好像什么都没发生。原因最常见的是改动没提交。改数据那条线上如果只调了SetDepth之类的设值方法却没有调用ModifyDefinition改动只留在内存里不会写到模型上。第二种原因是选择那一步返回了False代码走进了你写的Else分支安安静静打印了一句Error就结束了而你没看立即窗口。解决先在改完数据之后、提交之前加一句Debug.Print把准备设的值打出来确认值是对的再检查ModifyDefinition那行有没有被执行到。同时在每个选择的If分支里都加上提示别让它悄悄失败。养成习惯每一个可能失败的函数调用后面都跟一个能看见的反馈哪怕是打印一行字。5.3 现象明明选了东西取出来却是空现象界面上你确实点中了一个特征GetSelectedObject5(1)返回的却是Nothing。原因有三种。一是索引写错了清单里只有一个对象你却取第 2 个二是你在代码里先调了ClearSelection2把清单清空了然后才去取三是最隐蔽的——你点了东西但那一下点击落在了一个不能作为特征处理的对象上比如点在了面上而你要取的是特征。解决取之前先打印一下清单里到底有几个对象把它跟预期对上就不会出现索引越界那种让人摸不着头脑的空值。另外Nothing在 VBA 里没法直接跟空字符串比较判断必须写成这样的形式先用Is Nothing判断对象是否为空再决定后续动作不要把两种情况混在一个条件里。5.4 现象往装配体里插零件怎么也插不进去现象AddComponent4调用完不报错但装配体里没有新零件或者直接返回空。原因这个函数有个硬性前提——指定的文件必须已经在内存里加载过。文档里写得很清楚文件在你本次会话中被打开过或者你打开了一个已经含有它的装配体它才算在内存里。很多人以为给个路径就能插进去结果自然是空的。解决先用OpenDoc6把它打开再调AddComponent4。打开的时候可以把窗口设成不可见跑批的时候屏幕上就不会一个接一个地弹窗。Sub openPart(ByVal pth As String) Dim newswapp As SldWorks.SldWorks Dim YSBmodel As ModelDoc2 Dim nErrors As Long, nWarnings As Long Set newswapp Application.SldWorks 参数全路径、类型 1 表示零件、静默打开、配置名空、错误和警告回传 Set YSBmodel newswapp.OpenDoc6(pth, 1, 0, , nErrors, nWarnings) YSBmodel.Visible False End SubOpenDoc6的第二个参数是文档类型0 不是文件、1 零件、2 装配体、3 工程图。第三个参数是打开模式0 表示静默打开不弹任何对话框。第四个参数是配置名留空就按文件上次使用的配置打开。最后两个是输出参数用来接收打开过程中的错误和警告信息。配套的AddComponent4参数是文件全名含路径、配置名、插入点的 X、Y、Z 坐标。四个参数里最容易错的是第一个——必须是全路径只写文件名不行。5.5 现象按名字选特征选不中但名字明明是对的现象SelectByID2返回False你反复确认过特征名没错。原因类型参数没大写是最常见的一个。此外还有两种情况一是这个名字属于草图而不是特征类型写成了BODYFEATURE当然选不中二是你在装配体里用特征名前面其实带了组件前缀实际全名跟你看到的不完全一样。原文作者在装配体那一步就专门提到过这个麻烦很多面、边的名字是软件自动生成的没什么规律靠名字选非常不稳。解决类型参数一律大写。判断实际名字最直接的办法是手动选中它然后打印feature.Name看真实值。至于装配体里的面和边别硬刚名字——改成遍历拿到一个组件或特征后用GetFaces这类方法把它的面一个个列出来再按你的规则挑一个。这条路后面会再提到。6. 下一步学什么装配体这一关和两周练习路线6.1 装配体这一关先打开再插入零件上的操作练熟之后多数人最想做的就是自动装配。核心函数是AddComponent4配合OpenDoc6用前面避坑那章已经给过代码。你真正要花时间理解的是坐标插入点的 X、Y、Z 决定零件在空间里的落位写 0,0,0 就是落在装配体原点跑几次看看效果你很快就能建立起「坐标跟位置对应」的直觉。6.2 再往后是配合AddMate2 与遍历面加配合的标准顺序是四步先ClearSelection2清空选择再选中要配合的两个实体然后调用AddMate2最后再清一次选择。难点不在函数调用在「怎么稳定地选中那两个面」。前面说过面名不可靠所以实际做法是拿到组件后遍历它的面用位置、法向之类的特征去筛选。这一步需要一点耐心也是很多人卡住的地方。6.3 接下来两周怎么练阶段练什么目标第 13 天录三个不同操作的宏逐个清理到能跑熟悉清理的三步法和报错定位第 46 天用SelectByID2选中指定特征并打印数据掌握选择清单的概念第 79 天读一个孔的深度和直径写到表格里走通「四步套路」第 1012 天批量把一批零件的拉伸长度翻倍学会循环和容错第 1314 天打开零件并插入到装配体的指定位置跨进装配体这道门一个具体的小技巧每写完一段代码先在只有一个特征的简单模型上跑跑通了再换复杂模型。我刚开始学的时候图省事直接拿一个三十多个特征的装配体做实验出错之后根本分不清是哪一步的问题光定位就耗掉一整晚。从那以后我每次写新功能都强制先在一个空零件上画一个拉伸、跑一遍确认这条路是通的再往真实模型上套。这个习惯看着笨但它把「调试逻辑」和「调试模型」这两件事彻底分开了省下的时间远比多花的那些多。希望帮到你。本文还有配套的精品资源点击获取