使用VBA进行solidworks开发指引

1、目录第 1 章 概述 21.1 内容简介 21.2 名词解释 21.3 预备知识 3第 2 章 录制、编辑、运行宏 32.1 录制、编辑、运行宏基本步骤： 32.2 一些基本的建议： 3第 3 章 代码格式及帮助信息 53.1 代码格式： 53.2 获得帮助： 6第 4 章 常用对象模型 74.1 综述： 74.2 SldWorks.SldWorks : 84.3 SldWorks.ModelDoc2 ： 84.4 SldWorks.PartDoc 、SldWorks.AssemblyDoc 、SldWorks.DrawingDoc ： 94.5 SldWorks.feature 、SldWo

2、rks.Sketch ： 9第 5 章零件 PartDoc 95.1 综述： 95.2 选择对象的话题： 105.3 访问并修改特征 : 125.4 草图的话题： 17第 6 章装配体 186.1 综述： 186.2 组件的话题：插入零部件到装配体 196.3 配合的话题：在装配体中添加配合 226.4 由于说到参考，顺便讨论一下配合参考： 26第 7 章工程图 287.1 综述： 287.2 注释的话题： 297.3 生成图纸的话题：并讨论如何解决实际问题 30第 8 章 总结： 40第 1 章 概述1.1 内容简介Solidworks 在提供了强大的三维建模功能的同时， 也为使用者提供了开

3、放的 应用程序编程接口（ API ），通过调用这些 API，我们可以将 solidworks 中一些 重复单调或者规则明确的操作使用程序语言描述， 通过简单的人机交互， 让计算 机自己来完成此类工作。 掌握了此类本领， 可以在以后的工作中， 开阔自己的视 野，更加深入的了解软件本身工作的原理，并且，改善自己的工作，提高工作效 率和质量。本文旨在总结作者工作中获得的经验， 专注于 solidworks 软件本身特点， 文 章中示例的代码基本上使用了 vb语言描述，选择 vb 语言是因为其语法简单易 懂，并且和应用程序间有很明朗的接口不需要再学习其它技术（如果使用 c+, 可能需要读者拥有 COM

4、 知识）。Solidworks 提供了极其丰富的 API ，并且有很完善的帮助系统。 我们可以使 用 Microsoft VBA 编写 SolidWorks Macros 或者使用其他编程环境编写 Standalone and Add-in Applications 。（使用 visual studio 到.NET 都可以）在 SW 的 API 帮助中我们可以很明了的查看 API 调用语法及相关的示例代码。 本文 不可能对每一个 API 进行细致的解释，在后面章节主要指导大家如何使用软件 提供的帮助来在需要时得到有用信息的手段。本文所有 API 和代码都以 solidworks2005 sp0

5、.0 版本为准。1.2 名 词解释API ：应用编程接口 Application Programming Interface 对象：即计算机抽象出来的一种事物， 在面向对象的程序设计中它表示由 数据和与该数据关联的操作组成的类的具体实现。 属性：对象所具有的属性，识别及说明对象的特性。方法：对象可以使用的对数据的操作。1.3 预备知识首先我们的读者应该有简单的 VB 经验。当然如果没有也可以临时抱佛脚 （VB 语句是直观易懂的），边看代码边学习。很好的掌握 SW 中宏的录制功能多阅 读 API 帮助中的示例代码，是自学的最佳途径（虽然 SW 的宏录制功能相比 EXCEl 来说代码不是很清晰）。

6、其次 solidworks 软件应该非常熟练， 读者应该有使用 solidworks 实际建模 的经验， ，这是能够写出良好代码的基础。 否则看到一些对象名称也不能了解它 对应了软件的那个功能。如果英文不够好，请准备及时词典，如金山词霸等。 Solidworks 提供的 API 帮助是纯英文的， solidworks 汉化的还不错，不明白为什么不顺便把 API 帮助 也翻过来。准备好，我们可以开始了 .第 2 章 录制、编辑、运行宏2.1 录制、编辑、运行宏基本步骤：开始 solidworks 编程的最快方式就是录制宏。 宏可以记录用户的操作将其记 录为一系列 solidworksAPI 的调

