为什么得不到我所要的图块??

gdut_2005s

LISP程序如下:

(defun c:dia6b()
  (setvar "cmdecho" 0)
  (setq blkname "dia6att")
  (dcl_dia6b)
  (prin1)
)
(defun dcl_dia6b()
  (setq dcl_id (load_dialog "dia6b"))
  (new_dialog "dia6b" dcl_id)
  (setq defkey1 "rb14" defkey2 "rb21")
  (set_tile defkey1 "1")
  (set_tile defkey2 "1")
  (setq name (get_attr defkey1 "label"))
  (setq ssca (get_attr defkey2 "label"))
  (action_tile "rb11" "(setq name (get_attr $key\"label\"))")
  (action_tile "rb12" "(setq name (get_attr $key\"label\"))")
  (action_tile "rb13" "(setq name (get_attr $key\"label\"))")
  (action_tile "rb14" "(setq name (get_attr $key\"label\"))")
  (action_tile "rb21" "(setq ssca (get_attr $key\"label\"))")
  (action_tile "rb22" "(setq ssca (get_attr $key\"label\"))")
  (action_tile "rb23" "(setq ssca (get_attr $key\"label\"))")
  (action_tile "rb24" "(setq ssca (get_attr $key\"label\"))")
  (action_tile "rb25" "(setq ssca (get_attr $key\"label\"))")
  (action_tile "ins_ok" "(ok_dia6b) (done_dialog 1)")
  (setq dd (start_dialog))
  (if (= dd 1)
    (progn
      (setq inspt (getpoint "\n选取属性图块插入点:"))
      (command "insert" blkname inspt 1 1 0 dwgnum name ssca)
      )
    )
  )
(defun ok_dia6b()
  (setq dwgnum (get_tile "dwgnum"))
  )

DCL语句如下:

dia6b:dialog{
            label="轻松掌握单选按钮";
            :text{label="[插入带有属性的图块DIA6B]";
                  alignment=centered;
                  }
            :row{
                :boxed_radio_column{
                                   label="设计者";
                                   :radio_button{label="忍者鬼";key="rb11";}
                                   :radio_button{label="小叮当";key="rb12";}
                                   :radio_button{label="钟楼怪人";key="rb13";}
                                   :radio_button{label="无敌铁金刚";key="rb14";}
                                   }
                 :boxed_radio_column{
                                   label="比例";
                                   :radio_button{label="1/1";key="rb21";}
                                   :radio_button{label="1/30";key="rb22";}
                                   :radio_button{label="1/50";key="rb23";}
                                   :radio_button{label="1/100";key="rb24";}
                                   :radio_button{label="1/200";key="rb25";}
                                   }
                                   }
            :edit_box{
                     label="图档编号";
                     key="dwgnum";
                     edit_width=8;
                     edit_limit=8;
                     fixed_width=true;
                     }
               spacer_1;
             :row{
                  fixed_width=true;
                  alignment=centered;
                  :button{
                          label="插入图块";
                          key="ins_ok";
                          width=8;
                          }
                  :spacer{width=2;}
                  cancel_button;
                  }
                  }
                 

加载后出现如下提示:

选取属性图块插入点:未知命令“A100”。按 F1 查看帮助。
未知命令“无敌铁金刚”。按 F1 查看帮助。
未知命令“1/30”。按 F1 查看帮助。

   就是得不到我所要的结果!请问是什么原因??

gdut_2005s

请问是什么原因??高人快帮忙啊!