VB二次开发SW.ppt

下载文档 降价啦

17
0
约1.35千字
约 36页
2017-06-10 发布于上海
举报
版权申诉
保障服务

VB二次开发SW.ppt

1、本文档共36页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

VB二次开发SWppt整理

SolidWorks二次开发基本知识;VBA（Visual Basic for Applications）;;用VB开发Solidworks的一般步骤;用VB开发Solidworks的一般步骤;用VB开发Solidworks的一般步骤;停止宏?保存于文件夹;3.编辑宏;VBA套零件的代码;4.执行宏操作;用VB开发Solidworks的一般步骤;SolidWorks二次开发常用代码;保存和退出文件;其他代码;其他代码;VB连接Solidworks;连接Solidworks并新建自动命名的零件模型文件;连接Solidworks并新建自动命名的装配模型文件;连接Solidworks并新建工程图文件;新建文件例题：;编程举例;代码;Private Sub Command1_Click()Dim swApp As ObjectDim Part As ObjectSet swApp = CreateObject(SldWorks.Application)swApp.Visible (True)Set Part = swApp.Newpart()Set Part = swApp.ActiveDocPart.InsertSketchPart.SketchRectangle 0, 0, 0, 0.1, 0.1, 0, 1Part.FeatureExtrusion 1, 0, 1, 0, 0, 0.02, 0.02, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0;代码; 抽壳;;;Part.SelectByMark 基体-拉伸, BODYFEATURE, 0, 0, 0, 0 Part.AndSelectByMark , FACE, 0.03, 0.03, 0, 1 选择开放面?标号是1 选择两个有不等厚度的非开放面?标号是2 Part.AndSelectByMark , FACE, 0.09999999999991, 0.04121560801519, -0.01272845167375, 2 Part.AndSelectByMark , FACE, 0.05376383570518, 0.09999999999985, -0.01066374420634, 2 为每个面设置厚度 Part.InsertFeatureShellAddThickness 0.005 Part.InsertFeatureShellAddThickness 0.02 生成抽壳特征 Part.InsertFeatureShell 0.001, 0 Part.ShowNamedView2 *Isometric, 7 Part.ViewZoomtofit2 End Sub ;参数化设计;Set Part = swApp.ActivateDoc(Part1) 在SolidWorks中创建一个新零件文件，零件名被自动命名 Swapp.visible(true) ;从 Visual Basic 连接至 solidworks，并参数化绘图;;;窗体添加预览图形代码;;