参数化设计机构件使用说明书

《参数化设计机构件使用说明书》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、参数化设计机构傑使用说明书•主要程序代码及功能1•SetswApp=CreateObject(HSldWorks.ApplicationH)swApp.Visible(True)(打开SidWorks并使之可见)Setpart=swApp.OpenDoc(App.Path&nAa%J)l.SLDPRTH,1)Setpart=swApp.ActivateDoc(nAa%j?ln)(在打开的SidWorks上画出图形)2•SetswApp=CreateObject(*1SIdWorks.Applicationn)s

2、wApp.Visible(True)Setpart二swApp.OpenDoc(App.Path&nAa%pl.SLDPRTH,1)Setpart=swApp.ActivateDoc(nAa%pln)part.Parameter(nDl@2YI%3n).SystemValue=Val(Text1(1).Text)/1000part.Parameter(nD2@2YI%3n).SystemValue二Val(Text1(1).Text)/1000part.Parameter(nD1@2YI%1n).SystemV

3、alue=Val(Text1(O).Text)/1000part.Parameter(nDl@A-Ei2n).SystemValue二Val(Textl(2).Text)/1000part.Parameter(nD1@2YI%2n).SystemValue=Val(Text1(2).Text)/2000part.Parameter(nD1@2YI%5n).SystemValue=Val(Text1(2).Text)/3000part.Parameter(nDl@2YI%6n).SystemValue=Val(Te

4、xtl(2).Text)/3000part.ParameterC^l^YP/ilO'^.SystemValue=Val(Text1(2).Text)/6000part.Parameter(,,Dl@2YI1412n).SystemValue=Val(Text1(2).Text)/6000part.Parameter(nD5@2YI%10n).SystemValue二Val(Textl(2).Text)/2588part.Parameter(nD4@2YI%10n).SystemValue=Val(Text1(2)

5、.Text)/2588part.Parameter(nD3@2YI%10n).SystemValue=Val(Textl(2).Text)/2588part.Parameter(nD2@2YI1410n).SystemValue=Val(Textl(2).Text)/2588part.Parameter(nD1@2YI%13n).SystemValue=Val(Text1(0).Text)/2400part.Parameter(nD2@2YI%6H).SystemValue二Val(Text1(O).Text)/

6、2000part.Parameter(nDl@2YI%18n).SystemValue=Val(Textl(0).Text)/4000主要用于控制各主要尺寸及各尺寸间的约束关系，为使用者提供人机交互的后台代码part.EditRebuildpart.EditRebuild（改变各参数后，SldWorks重新建立新的图形并显现岀来）1•DimiAsIntegerFori=0To2Textl（i）.Text二Adodc1.Recordset.Fields⑴Nexti（数据库的链接使用，为用户建立一般的标准件提供方便）

7、2•part.saveas2App.Path&"1.SLDPRT",0,False,False（自动退出时保存图形）swApp.exitapp（该代码用于释放内存）二•VB操作系统的简介及使用1•界面上共有三个按钮分别用于：画图，自选图，推出并保存2・界面上还有三个用于参数化设计人机交互的输入窗口，分别用于改变机构间的：高，顶圆直径，底宽3・界面上还有一个用于用户选择数据库中已有数据的文本框，便于用户选择所需尺寸