资源描述:
《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