'%RunPerInstance
'@
'@ DESCRIPTION
'@ Create input files for code-V
'@
'@ USAGE
'@ After completing a 3d analysis, type "mpi2codev" in the command line. No parameter is needed.
'@
'@INTERFACE FILES
'@ Interface file is saved according to code V input format and the extension name is .int.
'@ Code V File version Supported Code V version 9.8.1
'@
'@@
Option Explicit
Function InputBox1(prompt)
Dim Res
Res=InputBox(prompt)
If Len(Res)=0 Then
MsgBox ("Script is aborted by the user")
Err.Raise vbObjectError+1,"User Entry", "Script is aborted by the user"
End If
InputBox1=Res
End Function
Function SmoothArray (CountArray,ValArray,MaxI,MaxJ,i,j,Count)
Dim Res, k,Val
Res=0
Count=0
Val=0
If (CountArray(i,j)>0) Then
Res=ValArray(i,j)/CountArray(i,j)
SmoothArray=Res
Return
End If
If (i<MaxI) Then
k=i+1
Count=CountArray(k,j)+Count
Val=ValArray(k,j)+Val
If (j>1) Then
Count=CountArray(k,j-1)+Count
Val=ValArray(k,j-1)+Val
End If
If (j<MaxJ) Then
Count=CountArray(k,j+1)+Count
Val=ValArray(k,j+1)+Val
End If
End If
k=i
If (j>1) Then
Count=CountArray(k,j-1)+Count
Val=ValArray(k,j-1)+Val
End If
If (j<MaxJ) Then
Count=CountArray(k,j+1)+Count
Val=ValArray(k,j+1)+Val
End If
If (i>1) Then
k=i-1
Count=CountArray(k,j)+Count
Val=ValArray(k,j)+Val
If (j>1) Then
Count=CountArray(k,j-1)+Count
Val=ValArray(k,j-1)+Val
End If
If (j<MaxJ) Then
Count=CountArray(k,j+1)+Count
Val=ValArray(k,j+1)+Val
End If
End If
If (Count>0) Then
Res=Val/Count
End if
SmoothArray=Res
End Function
Function Atan2(y,x)
If X>0.0 Then
Atan2=Atn(y/x)
Else If (x<0) Then
If (y>0) Then
Atan2=Atn(y/x)+3.1415926
Else
Atan2=Atn(y/x)-3.1415926
End If
Else If (y>0) Then
Atan2=3.1415926/2.0
Else If (y<0) Then
Atan2=-3.1415926/2.0
Else
Atan2=0.0
End If
End If
End If
End If
End Function
Sub Main
Dim Synergy,PlotMgr,StudyDoc,Node1,IndpValues,node_1,p_1,Coord,queryValues
Dim SynergyGetter
On Error Resume Next
Set SynergyGetter = GetObject(CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SAInstance%"))
On Error GoTo 0
If (Not IsEmpty(SynergyGetter)) Then
Set Synergy = SynergyGetter.GetSASynergy
Else
Set Synergy = CreateObject("synergy.Synergy")
End If
Dim gridX,gridY,i,j,NumNod, MinX,MaxX,MinY,MaxY,NodeID,x,y,xindex,yindex, NumGoodNod,dz
Dim BaseName
BaseName=InputBox("Please enter your desired base name for the interface files that will be created", "Enter filename")
If Len(BaseName)=0 Then
MsgBox ("Script is aborted by the user")
Exit Sub
End If
On Error Resume Next
gridX=CInt(InputBox1("Number of grid points over X direction:"))
If err.number <> 0 Then Exit Sub
gridY=CInt(InputBox1("Number of grid points over Y direction:"))
If err.number <> 0 Then Exit Sub
MinX=CDbl(InputBox1("Minimal X coordinate:"))
If err.number <> 0 Then Exit Sub
MinY=CDbl(InputBox1("Minimal Y coordinate:"))
If err.number <> 0 Then Exit Sub
MaxX=CDbl(InputBox1("Maximal X coordinate:"))
If err.number <> 0 Then Exit Sub
MaxY=CDbl(InputBox1("Maximal Y coordinate:"))
If err.number <> 0 Then Exit Sub
On Error GoTo 0
Dim objExplorer
Set objExplorer=CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar=0
objExplorer.StatusBar=0
objExplorer.Width=400
objExplorer.Height=200
objExplorer.Visible=1
objExplorer.Document.Title="Interface script in progress"
objExplorer.Document.Body.InnerHTML="Your interface script is working. This might take several minutes. Please wait."
ReDim zDef(GridX,GridY)
ReDim NumNodes(GridX,GridY)
ReDim NumNodesTh(GridX,GridY)
ReDim Bref(GridX,GridY)
ReDim CaoX(GridX,GridY)
ReDim CaoY(GridX,GridY)
For i=1 To gridX
For j=1 To gridY
ZDef(i,j)=0.0
NumNodes(i,j)=0
Bref(i,j)=0.0
NumNodesTh(i,j)=0
CaoX(i,j)=0.0
CaoY(i,j)=0.0
Next
Next
這是我在運行軟體的時候windows script host提示，第135行不是有objExplorer.Document嗎？為啥還顯示缺少這個物件呢
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/47271.html
標籤：一般軟件使用
上一篇：求助！office2019開始界面“最近使用的檔案”搜索欄如何調出？
下一篇：求助：關于Boa服務器