solidworks二次开发全教程系列

solidworks二次开发全教程系列solidworks二次开发-01-录制一个宏第一步：我们需要自己录制一个宏，然后看看程序产生了什么代码。当初学习excel时候就是这么干的。只是，solidworks要复杂一些，直接录制的宏不能使用，需要做一些调整。在没有经验的时候我们最好按照下面的建议来做。EditorDebugSolidWorksMacroEditordebugSolidWorksmacrosusingMicrosoftVBA.使用MicrosoftVBA编辑或调试宏ToeditordebugaSolidWorksmacro:ClickEditMacroontheMacrotoolbar,orclickTools,Macro,Edit.NOTES:注意：Toautomaticallyeditamacroafterrecordingit,clickTools,Options,SystemsOptions.OntheGeneraltab,selectAutomaticallyeditmacroafterrecordingandclickOK.ThissettingispersistentacrossSolidWorkssessions.此选项Automaticallyeditmacroafterrecording顾名思义是在记录宏完毕后自动打开编辑界面。Ifyourecentlyeditedthemacro,youcanselectitfromthemenuwhenyouclickTools,Macro.Thismenuliststhelastninemacrosthatyouedited.已经编辑了宏，菜单中会有最近的9个宏程序列表供选择。Inthedialogbox,selectamacrofile(.swp)andclickOpen.选择一个宏swp文件NOTE:Youcanalsoedit.swbfiles,whichareolder-styleSolidWorksmacrofiles.Whenyourunoredita.swbfile,itisautomaticallyconvertedtoa.swpfile.旧的宏文件后缀为swb，你也可以打开swb，那么会自动保存为swp。Editordebugthemacro.Ifitisanewmacro,besureto:如果是新的宏Deleteextralinesofcode:删除一些多余的代码：ThefollowingvariablesaredeclaredautomaticallyinaSolidWorksmacro.Deleteanyvariablesnotusedinthemacro.这些对象的声明是自动产生的，可以将没用的删除DimswAppAsObjectDimPartAsObjectDimboolstatusAsBooleanDimlongstatusAsLong,longwarningsAsLongDimFeatureDataAsObjectDimFeatureAsObjectDimComponentAsObjectDeletealllinesofcodethatchangetheview.删除切换试图的代码译者注：像这样的Part.ActiveView().RotateAboutCenter0.0662574,0.0346621无情的删掉吧DeleteallModelDocExtension::SelectByID2callsappearingimmediatelybeforeModelDoc2::ClearSelection2calls.However,donotdeleteModelDocExtension::SelectByID2callsappearingimmediatelyafterModelDoc2::ClearSelection2calls.DeleteallModelDoc2::ClearSelection2callsappearingimmediatelybeforeModelDocExtension::SelectByID2.solidworks二次开发-02-用来访问特征的两个API来学习两个api：SelectByID2和GetSelectedObject5。这两个函数，第一个通过给出对象的name选择对象。第二个通过启用程序前已经选择的索引得到对象。看下面程序：OptionExplicitDimswAppAsSldWorks.SldWorksDimModelAsModelDoc2DimfeatureAsfeatureDimboolstatusAsVariantSubmain()SetswApp=Application.SldWorksSetModel=swApp.ActiveDoc'选择叫拉伸1的特征boolstatus=Model.Extension.SelectByID2(拉伸1,BODYFEATURE,0,0,0,False,0,Nothing,swSelectOptionDefault)'主要就是这一句话，在写OptionExplicit后函数的最后一个参数swSelectOptionDefault可以使用0来代替'Iftheselectionwassuccessful,thatis,Extrude1was'selectedanditisaBODYFEATURE,thengetthatfeature;otherwise,'indicatefailureIfboolstatus=TrueThen'如果有“拉伸1”这个特征下面的代码将其选中DimSelMgrAsSelectionMgrSetSelMgr=Model.SelectionManagerSetfeature=SelMgr.GetSelectedObject5(1)'此处使用一个索引来得到特征Debug.Printfeature.NameElseDebug.PrintErrorEndIfEndSub最后列出这两个函数的VB语法：ModelDocExtension::SelectByID2DescriptionThismethodselectsthespecifiedentity.Syntax(OLEAutomation)retval=ModelDocExtension.SelectByID2(Name,Type,X,Y,Z,Append,Mark,Callout.SelectOption)Input:(BSTR)NameNameofobjecttoselectoranemptystringInput:(BSTR)TypeTypeofobject(uppercase)asdefinedinswSelectType_eoranemptystringInput:(double)XXselectionlocationor0Input:(double)YYselectionlocationor0Input:(double)ZZselectionlocationor0Input:(VARIANT_BOOL)AppendIf...Andifentityis...Then...TRUENotalreadyselectedTheentityisappendedtothecurrentselectionlistAlreadyselectedTheentityisremovedfromthecurrentselectionlistFALSENotalreadyselectedThecurrentselectionlistiscleared,andthentheentityisputonthelistAlreadyselectedThecurrentselectionlistremainsthesameInput:(long)MarkValuethatyouwanttouseasamark;thisvalueisusedbyotherfunctionsthatrequireorderedselectionInput:(LPCALLOUT)CalloutPointertotheassociatedcalloutInput:(long)SelectOptionSelectionoptionasdefinedinswSelectOption_e(seeRemarks)Output:(VARIANT_BOOL)retvalTRUEifitemwassuccessfullyselected,FALSEifnotSelectionMgr::GetSelectedObject5DescriptionThismethodgetstheselectedobject.Syntax(OLEAutomation)retval=SelectionMgr.GetSelectedObject5(AtIndex)Input:(long)AtIndexIndexpositionwithinthecurrentlistofselecteditems,whereAtIndexrangesfrom1toSelectionMgr::GetSelectedObjectCountOutput:(LPDISPATCH)retvalPointertotheDispatchobjectasdefinedinswSelType_e;NULLmaybereturnediftypeisnotsupportedorifnothingisselectedsolidworks二次开发-03-访问特征数据'coderarden'filename:getchoosed.swp'date:2005-03-22'usedtogetthesimpleholeinfomationdep&dia'finishedlucky!!'------------------------------------------------------------OptionExplicitDimswAppAsSldWorks.SldWorksDimModelAsModelDoc2DimcurfeatureAsfeatureDimboolstatusAsBooleanDimfeatdataAsSimpleHoleFeatureData2'声明一个简单直孔对象DimcomponentAsComponent2DimdepAsDoubleDimdiaAsDoubleDimSelMgrAsSelectionMgrDimncountAsIntegerSubgetselected()SetswApp=Application.SldWorksSetModel=swApp.ActiveDocSetSelMgr=Model.SelectionManagerSetcurfeature=SelMgr.GetSelectedObject5(1)'得到当前选中的第一个特征MsgBoxcurfeature.NameSetfeatdata=curfeature.GetDefinition'得到特征的定义boolstatus=featdata.AccessSelections(Model,component)'可以对数据进行访问了ncount=featdata.GetFeatureScopeBodiesCountMsgBoxncountdep=featdata.Depthdia=featdata.DiameterMsgBoxdia&*&dep'MsgBoxerrorarden'在solidworks中可以使用swAPP.sendmsgtouser2'featdata.ReleaseSelectionAccessModel.SaveModel.EditRebuildEndSub**********************************************上面程序运行前，假设你选