求大神给看看有什么问题呀,想要实现开关开了插字，关了不插字

jiangdongguo

DCL:
dia6a:dialog{
        label="轻松掌握 TOGGLE 切换开关应用范例";
                :boxed_column{        //第一组框行
                label="重要开关设定";
                :toggle{        //切换开关1
                        label="123";
                        key="m1";        //key值
                        }

                }



        spacer_1;        //空开一列
        ok_cancel;                                       
}




LSP;




(defun c:dia6a()
   (setvar "cmdecho" 0)
   (dcl_dia6a)
   (prin1)
)
(defun dcl_dia6a()
   (setq dcl_id (load_dialog "dia6a"))
   (new_dialog "dia6a" dcl_id)
   (set_tile "m1" "0")

(if (= m1 1)
(setq t1 (strcat "人啊张旭东啊按时啥啥" ))
)

   (action_tile "accept" "(ok_dia6a)(done_dialog 1)")
   (action_tile "cancel" "(cancel_dia6a)(done_dialog -1)")
   (setq dd(start_dialog))



   (if (= dd 1)
       (progn



           (setvar "cmdecho" 1)
           (command "text" pause pause 0 t1)
           (setvar "cmdecho" 0)

       )
   )

)
(defun ok_dia6a()
   (setq m1(strcase (get_tile "m1")))

)
(defun cancel_dia6a()

)