7、用。在 solidworks “工具”菜单“宏”中有运行、 录制、新建、编辑等选项。我们选择“录制”来开始记录用户操作，选择“停止”来结束宏的录制。结 束后会提示保存宏文件，其后缀名为 .swp 。（估计是 solidworks program 的意 思吧）。录制到停止间对 solidworks 进行的操作都将记录到宏文件中。但是直 接录制的宏程序的可用性很差， 我们需要对它进行一些合理的优化， 清理多余的 语句，所以在录制完成宏之后需要编辑它。编辑宏的时候，选择“工具”菜单“宏”中的“编辑”，此时提示你选择要 编辑的宏文件（ swp 文件）。选择后进入编辑界面（其实就是 VBA 的编辑器，

8、叫集成环境也行）。需要说明的是，如果之前你在 excel 、word 等软件中录制过宏程序，那么可 能 solidworks 录制宏中的垃圾数据要更多些。2.2 一些基本的建议：Solidworks 在帮助中也有一个大体的介绍， 在编辑一个新录制的宏时可以需 要删除下面的多余代码（ Delete extra lines of code1、The following variables are declared automatically in a SolidWorks macro. Delete any variables not used in the macro. SolidWorks对象

9、的声明是自动产生的，可以将没用到的删除2、Delete all lines of code that change the view.删除切换视图的代码arden says ：像这样的 Part.ActiveView().RotateAboutCenter 0.0662574, 0.0346621 无情的删掉吧3、Delete all ModelDocExtension:SelectByID2 calls appearing immediately before ModelDoc2:ClearSelection2 calls. However, do not delete ModelDocEx

10、tension:SelectByID2 calls appearing immediately after ModelDoc2:ClearSelection2 calls. Delete all ModelDoc2:ClearSelection2 calls appearing immediately before ModelDocExtension:SelectByID2.删除所有紧挨 ModelDoc2:ClearSelection2 之前的 ModelDocExtension:SelectByID2 调用，不要删除紧挨 ModelDoc2:ClearSelection2 调用后的 Mod

11、elDocExtension:SelectByID2 。删 除所有紧挨 ModelDocExtension:SelectByID2 之前的 ModelDoc2:ClearSelection2 。下图为 VBA 的集成编辑环境：编辑完成后，按照程序的要求来运行宏，在 VBA 编辑器中点“运行”开始 执行程序， 需要注意，有些宏程序的运行有前提条件， 比如需要事先选择好一个 特征等。第一次运行不一定成功， 这时候就要对宏代码进行调整， 反复一个编辑 代码、测试运行的循环，最后得到比较满意的结果。加载宏到 solidworks 有很多种方法我们只介绍最简单的三种： 快捷键、菜单、 工具栏按钮。可以参

12、考文档SW 技术文档加载宏到 solidworks 的三种方法 .doc 第 3 章 代码格式及帮助信息3.1 代码格式：这章中， 我们给出一段完成简单功能的代码， 并讨论如何从帮助中获得有 用信息。? 首先，打开 soliworks ，选择“工具”、“宏”、“新建”，给新的宏文件 起名字为“ openprt.swp ”。清空 vba 编辑器中的内容，拷贝或者输入下面的代 码，保存。Preconditions: NonePostconditions: Specified document is opened.Option ExplicitDim swApp ?As SldWorks.SldWo

13、rksDim fileerror ?As LongDim filewarning As LongSub main()Set swApp = Application.SldWorksswApp. Visible = TrueswApp. OpenDoc6 d:/samples/hotrod.sldprt, swDocPART, swOpenDocOptions_Silent, , fileerror, filewarningEnd Sub上面的代码来自 solidworksAPI 帮助，它打开 d:/samples/ 目录下的零件文件 hotrod.sldprt 。我们来分别解释一下上面代码的内

