for i =0 to 9999
输入"A0"&i
next

i=0
do
左键双击
i=i+1
SayString"DW1-A0"&i
loop

是检测到鼠标双击就输入文本吗?
是这样的话倒是有一个简单办法
设置鼠标双击作为脚本的快捷键启动键
代码这样写就好了
读文本文件
+1输出
存到文本文件

val = Plugin.File.ReadINI("Default", "val", "c:\CadVal.ini")
If Len(val) = 0 Then
val = "1" //初始值
End If
//你的代码
LeftDoubleClick 1
Delay 50
KeyPress "Right", 1
SayString " D01-A0" + val
//下次加1
val = val + 1
Call Plugin.File.WriteINI("Default", "val", val, "c:\CadVal.ini")