ugs征文7：基于solidedge的智能土建系统

《ugs征文7：基于solidedge的智能土建系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、UGS征文7：基于SolidEdge的智能土建系统

2、第11前言SolidEdge是UGS公司的一款基于objDocsAsObjectDimobjDocAsObjectDimobjVariablesAsObjectDimobjNamedDimsAsObjectDimobjDoc2AsObjectDimobjDocs2AsObjectDimobjsheetsAsObjectDimobjviedelAsObject此段程序代码主要实现技术：对将要用到的变量进行声明。1前言SolidEdge是UGS公司的一款基于objD

3、ocsAsObjectDimobjDocAsObjectDimobjVariablesAsObjectDimobjNamedDimsAsObjectDimobjDoc2AsObjectDimobjDocs2AsObjectDimobjsheetsAsObjectDimobjviedelAsObject此段程序代码主要实现技术：对将要用到的变量进行声明。1前言SolidEdge是UGS公司的一款基于objDocsAsObjectDimobjDocAsObjectDimobjVariablesAsObjectDimo

4、bjNamedDimsAsObjectDimobjDoc2AsObjectDimobjDocs2AsObjectDimobjsheetsAsObjectDimobjviedelAsObject此段程序代码主要实现技术：对将要用到的变量进行声明。2.3.2窗口启动时的代码:PrivateSubForm_Load()DimFsoSetFso=CreateObject("Scripting.FileSystemObject")IfNot(Fso.FolderExists(""App.Path"/合同土建"))ThenF

5、so.CreateFolder(""App.Path"/合同土建")EndIfOnErrorResumeNextEndSub此段程序代码主要实现技术：当启动程序后，程序将检查在本程序所放的位置处有没有一个名为”合同土建”的文件夹，如果没有程序将自动建立一个名为”合同土建”的文件夹。2.3.3控件”模拟”程序代码:PrivateSub模拟_Click()DimbBefUpDtAsBooleanDimbAftUpDtAsBooleanOnErrorResumeNextSetobjApp=GetObject(,"Sol

6、idEdge.Application")IfErrThenErr.ClearSetobjApp=CreateObject("SolidEdge.Application")EndIfSetobjVariables=objApp.ActiveDocument.VariablesobjApp.Visible=FalseSetobjDocs=objApp.DocumentsIfOption1.Value=TrueAndbo1.Text="30"Andbo2.Text="2个"AndOption6.Value=TrueTh

7、enSetobjDoc=objDocs.Open(""App.Path"/Builder-FES302/FES302single.asm")SetobjNamedDims=objVariables.Query("*")CallobjVariables.Edit("A",bo3.Text)CallobjVariables.Edit("H",Text2.Text)CallobjVariables.Edit("SD",Text3.Text)CallobjVariables.Edit("XD",Text4.Text)Ca

8、llobjVariables.Edit("Z",Text5.Text)CallobjDoc.UpdateAllEndIfEndSub此段程序代码主要实现技术：本程序以FES302single为例，当点击”模拟”这个控件后，如果所选参数符合FES302single的选择条件时，程序将打开指定位置处的FES302single.asm文件并将其隐藏，然后程序将用户所填的变量值赋给所打开的三维模型并将其激活更新。2.3.4控件”查看”程序代码:PrivateSubmand3_Click()DimiDimjLabel14.

9、Caption="*OK,该项目已经完成！"SetobjDocs2=objApp.DocumentsIfOption1.Value=TrueAndbo1.Text="30"Andbo2.Text="2个"AndOption6.Value=TrueThenSetobjDoc2=objDocs2.Open(""App.Path"/Builder-FES302/FES302si