Adams宏導出

var set var=ip integer_value=1
var set var=macro_name str=""

for variable_name=the_macro object_names=.amachinery.macros.* type=macro
    var set var=full_name obj=(eval(DB_FULL_NAME_FROM_SHORT(the_macro, "macro")))
    file text open file_name = (eval("C:/Users/W/Documents/macros/"//full_name)) open_mode = overwrite 
    file text write format_for_output=(eval(full_name.object_value.user_entered_command)) newline=yes
    file text write format_for_output=(eval(user_string("full_name.object_value.commands_to_be_executed"))) newline=yes
    file text close file_name = (eval("C:/Users/W/Documents/macros/"//full_name))
end
var set var = msg int=(eval(alert("warning",ip//macro_name,"OK","","",1)))