UGS征文7：基于SolidEdge的智能土建系统.docVIP

　　UGS征文7：基于SolidEdge的智能土建系统|第1 1前言 SolidEdge是UGS公司的一款基于 objDocs As Object Dim objDoc As Object Dim objVariables As Object Dim objNamedDims As Object Dim objDoc2 As Object Dim objDocs2 As Object Dim objsheets As Object Dim objvie del As Object 此段程序代码主要实现技术：对将要用到的变量进行声明。 1前言 SolidEdge是UGS公司的一款基于 objDocs As Object Dim objDoc As Object Dim objVariables As Object Dim objNamedDims As Object Dim objDoc2 As Object Dim objDocs2 As Object Dim objsheets As Object Dim objvie del As Object 此段程序代码主要实现技术：对将要用到的变量进行声明。 1前言 SolidEdge是UGS公司的一款基于 objDocs As Object Dim objDoc As Object Dim objVariables As Object Dim objNamedDims As Object Dim objDoc2 As Object Dim objDocs2 As Object Dim objsheets As Object Dim objvie del As Object 此段程序代码主要实现技术：对将要用到的变量进行声明。 2.3.2 窗口启动时的代码: Private Sub Form_Load() Dim Fso Set Fso = CreateObject(Scripting.FileSystemObject) If Not (Fso.FolderExists( App.Path /合同土建)) Then Fso.CreateFolder ( App.Path /合同土建) End If On Error Resume Next End Sub 此段程序代码主要实现技术：当启动程序后，程序将检查在本程序所放的位置处有没有一个名为”合同土建”的文件夹，如果没有程序将自动建立一个名为”合同土建”的文件夹。 2.3.3 控件”模拟”程序代码: Private Sub 模拟_Click() Dim bBefUpDt As Boolean Dim bAftUpDt As Boolean On Error Resume Next Set objApp = GetObject(, SolidEdge.Application) If Err Then Err.Clear Set objApp = CreateObject(SolidEdge.Application) End If Set objVariables = objApp.ActiveDocument.Variables objApp.Visible = False Set objDocs = objApp.Documents If Option1.Value = True And bo1.Text = 30 And bo2.Text = 2个 And Option6.Value = True Then Set objDoc = objDocs.Open( App.Path /Builder-FES302/FES302single.asm) Set objNamedDims = objVariables.Query(*) Call objVariables.Edit(A, bo3.Text) Call objVariables.Edit(H, Text2.Text) Call objVariables.Edit(SD, Text3.Text) Call objVariables.Edit(XD, Text4.Text) Call objVariables.Edit(Z, Text5.Text) Call objDoc.UpdateAll End If End Sub 此段程序代码主要实现技术：本程序以FES302single为例，当点击”模拟”这个控件后，如果所选参数符合FES302single的选择条件时，程序将打开指定位置处的FES302single.asm文件