[求助]：多行文本输入的问题，请帮忙改善！

小妹丁

2004在输入中西文时，字体变化让人讨厌，我写了一个多行文本输入的小程序。
能不能按图改进呢？请指点。
xinmtext:dialog{
                  label="编辑多行文字：";
                  spacer_1;

                  :edit_box{
                           label="输入文字内容：";
                           key="wordstr";
                           edit_width = 10;
                           }
                  spacer_1;
                  :text{
                        label="小写字母，会自动转为大写。";
                           }
                  spacer_1;
                  :text{
                        label="小妹丁  2004年05月12日";
                           }
                  ok_only;
                 }

(defun C:xinmtext ()
  (setvar "cmdecho" 0)
  (dcl_inmtext)
  (prin1)
)
(defun dcl_inmtext ()
  (setq dcl_id (load_dialog "xinmtext"))
  (new_dialog "xinmtext" dcl_id)
  (action_tile "accept" "(ok_inmtext) (done_dialog 1)")
  (setq dd (start_dialog))
  (if (= dd 1)
    (progn
      (setq pt0 (getpoint "\n插入点 :"))
      (command "mtext" pt0 "J" "mc" "H" 5.0 "w" 100 wordstr "")
    )
  )
)

(defun ok_inmtext ()
  (setq wordstr (strcase (get_tile "wordstr")))
)

maplesu

似乎没有什么办法
我的印象中是可以用eidt_box输入一行
添加到list_box中来实现多行输出

swaywood

应该不行，你要是文字很长的话，用list_box应该比较好，如果不长可以加入指定的特殊字符作为换行标志，再处理