如何利用vb对SolidWorks进行二次开发.pdf
- 文档编号:3430423
- 上传时间:2023-05-05
- 格式:PDF
- 页数:6
- 大小:954.37KB
如何利用vb对SolidWorks进行二次开发.pdf
《如何利用vb对SolidWorks进行二次开发.pdf》由会员分享,可在线阅读,更多相关《如何利用vb对SolidWorks进行二次开发.pdf(6页珍藏版)》请在冰点文库上搜索。
如何利用如何利用对对SolidWorks进行二次开发进行二次开发1.首先正确安装vs2010与SolidWorks,打开vs2010新建项目如图1。
图1系统会自动生成解决方案如图2。
图22.然后添加窗口Form1,向窗体中添加一个Button按钮,编写代码如下。
PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickMsgBox(测试成功by_NYX)EndSubEndClass3.修改代码,如图3。
图3将代码修改为:
PublicSubAddCommandMgr()DimcmdGroupAsICommandGroupIfiBmpIsNothingTheniBmp=NewBitmapHandler()EndIfDimthisAssemblyAsAssemblyDimTitleAsString=NYX_CESHIDimToolTipAsString=Form1DesignSystemDimdocTypes()AsInteger=swDocumentTypes_e.swDocASSEMBLY,_swDocumentTypes_e.swDocDRAWING,_swDocumentTypes_e.swDocPARTthisAssembly=System.Reflection.Assembly.GetAssembly(Me.GetType()DimcmdGroupErrAsInteger=0DimignorePreviousAsBoolean=FalseDimregistryIDsAsObject=NothingDimgetDataResultAsBoolean=iCmdMgr.GetGroupDataFromRegistry(mainCmdGroupID,registryIDs)DimknownIDsAsInteger()=NewInteger
(1)mainItemID1,mainItemID2IfgetDataResultThenIfNotCompareIDs(registryIDs,knownIDs)TheniftheIDsdontmatch,resetthecommandGroupignorePrevious=TrueEndIfEndIfcmdGroup=iCmdMgr.CreateCommandGroup2(mainCmdGroupID,Title,ToolTip,-1,ignorePrevious,cmdGroupErr)IfcmdGroupIsNothingOrthisAssemblyIsNothingThenThrowNewNullReferenceException()EndIfIfNotIsNothing(cmdGroup)ThencmdGroup.LargeIconList=iBmp.CreateFileFromResourceBitmap(SwVBAddin1_Matlab.ToolbarLarge.bmp,thisAssembly)cmdGroup.SmallIconList=iBmp.CreateFileFromResourceBitmap(SwVBAddin1_Matlab.ToolbarSmall.bmp,thisAssembly)cmdGroup.LargeMainIcon=iBmp.CreateFileFromResourceBitmap(SwVBAddin1_Matlab.MainIconLarge.bmp,thisAssembly)cmdGroup.SmallMainIcon=iBmp.CreateFileFromResourceBitmap(SwVBAddin1_Matlab.MainIconSmall.bmp,thisAssembly)cmdGroup.AddCommandItem2(测试用,0,Form1Design,Form1Design,4,Form1,Form1_EnableMethod,0,swconst.swCommandItemType_e.swMenuItem)cmdGroup.HasToolbar=TruecmdGroup.HasMenu=TruecmdGroup.Activate()EndIfthisAssembly=NothingiBmp.Dispose()EndSub判断菜单工具条按钮可用性FunctionForm1_EnableMethod()AsIntegerIfiSwApp.ActiveDocIsNothingThenForm1_EnableMethod=1ElseForm1_EnableMethod=0EndIfEndFunctionFunctionForm1()AsBooleanDimstAsNewForm1st.Show()EndFunction4.重新生成解决方案,如图4。
图45.运行SolidWorks,查看成果,如图5。
图56.最终插件如图6。
图6
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 如何 利用 vb SolidWorks 进行 二次开发