[求助]：问一个较低级的问题，不是为了编程，而是想汉化

Robbie

在Express Tools工具中有一个给文本加外框的程序，我想汉化（下面是我不改变程序结构的情况下的最大程度汉化），但在执行命令时会出现：
"在文本外加圈用 [圆(C)/槽(S)/矩形(R)]  <Circles>: "
如果将 (setq #bns_tcircle_ent "Circles")
改为   (setq #bns_tcircle_ent "圆")
只会第一次会出现，而且执行好像也不正确，怎样才能实现完全汉化呢。下面是代码：

     (if (not #bns_tcircle_ent)
         (setq #bns_tcircle_ent "Circles")
     );if
     (initget "Circles Slots Rectangles")
     (setq ent (getkword
                (acet-str-format "\n在文本外加圈用 [圆(C)/槽(S)/矩形(R)] <%1>: "
                                 #bns_tcircle_ent
                );acet-str-format
               )
     );setq
     (if (or (not ent)
             (equal ent "")
         );or
         (setq ent #bns_tcircle_ent)
         (setq #bns_tcircle_ent ent)
     );if

     (if (not #bns_tcircle_rad)
         (setq #bns_tcircle_rad "Variable")
     );if
     (initget "Constant Variable")
     (setq rad (getkword
                (acet-str-format
                   "\n创建不变或可变大小的 %1  [不变(C)/可变(V)] <%2>: "
                   (strcase ent T)
                   #bns_tcircle_rad
                );acet-str-format
               )
     );setq
     (if (or (not rad)
             (equal rad "")
         );or
         (setq rad #bns_tcircle_rad)
         (setq #bns_tcircle_rad rad)
     );if
     (if (and (equal rad "Constant")
              (or (equal ent "Slots")
                  (equal ent "Rectangles")
              );or
         );and
         (progn
          (if (not #bns_tcircle_slot)
              (setq #bns_tcircle_slot "Both")
          );if
          (initget "Width Height Both")
          (setq slot (getkword
                      (acet-str-format
                              "\n保持不变的 %1 [宽度(W)/高度(H)/两者都(B)] <%2>: "
                              (strcase (substr ent 1 (- (strlen ent) 1)) T)
                              #bns_tcircle_slot
                      )
                     )
          );setq
          (if (or (not slot)
                  (equal slot "")
              );or
              (setq slot #bns_tcircle_slot)
              (setq #bns_tcircle_slot slot)
          );if
         );progn else get rectang or slot size info
     );if

     (setq j (bns_tcircle ss rad ent slot offset))
     (if ss
         (command "_.select" ss "")
     );if
     (princ (strcat "\n" (itoa j) " " ent " 个已创建。"))
    );progn then
    (princ "\n没有选择有效的对象。")