14、容： Preconditions: None Postconditions: Specified document is opened.注释：注释块说明了程序运行的上下文：前提条件( Preconditions )为：无 NONE ；运行结果为： 打开指定的文件。 API 帮助中的示例都有这样的格式，需要大家在使用时注意其上下文约束条件。Option ExplicitDim swApp ?As SldWorks.SldWorksDim fileerror ?As LongDim filewarning As Long声明变量和对象： swapp 为一个 solidworks 应用程序对象。其它

15、两个为 long 型整数，用来保存错误和警 告 id 。Sub main()这是主过程，以 main 为名称。Set swApp = Application.SldWorks刚才的 DIM 语句只是声明了对象 swapp ，现在使用 SET 定义对象swApp. Visible = True 设置应用程序可见swApp. OpenDoc6 d:/samples/hotrod.sldprt, swDocPART, swOpenDocOptions_Silent, , fileerror, filewarning打开文件 d:/samples/hotrod.sldprt 。End Sub3.2 获

16、得帮助：当我们想从这个示例代码中了解打开一个文件的细节时，我们需要OpenDoc6 函数的参考， 可以在索引或者搜索中查找 OpenDoc6 ，得到如下信息 （汉字为我的注释）：Description ：描述此 API 完成的功能This method opens an existing document and returns a pointer to the document object. It also allows control over whether or not to: 此方法打开一个已经存在的文档并返回指向此文档对象的指针。它在打开文 档时允许做下面控制：? Suppres

17、s displaying dialog boxes 禁止对话窗口? Open the document read-only 只读打开? Open the document view-only 只看打开? Convert a drawing to a detached drawing将工程图转换为断开的工程图Syntax (OLE Automation)语法：retval = SldWorks.OpenDoc6 ( filename, type, options, configuration, &Errors, &Warnings )Input:(BSTR) FilenameDocument n

18、ame or full path if not in current directory, including extension文件全路径Input:(long) TypeDocument type as defined in swDocumentTypes_e文档类型Input:(long) OptionsMode in which to open the document as defined inswOpenDocOptions e打开选项Input:(BSTR) ConfigurationModel configuration in which to open this docume

19、nt配置设置输入? Applies to parts and assemblies, not drawings只在零件和装配体适用If this argument is empty or the specified configuration is not present in themodel, the model is opened in the last-used configuration. 如果未指定任何配置 将使用最后一次打开的配置。Output: 输出(long) ErrorsLoad errors as defined in swFileLoadError_e打开错误Outpu

20、t:(long) WarningsWarnings or extra information generated during the open operation as defined inswFileLoadWarning_e 打开警告Return: 返回(LPDISPATCH) retvalPointer to a Dispatch object, the newly loadedModelDoc2 , or NULL if failed to openRemarks 备注：When opening a parent document (assembly, drawing, and so

21、 on):? SolidWorks also opens any additional documents that are referenced in the parent document (parts, subassemblies, and so on).? SolidWorks follows certain rules in trying to locate its referenced documents. If explicit Search Folders have not been set usingTools, Options, System Options,Externa

22、lReferences , then the first place SolidWorks looks for the referenced documents is in the current working directory. If SolidWorks finds the referenced file in the current working directory, then it is loaded from that directory. 我们应该具备的素质就是，可以按照上面的参考内容明白 API 的使用方法和 规则。而我们常常需要注意的焦点是语法(Syntax)知道需要输入

23、什么参数返回 什么对象就基本 OK 了，不要被前面一片英文所迷惑。最后我们介绍一下 API 帮助的目录：Solidworks 2005 API Release Notes ：此文档树下为 sw2005 版本的新特 性：新对象新函数等Programmer s Guide ：此文档树目录下为 sw 编程向导，提供了开始编程 的向导、 sw 对象模型总揽和实际编程中的注意事项等内容。Examples ：此文档树目录下为 sw 所有示例工程，分为 c+和 VB 两中语 言大类。我们经常需要访问的地方。APIs ：sw 提供的所有 API 定义及参考。Obsolete APIs ：sw 已过时的 API

