SolidWorks用VB 二次开发代码.doc

SolidWorks用VB 二次开发代码.doc

ID:61521008

大小:272.50 KB

页数:6页

时间:2021-02-11

SolidWorks用VB 二次开发代码.doc_第1页
SolidWorks用VB 二次开发代码.doc_第2页
SolidWorks用VB 二次开发代码.doc_第3页
SolidWorks用VB 二次开发代码.doc_第4页
SolidWorks用VB 二次开发代码.doc_第5页
资源描述:

《SolidWorks用VB 二次开发代码.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、SolidWorks二次开发代码打开SolidWorks新文件SldWorks::NewPart:打开一个被自动命名的新零件SldWorks::NewDocment(模板名,图纸尺寸,用户纸宽,用户纸高):创建一个具有模板名的新文件SldWorks::NewAssembly:创建一个被自动命名的装配体文件SldWorks::NewDrawing2(模板类型,模板名,图纸尺寸,纸宽,纸高…):创建一个新的具有模板或用户图纸的工程图文件,文件名被自动命名。保存和退出文件·ModelDoc::SaveAs(文件名,版本信息,选项,

2、….):用不同的名称保存文件·ModelDoc::SaveAs2(文件名…):用新名字保存文件·SldWorks::ExitApp’退出SolidWorks·保存在当前路径:App.path&“文件名”见图1其他代码·ModelDoc2::InsertSketch2:开始/结束草图绘制·ModelDoc2::ClearSelection():清除任何选择·ModelDoc2.InsertKetchText(X坐标,Y坐标,Z坐标,文本,文本的对齐方式…):插入草图文本·Part.FeatureExtrusion(拉伸方向,终

3、止1,终止2,拉深深度….)·例:Part.FeatureExtrusion1,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·DimswAppAsObject·SetswApp=CreateObject("SldWorks.Application")·Swapp.visible(true)连接Solidworks并新建自动命名的零件模

4、型文件·PrivateSubCommand1_Click()·DimswAppAsObject·DimnpartAsObject·SetswApp=CreateObject("SldWorks.Application")·Swapp.visible(true)·Setnpart=swApp.Newpart()·EndSub连接Solidworks并新建自动命名的装配模型文件·DimswAppAsObject·DimnassemblyAsObject·SetswApp=CreateObject("SldWorks.Applic

5、ation")·Swapp.visible(true)·Setnassembly=swApp.Newassembly()连接Solidworks并新建工程图文件·DimswAppAsObject·DimpDrawingAsObject·SetswApp=CreateObject("SldWorks.Application")·SetpDrawing=swApp.NewDrawing2(13,"""",0,0.2794,0.2159)新建文件例题:·PrivateSubCommand1_Click()·DimswAppAsOb

6、ject·DimnpartAsObject·SetswApp=CreateObject("SldWorks.Application")·Swapp.visible(true)·Setnpart=swApp.Newpart()·EndSub·PrivateSubCommand2_Click()·DimswAppAsObject·DimpDrawingAsObject·SetswApp=CreateObject("SldWorks.Application")·SetpDrawing=swApp.NewDrawing2(13,""

7、"",0,0.2794,0.2159)·EndSub·PrivateSubCommand3_Click()·DimswAppAsObject·DimnassemblyAsObject·SetswApp=CreateObject("SldWorks.Application")·Setnassembly=swApp.Newassembly()·EndSub编程举例1.代码在图22.抽壳·Modeldoc2::insertfeatureshelladdthickness代码在图3参数化设计·打开VB,建立工程并设计相应的窗体,编写

8、代码,调用SolidWorks·DimswAppAsObject·DimnpartAsObject·'定义OLE对象变量,分别对应SldWorks和Part对象SetswApp=CreateObject("SldWorks.Application")·'创建SldWorks对象·SetPa

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。