CurCPMode

应用示例

Sub Main	
 Dim prevSet As Variant				

 TakeArm Keep=1

 '获取当前设定的CP插补模式设定					
 prevSet = CurCPMode

 设定CP插补模式			
 CPMode 1				

 '执行某些处理				

 '返回原来设定的CP插补模式			
 CPMode prevSet

End Sub