VB连接Solidworks2009.ppt

  1. 1、本文档共36页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
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的一般步骤 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 其他代码 Mddeldoc::Featurecut4(单(双)向,反侧切除,方向1,终止1,终止2,切割深度1,切割深度2,拔模……): VB连接Solidworks Dim swApp As Object Set swApp = CreateObject(SldWorks.Application) Swapp.visible(true) 连接Solidworks并新建自动命名的零件模型文件 Private Sub Command1_Click() Dim swApp As Object Dim npart As Object Set swApp = CreateObject(SldWorks.Application) Swapp.visible(true) Set npart = swApp.Newpart() End Sub 连接Solidworks并新建自动命名的装配模型文件 Dim swApp As Object Dim nassembly As Object Set swApp = CreateObject(SldWorks.Application) Swapp.visible(true) Set nassembly = swApp.Newassembly() 连接Solidworks并新建工程图文件 Dim swApp As Object Dim pDrawing As Ob

文档评论(0)

kabudou + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档