[求助]：出学lisp,请教一个问题

brainstorm

出学lisp,请教一个问题，下面一段代码，当中西文混排的时候，由于一个中文字是占两个字符的位置，所以当最后一个字是中文是，如果删除的字数为1时，就会出现问号，如何解决
;;;---------删除m个后缀------------------
(defun zgx_delsuffix (m _text)
(setq a (substr _text 1 (- (strlen _text) m)))
)
;;;;-----------在给定文字后面增加序号，序号按照1递增--------------
(defun c:ddd(/ endata i textvalue enttext n k m)
(setq i (getreal"\n请输入起始编号<默认1>:"))
(if (null i)
    (setq i 1)
)
(setq n (getint "\n请输入保留小数位数<默认0>:"))
(if (null n)
    (setq n 0)
)
(setq m (getint "\n请输入删除后缀数量<默认0>:"))
(if (null m)
    (setq m 0)
)
(setq k 1)
(while (and
         (setq enttext (entsel"\n请选择文字："))
         (= "TEXT" (cdr (assoc 0 (entget (car enttext)))))
       )
       (if (< i 10)
       (setq textvalue
             (cons 1 (strcat (zgx_delsuffix m (cdr (assoc 1 (entget (car enttext))))) "0" (rtos i 2 n)))
       )
       (setq textvalue
             (cons 1 (strcat (zgx_delsuffix m (cdr (assoc 1 (entget (car enttext))))) (rtos i 2 n))))
       )
       (setq endata (entget (car enttext)))
       (setq endata (subst textvalue  (assoc 1 endata) endata))
       (entmod endata)
       (setq i (+ i 1))
       (setq k (+ k 1))
       (princ)
)
(princ (strcat "\n共" (rtos (- k 1)) "个文字修改完毕！"))
(princ)
)
(princ "\n以ddd启动命令！")

Underway

(setq enttext (entsel"\n请选择文字："))

能提供一些 '选择文字'  的样本吗?

brainstorm

能提供一些 '选择文字' 的样本
上面的文字就可以阿，只要是中文就不行