24、。第 4 章常用对象模型4.1 综述：学会录制宏代码，并从帮助中得到代码中 API 使用方法后，我们介绍一些常 用的对象模型，并给出一些使用方法。这些对象是 sw 最基本的对象，几乎所有 程序都会使用其中的几种，也是我们可以很直观想象到的对象模型：4.2 SldWorks.SldWorks :此对象代表 solidworks 应用程序。我们可以使用此对象进行应用程序层面的 操作：打开、保存、关闭文档；设置用户界面的状态等等。一般来说我们的 sw 程序总是首先定义此对象才能进行其他的操作： 声明和定义示例：Dim swApp As SldWorks.SldWorksSet swApp = App

25、lication.SldWorks或者Dim swApp As SldWorks.SldWorksSet swApp = CreateObject(SldWorks.Application) 调用属性或方法示例： swApp.Visible = TrueswApp.OpenDoc6 d:/samples/hotrod.sldprt, swDocPART, swOpenDocOptions_Silent, , fileerror, filewarning4.3 SldWorks.ModelDoc2 ：此对象代表 solidworks 的文档。Solidworks 有三种最基本的文件格式： 零件、

26、 装配体、工程图。它们各自都有自己特定的对象来表示，但是 solidworks 设定 了一些通用的方法和属性来操作这些对象。 ModelDoc2 对象可以直接对这三类 文件进行操作。声明和定义示例：Dim swmodel As SldWorks.modeldoc2Set swmodel = swapp.OpenDoc6 d:/samples/hotrod.sldprt, swDocPART, swOpenDocOptions_Silent, , fileerror, filewarning 打开文档或者Dim swmodel As SldWorks.modeldoc2Set swmodel =

27、 swapp.activedoc得到当前文档调用属性或方法示例：swmodel.GetPathName 得到模型的路径4.4 SldWorks.PartDoc 、SldWorks.AssemblyDoc、SldWorks.DrawingDoc：上面三个对象分别代表 solidworks 三种文件格式。 使用它们来操作相应类型 的文件。声明和定义示例：Dim swpart As SldWorks.PartDocDim swasmAs SldWorks.AssemblyDocDim swdrawAs SldWorks.DrawingDocSet swpart=swmodelSet swasm =

28、swapp.OpenDoc6 d:/samples/hotrod.sldasm, swDocPART, swOpenDocOptions_Silent, fileerror, filewarningSet swdraw =swapp.activedoc 调用属性或方法示例： swpart.MirrorFeature 镜像特征 swasm.AddMate2 添加配合 swdraw.NewSheet3 插入新图纸4.5 SldWorks.feature 、SldWorks.Sketch代表 solidworks 中的特征和草图对象。 还有很多对象在此就不再介绍，下面的三章将针对零件、装配体和工程图

29、分 别讨论。第 5 章 零件 PartDoc5.1 综述：零件是 sw 基本文件类型之一，我们可以通过此对象创建新零件、得到零件 的各种、信息控制零件中的特征属性等等。下面是 PartDoc 的对象模型：我们知道特征是组成一个零件的基本对象。但是从上图我们可以看出来，特 征对象并不是在零件对象下层的。察看 API 帮助我们知道，特征是在 Modeldoc 对象下。在 Partdoc 下只能对实体对象（ Body2 ）进行操作。所以很多对零件进 行的操作，我们需要使用 Modeldoc 对象。5.2 选择对象的话题：首先来学习两个 API ，这两个 API 完成选择对象和得到所选择对象的功能：

30、SelectByID2 和 GetSelectedObject5 这两个函数，第一个通过给出对象的 name 选择对象。第二个通过启用程序前已经选择的索引得到对象。其中的 SelectByID2 基本上在 sw 录制宏时所作的选择操作都是用了这个 API，但它的 局限性在于，程序需要知道所要选择对象的名称、类型（在 swSelectType_e 中 定义）并且函数并不返回所选择对象而是一个执行状态。 如果想得到我们刚才选 择的对象，则需要用到另一个函数 GetSelectedObject5 。使用 GetSelectedObject5 之前需要介绍一下 SelectionMgr 对象：此对象允

