Sub Wait(Seconds As Variant) Ts = Timer Te = Timer Elapsed = Te - Ts While Elapsed < Seconds Te = Timer Elapsed = Te - Ts Wend End Sub

STARTUP =建坐标系/开始,回调:, LIST= 是 建坐标系/终止 模式/手动 加载测头/OUTCAL_OLS 格式/文本,选项,标题,符号, ;测定值,标称值,公差,偏差,超差, , 注释/运算符,是,Ready to start waiting 赋值/START_WAITING = SYSTEMTIME("H:m:s") 注释/文档,否,The following CALL will wait for about 10 seconds CS1 =调用子例程/WAIT_FOR,:10,, 注释/运算符,是,"Started waiting at "+START_WAITING ,"Waited until "+SYSTEMTIME("H:m:s") 转到/END_PROGRAM 注释/文档,否,Waiting code starts here 注释/文档,否,This code waits for about ,SECONDS_TO_WAIT +1/-0 seconds 注释/文档,否,However, you can not wait for less ,than 2 seconds or more than 86000 seconds 子例程/WAIT_FOR, SECONDS_TO_WAIT = 5 : THE NUMBER OF SECONDS TO WAIT, = IF/SECONDS_TO_WAIT<2 转到/END_WAITING END_IF/ IF/SECONDS_TO_WAIT>86000 转到/END_WAITING END_IF/ 赋值/START_TIME = SYSTEMTIME("H:m:s") 赋值/START_HOUR = ELEMENT(1,":",START_TIME) 赋值/START_MINUTE = ELEMENT(2,":",START_TIME) 赋值/START_SECOND = ELEMENT(3,":",START_TIME) 赋值/END_SECOND = START_SECOND+INT(SECONDS_TO_WAIT % 60) 赋值/END_MINUTE = START_MINUTE+INT((SECONDS_TO_WAIT % 3600) / 60) 赋值/END_HOUR = START_HOUR+INT(SECONDS_TO_WAIT / 3600) IF/END_SECOND>=60 赋值/END_SECOND = END_SECOND-60 赋值/END_MINUTE = END_MINUTE+1 END_IF/ IF/END_MINUTE>=60 赋值/END_MINUTE = END_MINUTE-60 赋值/END_HOUR = END_HOUR+1 END_IF/ IF/END_HOUR>=24 赋值/END_HOUR = END_HOUR-24 END_IF/ 赋值/END_TIME = END_HOUR+":"+END_MINUTE+":"+END_SECOND 注释/文档,否,The loop below waits until we reach the correct time DO/ 赋值/CURRENT_TIME = SYSTEMTIME("H:m:s") UNTIL/CURRENT_TIME==END_TIME END_WAITING=标号/ 终止子例程/ 注释/文档,否,Waiting code ends here END_PROGRAM=标号/

谢谢!我马上进行操作

簡單的方式是在虛點后新增COMMENT/OPER語句(從菜單insert-report command-comment調用),並在彈出對話框中輸入相關提示,當程式運行到此時,就會產生對話框,此時你可根據需要的時間回應此對話框,回應完成后程式繼續執行后部分內容!

能不能更详细地介绍这个操作过程?我从来没有编过PCDMIS的程序,帮帮忙吧

可以用if加comment語句控制,但保持時間長短需要人操作滑鼠或鍵盤回應!

我现在让测量机沿某一轴向运行,在这段行程中,插入虚点,如何使测量机在此位置保持几秒钟?