用按键精灵结合cad2024批量导出图纸信息

Event Form1.Button1.Click
Rem p1
key = WaitKey()
If key = 20 Then 
	EndScript
elseIf key=17  then
	'==========以下是按键精灵录制的内容==========

	MoveTo 1111, 118
	Delay 200
	LeftClick 1
	Delay 100
	MoveTo 716, 526
	Delay 100

	LeftClick 1
	Delay 1000
	MoveTo 1121, 560
	Delay 200

	LeftClick 1
	Delay 500
	MoveTo 1260, 615
	Delay 100
	LeftClick 1
	MoveTo 865, 634
	Delay 200
	LeftClick 1
	Delay 100
	MoveTo 1214, 700
	Delay 200
	LeftClick 1
	MoveTo 1132, 717
	Delay 100

	LeftClick 1
	Delay 100
	MoveTo 954, 426
	Delay 20
	LeftClick 1

	'==========以上是按键精灵录制的内容=========
	
	Rem P2
	key1 = WaitKey()
	If key1 = 76 Then 
		xiayibu 
	ElseIf KEY1 = 20 Then
		EndScript
	Else 
	 Goto P2
	End If
	Goto p1
Else 
	Goto p1
End If
	
	
End Event
Sub xiayibu()
	'==========以下是按键精灵录制的内容==========
'==========以下是按键精灵录制的内容==========
MoveTo 1218, 592
Delay 500
LeftClick 1
MoveTo 1132, 719
Delay 100
LeftClick 1
MoveTo 750, 622
Delay 4914

MoveTo 664, 615
Delay 100
LeftClick 1
MoveTo 682, 642
Delay 100
LeftClick 1


MoveTo 660, 401
Delay 100
LeftClick 1

MoveTo 665, 427
Delay 100
LeftClick 1
MoveTo 658, 453
Delay 100
LeftClick 1
MoveTo 657, 476
Delay 100
LeftClick 1

Delay 200
MoveTo 1132, 716
Delay 200

LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
'==========以上是按键精灵录制的内容======
End Sub