31、 许你得到所选择对象的信息，对其进行一些操作。 GetSelectedObject5 就是 SelectionMgr 对象的一个方法。可以使用 ModelDoc2.SelectionManager 来得到 一个 SelectionMgr 对象。并且需要注意的是 sw 将所选择的对象进行了索引，我 们可能同时选中了多个对象，通过 GetSelectedObject5（index） 中得 index 值来 得到不同的选择对象。看下面程序，它使用 SelectByID2 将当前打开的模型文件中的特征“拉伸 1” 选中，如果选择成功的话再使用 GetSelectedObject5 得到此特征： + F

32、ilename Selefeat.swp : Select feature 拉伸 1” +Option ExplicitDim swApp As SldWorks.SldWorksDim Model As ModelDoc2Dim feature As feature定义一个特征对象Dim boolstatus As Variant 定义api 返回值Sub main()Set swApp = Application.SldWorksSet Model = swApp.ActiveDoc前面已经介绍，上面两句话基本上是固定模式 选择叫 拉伸 1的特征拉伸 1, BODYFEATURE, 0,

33、0, 0, False, 0, Nothing, swSelectOptionDefault)主要就是这一句话，在写 Option Explicit 后函数的最后一个参数 swSelectOptionDefault 可以使用 0 来代 替If boolstatus = True Then? 如果有“拉伸 1”这个特征下面的代码将其选中? Dim SelMgr As SelectionMgr声 明一个 selectionmgr 对象? Set SelMgr = Model.SelectionManager得到当前模型的选择对象? Set feature = SelMgr.GetSelectedO

34、bject5(1)此处使用一个索引来得到特征? Debug.Print feature.Name在 立即窗口 打印特征的 name 属性Else? Debug.Print ErrorEnd If?End Sub两个函数的 VB语法表述如下，具体请参考 API 帮助： ModelDocExtension:SelectByID2Syntax (OLE Automation)retval = ModelDocExtension.SelectByID2 ( Name, Type, X, Y, Z, Append, Mark, Callout. SelectOption )SelectionMgr:Ge

35、tSelectedObject5Syntax (OLE Automation)retval = SelectionMgr.GetSelectedObject5 ( AtIndex )在选择对象这个话题中我们还要讨论几个API：ModelDoc2:ClearSelection2 此API 清空 SW 的选择列表，即取消所有选择。 还有 activate 系列：激活文档retval = SldWorks.ActivateDoc2 ( name, silent, &errors )retval = DrawingDoc.ActivateSheet( SheetName )激活工程图纸retval =

36、 DrawingDoc.ActivateView ( viewName) 激活视图 void ModelDoc2.ActivateSelectedFeature ()激活选中特征选择的话题就到这里结束。上面有一处关于 swSelectOptionDefault 的注释大家可能会有疑惑， 这里附加上对 solidworks API 中定义 Enum 的介绍。为了让 API 的参数更直观， swAPI 中有 很多类似的 enum 定义，它将一系列小整数和字符串描述符对应，在 api 的语法 参考中都描述了相应的代表对象。具体实现细节需要参考 VB 的语法，这里我们 需要明白，如果你在程序前面定义了

37、 Option Explicit (强制声明)选项，那你需要在 使用这些 enum 时候定义它或使用不直观的整数作为参数。Public enum swDocumentTypes_e 这是一个 sw 文档类型的列举项swDocNONE=0 什么也不是swDocPART=1 零件类型 在做为参数时 使用 1 和使用 swDocPART 效果是相同的， 只是 swDocPART 意义更加明显swDocASSEMBLY=2装配体类型swDocDRAWING=3工程图类型End Enum5.3 访问并修改特征 :我们已经学习了如何选中一个对象， 下面我们针对特征来讨论如何得到选中 特征对象的属性并修改它

