- 1、本文档共36页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB连接Solidworks2012
从 Visual Basic 连接至 solidworks,并参数化绘图 Option Explicit Dim swApp As Object Dim Part As Object Dim D1 As Double Dim D2 As Double Private Sub Command1_Click() Set swApp = CreateObject(SldWorks.Application) Set Part = swApp.ActivateDoc(“Part1”)’当前文件名 Part.Parameter(D1@草图1).SystemValue = Val(Text1.Text) Part.Parameter(D2@草图1).SystemValue = Val(Text2.Text) Part.Parameter(D1@拉伸1).SystemValue = Val(Text3.Text) Part.EditRebuild End Sub 窗体添加预览图形代码 Private Sub Form_Load() Image1.Picture = LoadPicture(App.Path \套.bmp) End Sub SolidWorks二次开发基本知识(开发人员提供) SolidWorks提供了几百个API(Application Program Interface,应用程序接口),可以使用VB/VB/VC/Delphi等高级语言对SolidWorks进行二次开发,建立符合要求的、专用的SolidWorks功能模块 VBA(Visual Basic for Applications) VBA(Visual Basic for Applications)是1993年由Microsoft推出的一种可以被多种应用程序共享的、针对应用程序内部可编程的、通用的可视化应用程序编程语言。 VBA是一套完整的应用程序开发环境,它为用户和开发人员提供了一种应用程序间通用的应用程序语言,减少了学习时间和支持费用。 在Microsoft Office中,所有的应用程序都可以使用VBA 在SolidWorks中,VBA最常见的用途即是录制宏。几乎所有用键盘或菜单命令完成的动作均被宏记录下来,然后对不同的数据进行(或播放)同一批操作。 用VB开发Solidworks的一般步骤 SolidWorks的对象、方法很多,其中SldWorks对象有98种方法,ModelDoc对象有477种方法,通常,开发者先录制一段宏,然后将宏代码修改后复制到VB中去。 用VB开发Solidworks的一般步骤 宏是一系列命令的集合,相当于Dos的批处理文件,可以通过录制使用SolidWorks用户界面执行的操作,然后使用SolidWorks宏重新执行这些操作。 用VB开发Solidworks的一般步骤 打开宏录制 1.在Solidworks中,应用纪录宏(【工具】→ 【宏操作】→ 【录制】 停止宏?保存于文件夹 2.操作、停止并保存 3.编辑宏 VBA套零件的代码 4.执行宏操作 用VB开发Solidworks的一般步骤 将宏录制的代码照搬到VB,并不一定能够绘图,有时会出现错误,需进行修改。 SolidWorks二次开发常用代码 打开SolidWorks新文件 SldWorks::NewPart:打开一个被自动命名的新零件 SldWorks::NewDocment(模板名,图纸尺寸,用户纸宽,用户纸高):创建一个具有模板名的新文件 SldWorks::NewAssembly:创建一个被自动命名的装配体文件 SldWorks::NewDrawing2(模板类型,模板名,图纸尺寸,纸宽,纸高…):创建一个新的具有模板或用户图纸的工程图文件,文件名被自动命名。 保存和退出文件 ModelDoc::SaveAs(文件名,版本信息,选项,….):用不同的名称保存文件 ModelDoc::SaveAs2 (文件名…):用新名字保存文件 SldWorks::ExitApp’退出SolidWorks 保存在当前路径:App.path “文件名” 其他代码 ModelDoc2::InsertSketch2:开始/结束草图绘制 ModelDoc2::ClearSelection():清除任何选择 ModelDoc2.InsertKetchText(X坐标,Y坐标,Z坐标,文本,文本的对齐方式…):插入草图文本 Part.FeatureExtrusion(拉伸方向,终止1,终止2,拉深深度….) 例:Part.FeatureExtrusion 1, 0, 1, 0, 0, 0.02, 0.02, 0, 0, 0, 0, 0.017, 0.017, 0, 0 其他代码
您可能关注的文档
- Unit4 Where’s my schoolbag Section B(2a-2c)课件.ppt
- Unit4.单元练习.ppt
- Unit4-Where-is-my-car?人教版三年级PEP英语下册第四单元·单元复习、知识梳理、强化练习.ppt
- unit5 text1吕倩 黄小倩 杨前路.ppt
- unit6 Will_people_have_robots赛课课件.ppt
- Unit6WhatDidYouDoLastWeekend教案.doc
- Unit5 There is a big bed(pep五年级上).ppt
- Unit8 If you want to talk, you can go online 第四课时Reading & writing.ppt
- Unit8 Boys like to play football(男生喜欢打球).pptx
- Unit8 The Dragon Boat Festival PPT课件.ppt
文档评论(0)