Dim a,i,m,b
For a=1 to 100
Window("iOrthoWorks").Activate
Dialog("iOrthoWorks").WinButton("Button").VirtualObject("打开按钮").Click 11,7
Dialog("iOrthoWorks").Dialog("打开").WinEdit("文件名(N):").Set "1.ODS"
For i=1 to 5
Select Case i
Case 1 m="2.ODS"
Case 2 m="3.ODS"
Case 3 m="4.ODS"
Case 4 m="5.ODS"
Case 5 m="6.ODS"
End Select
next
Dialog("iOrthoWorks").Dialog("打开").WinEdit("文件名(N):").SetTOProperty"text",m
Dialog("iOrthoWorks").Dialog("打开").WinObject("打开(O)").Click 35,8
Window("iOrthoWorks").Activate
Window("iOrthoWorks").WinObject("Button_2").Click 28,37
Window("iOrthoWorks").Window("输出STL").WinObject("多步骤").Click 7,7
Window("iOrthoWorks").Window("输出STL").WinObject("输出").Click 26,15
if Window("iOrthoWorks").Window("输出STL").Dialog("wait").Exist then
wait 60 end if
Next