38、。 getchoosed.swp 得到所选择特征的一些属性信息： +filename : getchoosed.swpdate? :2005-03-22used to get the simple hole infomation dep & dia + Option ExplicitDim swApp As SldWorks.SldWorksDim Model As ModelDoc2Dim curfeature As feature声明一个简单直孔特征数据对象Dim boolstatus As BooleanDim featdata As SimpleHoleFeatureData2?Dim

39、 component As Component2?声明一个组件对象Dim dep As DoubleDim dia As DoubleDim SelMgr As SelectionMgrDim ncount As IntegerSub getselected()Set swApp = Application.SldWorksSet Model = swApp.ActiveDocSet SelMgr = Model.SelectionManagerSet curfeature = SelMgr.GetSelectedObject5(1)?孔深孔径选择管理器得到当前选中的第一个特征? Debug.

40、print curfeature.NameSet featdata = curfeature.GetDefinition得到特征的定义boolstatus = featdata.AccessSelections(Model, component)可以对数据进行访问了ncount = featdata.GetFeatureScopeBodiesCount?此方法得到拉伸特征在多实体零件中所作用的实体数Debug.print ncountdep = featdata.Depth?访问属性 depth 和 diameterdia = featdata.DiameterDebug.print dia

41、& * & depDebug.print error arden ?在 solidworks 中可以使用 swAPP.sendmsgtouser2 替代 msgboxfeatdata.ReleaseSelectionAccess取消特征数据访问Model.SaveModel.EditRebuild重建模型End Sub上面程序运行前，假设你选择了一个简单直孔特征。然后得到这个孔的一些参数：孔深、直径。最初做上面程序的时候，我想象中用Set curfeature =SelMgr.GetSelectedObject5(1)? 选中特征以后就可以直接 curfeature. Depth 了。在参考了

42、API 帮助后，我才了解到特征的数据需要先 AccessSelections 后才能访问。总结一下，要访问一个特征，需要经历这样的步骤：定义一个特征对象及特征数据对象：dimas .选中这个特征 ：比如使用 GetSelectedObject5 还有 SelectebyID 等 .得到特征的定义： GetDefinition进行访问： AccessSelections上面的程序没有 if 选择的容错机制，实际编码中，每个可能出现错误的地方 都应该使用 if 来控制，如下面这句话 boolstatus =featdata.AccessSelections(Model, component) 。我

43、们就需要通过 boolstatus 的值来判断上面这个语句运行的是否正确， 这里的 boolstatus 很明显是一个布尔型变量：If not boolstatus then上面语句运行不成功，写错误报告或退出代码Endif已经可以访问特征的各参数了，现在我们来修改它： 要修改前面的步骤不能少， 当我们已经可以读取一些特征时， 我们就可以给他设 定一些值。当然有时需要调用特定的参数。 solidworks 是 ole 和 com 的，所以 要习惯这样。在修改完特征后需要调用函数 modifydefinition() 来实现变化。 我们给一个例子， 这个例子比前面的都要全面， 它有很好的容错引导

44、机制， 可以 直接拿来成为一个稳定的宏程序。 +filename : doubleBE.swpdate? :2005-03-22 This example doubles the length of the base extrude.这个例子将拉伸凸台的长度增加一倍+Dim swApp As SldWorks.SldWorksDim Model As ModelDoc2Dim Component As Component2Dim CurFeature As featureDim isGood As BooleanDim FeatData As Object 先声明为 object ，后面自动匹

45、配为 ExtrudeFeatureData 对象Dim Depth As DoubleDim SelMgr As SelectionMgrSub doubleBE()?Set swApp = CreateObject(sldWorks.application)?Set Model = swApp.ActiveDoc? 确定 model 是零件或正配体，不是就退出。在这里 swDocPART 和 swDocASSEMBLY 如果不能通 过编译则参考上面的 enum 介绍，换为 1 和 2?If Model.GetType swDocPART And Model.GetType swDocASSE

