((= fm "Y") (qs) (dfw) (jy))

((= fm "G") (qs) (dfw) (gm))

((= fm "W") (qs) (dfw) (df))

((= fm "S") (qs) (dfw) (ss))

((= fm "K") (qs) (dfw) (kz)))；cond

(command "layer" "s" cl "")

(setvar "regenmode" 1)

(princ)

)

)

)；end

(va)

princ)

)

)

)；end

(va)