[求助]：高手帮忙修改一下程序，按退格键，可以在命令行同时显示删除过程

hsslyl

程序如下：
(defun c:ss ()
(prompt "\n输入字符:")
(setq srzdo nil)
(setq tjhn t)
(while        tjhn
  (setq dbd (grread t 4 2))
  (setq bmz (car dbd))
  (setq BL-hn1 (cadr dbd))
  (cond        ((and (= bmz 2) (= BL-hn1 8))
         (cond ((= (type srzdo) 'STR) (setq srzdo (substr srzdo 1 (- (strlen srzdo) 1)))))
        ) ;|按退格键。|;
        ((and (= bmz 2) (/= BL-hn1 13))
         (prompt (chr BL-hn1))
         (cond ((/= (type srzdo) 'STR) (setq srzdo (chr BL-hn1)))
               (t (setq srzdo (strcat srzdo (chr BL-hn1))))
         )
        )
        ((or (= bmz 11) (and (= bmz 2) (= BL-hn1 13))) (setq tjhn nil))
  )
)
(princ (strcat "\n输入值为:" srzdo))
(princ)
)
例如：输入888sss后，按3次退格键，返回值为888，但按退格键时，在命令行如何同时显示删除过程呢？
谢谢！

aeo

看一下 ascii表,backspace 是什么.
别忘了和空格键结合,
princ就行了.

hsslyl

谢谢！不知如何使用princ才能达到我的目的？
以下程序增加一个函数grtext作为演示，我的目的是：在命令行也像状态行（左下方）一样，按退格键，能显示删除已输字符的过程。
(defun        c:ss ()
  (prompt "\n输入字符:")
  (setq srzdo nil)
  (setq tjhn t)
  (while tjhn
   (setq dbd (grread t 4 2))
   (setq bmz (car dbd))
   (setq BL-hn1 (cadr dbd))
   (cond ((and (= bmz 2) (= BL-hn1 8))
          (cond ((= (type srzdo) 'STR) (setq srzdo (substr srzdo 1 (- (strlen srzdo) 1)))))
          (grtext -1 srzdo)
         ) ;|按退格键，即backspace键。|;
         ((and (= bmz 2) (/= BL-hn1 13))
          (prompt (chr BL-hn1))
          (cond        ((/= (type srzdo) 'STR) (setq srzdo (chr BL-hn1)))
                (t (setq srzdo (strcat srzdo (chr BL-hn1))))
          )
          (grtext -1 srzdo)
         )
         ((or (= bmz 11) (and (= bmz 2) (= BL-hn1 13))) (setq tjhn nil))
   )
  )
  (princ (strcat "\n输入值为:" srzdo))
  (princ)
)

wujimmy

我也在做这个类似TEXT命今的输入方式.
也碰到这个问题,特别是对 "\r"这个输出的显示特别感冒
因为princ要显示的话,要调用"\r" 或者 "\n"做为结束才到显示出来

minyuan

谢谢！不知如何使用princ才能达到我的目的？

wujimmy

这个是我的,不过还不能用,不过应该快了
[php]
(defun c:tt ()
  (setq ret nil)
  (setq str "")
  (setq strall "")
  (setq prompt-str  "\r输入文本:")
  (princ prompt-str)
  (while (null ret)
    (setq mid (grread))
    (cond
      ((= (car mid) 2)
       (if (= 13 (cadr mid))
         (progn
           (if (= strmid (chr 13))
             (progn (setq ret t))
             (progn ;|新的一行|;
               (setq strall (strcat strall str)
                     str    ""
               )
               (princ "\n")
               (princ prompt-str)
             )
           )
         )
         (if (= 8 (cadr mid))
           (progn
             
             (setq str (strcat(substr str 1 (- (strlen str) 1)) ""))
             (princ "\010")
             ;(princ (strcat  prompt-str str))
             
           )
           (progn
             (setq strmid (chr (cadr mid)))
;;;             (princ "\r")
             (setq str (strcat str strmid))
             (princ strmid)
             (set_tile "prg" str)
           )
         )
       ) ;_if
        ;_if
      ) ;_

    ) ;_cond
  )
  strall
) ;_defun
[/php]