46、MBLY Then?Msg = Only Allowed on Parts or Assemblies Define message?Style = vbOKOnly OK Button only?Title = Error Define title?Call MsgBox(Msg, Style, Title) Display error message?Exit Sub Exit this program?End If? 得到 Selection Manager?Set SelMgr = Model.SelectionManager? 得到所选的第一个对象?Set CurFeature =

47、SelMgr.GetSelectedObject3(1)?If CurFeature Is Nothing Then? 什么都没有选中?swApp.SendMsgToUser2 Please select the Base-Extrude, swMbWarning, swMbOk?Exit Sub?End If? Check the features type name? Make sure it is an extrusion?If Not CurFeature.GetTypeName = swTnExtrusion Then?在这里使用 swTnExtrusion 我的环境没有通过，改成了

48、 Extrusion 才 ok ，参考 BodyFeatures_e 的定义?swApp.SendMsgToUser2 请选择拉伸基体特征 , swMbWarning, swMbOk?Exit Sub?End If? 得到特征数据?Set FeatData = CurFeature.GetDefinition? Get the access selections for the feature data? 注意： 访问单独零件时参数 Component 为 NULL 。如果我们在装配体中使用 AccessSelections ， 将访问最高级文档此时我们的 component 参数需要制定 c

49、omponent 来得到其他零件。?isGood = FeatData.AccessSelections(Model, Component)? Inform the user of an error?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 th

50、e Base-Extrude, swMbWarning, swMbOk ?FeatData.ReleaseSelectionAccess?Exit Sub?End If? 得到深度并增加到 2 倍?Depth = FeatData.GetDepth(True)?FeatData.SetDepth True, Depth * 2? 执行修改?isGood = CurFeature.ModifyDefinition(FeatData, Model, Component)? 改变步成功?If Not isGood Then?swApp.SendMsgToUser2 无法修改特征数据 , swMbWa

51、rning, swMbOk ? 取消对数据的访问?FeatData.ReleaseSelectionAccess?End IfEnd SubTIPs ：如果出现特征出现 “退回 ”状态，只能在代码执行到最后调用?Model.Save?Model.Rebuild这两个函数来自动更新。上面的程序中使用了新的没有介绍的 API ，只作了简单注释性介绍，如果不 理解读者可以到 API 帮助中查看它的细节。这里只看其中一个 API ，它可能会 经常使用 :如果我们定义了一个特征对象：dim curfeature as sldworks.feature又通过 SelectMgr 得到了这个特征 ,然后可以

52、使用 feature.GetTypeName 来 判断是那种：Select Case curfeature.GetTypeNameCase Cut? 一个拉伸切除特征do sth.Case HoleWzd? 一个异型孔特征do sth.Case ElseEnd Selectend select这是语法：Syntax (OLE Automation)retval = Feature.GetTypeName ()它会返回一个 (BSTR) retval Feature type as defined in BodyFeatures_e ? 其中 BodyFeatures_e ?内容比较多， 在这里

53、都列出来也没什么用， 大家可以 参考 solidworks API 帮助。5.4 草图的话题：Solidwork 中对草图的控制，下面的例子很详细。特征下的草图在 solidwork 中其实是特征的子特征，我们可以对特征进行 GetFirstSubFeature 、及 GetNextSubFeature 得到。下面是插入新草图的示例： InsertSketch2 插入一个新草图， CreateLine2 画 一条线。This example shows how to open a sketch, sketch a line, and close the sketch.Preconditions

54、:?(1) Model document is open.?(2) Planar face or a sketch is selected.Postconditions: A sketch is opened, a line is sketched, and the sketch is closed.Option ExplicitSub main()?Dim swApp ?As SldWorks.SldWorks?Dim swModel ?As SldWorks.ModelDoc2?Dim swSkSeg ?As SldWorks.SketchSegment?Dim swSkLine ?As SldWorks.SketchLine?Set swA