[求助]：我的文字打断程序怎么修改

ss1025

在下这几日学lisp学的兴起，便自己试着想编一个文字打断程序。
;;汉字断开
(DEFUN C:hz (/ cold a1 a2 a3 t1        t2 b1 b2 b3 b4 b5 xx x1 y1 tx aa p0 tx1)
  (setq cold (getvar "clayer"))
  (setq a1 (entsel "\n请选择文字:"))
  (setq a1 (car a1))
  (setq a2 (getpoint "\n请选择断开点:"))
  (setq a3 (entget a1))
  (setq b1 (cdr (assoc '0 a3)))                ;文字
  (setq b2 (cdr (assoc '8 a3)))                ;图层
  (setvar "clayer" b2)
  (setq t1 (cdr (assoc '7 a3)))                ;字型
  (setq b3 (assoc '10 a3))                ;坐标
  (setq b4 (cdr (assoc '40 a3)))        ;字高
  (setq b5 (cdr (assoc '50 a3)))        ;角度
  (setq        xx (cdr b3)
        x1 (car xx)
        y1 (cdr xx)
        y1 (car y1)
  )
  (if (= b1 "TEXT")
    (PROGN
      (setq tx (cdr (assoc '1 a3)))        ;文字内容
      (setq t2 (/ (distance xx a2) (* b4 0.7)))   ;问题1
      (setq t3 (* 2 (fix (atof (rtos t2 2 0)))))  ;问题1
      (setq aa (entdel a1))
      (setq p0 (list x1 y1))                                       
      (setq tx1 (substr tx 1 t3))
      (setq tx2 (substr tx t3))                   ;问题2
      (setq x2 (+ (* (* (/ t3 2) b4) 0.7) x1))
      (setq pp0 (list x2 y1))
      (command "text" "s" t1 p0 b4 b5 tx1)
      (command "text" "s" t1 pp0 b4 b5 tx2)
      (command "redraw")
      (setvar "clayer" cold)
    )
  )
)

但是现有两个问题，请哪位高手指点一下啊。
1、问题1处，用距离来控制，显然不合理。一个汉字占两个字符，一个字母或数字占一个字符。但是现在还没想到什么好办法。
2、用substr命令，取后半截汉字的时候，就变成乱码了。
请斑竹指点一下啊。

它山之石

看看晓东工具箱里有这样功能的程序。

ss1025

谢谢楼上的仁兄。不过偶知道晓东工具箱里有，而且偶用的探索者里也有。只是，偶想多学一些东西，故此想向各位高手请教啊。

它山之石

　　1、探索者里的就是晓东工具箱里的，他们合作的。
　　2、闭门造车总是不好的。我的意思是晓东工具箱里的是源码，你先读懂了，也就明白你的问题所在了。你说的问题并不是这么简单的，还有其它你没考虑到的，包括含%%号的等。

ss1025

谢谢仁兄指点，原来是这样，我真没想过要看晓东工具箱里的源码。真是一语惊醒梦中人哪。
这是我第一个试着自己写的程序，以前都是用别人的或者在人家的基础上稍做修改。没想到写一个程序真的是好难。是有很多东西没考虑到。请多多指教。

takeiteasy49

这个得学习学习，编程需要的是巧妙的方法

许健

这个得学习学习，编程需要的是巧妙的方法