(menucmd
(strcat
"M=$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 5), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 4), 4),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 6), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 5), 5),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 7), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 6), 6),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 8), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 7), 7),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 9), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 8), 8),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 10), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)),9), 9),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 11), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 10), 10),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 12), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 11), 11),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 13), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 12), 12),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 14), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 13), 13),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 15), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 14), 14),)"
"$(if, $(eq, \\, $(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 16), 1)),$(substr, $(getvar, dwgprefix), $(-, $(strlen, $(getvar, dwgprefix)), 15), 15),)"
) ;_ strcat
)