[讨论]：如何将单行文字炸成一个一个的单的文字。

zhgq

请问如何将单行文字炸成一个一个的单的文字。

wys9870

这个好像有一个命令的，但是什么什么我忘记了，你查查帮助文件就可以了

gccghl

lisp里有关于文字处理的插件，查一下，可以的，我用过。

mr cool

试试下面这个LSP程序(加载后使用命令TTB) 这是别人做的我收集过来的,推荐给楼主：
;Break a text string
(defun c:TTB(/ en1 ang height str len ch index pos strnew entnew strold )
   (setvar "cmdecho" 0)
   (setvar "aunits" 3)
   (prompt "\n***select a text string: ")
   (setq en1 (entget (car (entsel))))
   (if (= "TEXT" (cdr (assoc 0 en1))) (progn
      (setq height (cdr (assoc 40 en1)))
      (setq ang (cdr (assoc 50 en1)))
      (setq str (cdr (assoc 1 en1)))
      (setq len (strlen str))
      (setq en1 (subst (cons 1 "") (assoc 1 en1) en1))
      (entmod en1)
      (command "_.UCS" "world")
      (command "_.UCS" "z" ang)
      (setvar "blipmode" 0)
      (setq index 1  pos 1)
      (while (<= index len)
         (setq ch (substr str index 1))
         (if (> (ascii ch) 127) (progn
            (setq strnew (substr str index 2))
            (command "_.COPY" (cdr (car en1)) ""
                     (list 0 0) (list (* pos height) 0))
            (setq entnew (entget (entlast)))
            (setq strold (assoc 1 entnew))
            (setq entnew (subst (cons 1 strnew) strold entnew))
            (entmod entnew)
            (setq index (+ index 2))
         )(progn
            (setq strnew (substr str index 1))
            (command "_.COPY" (cdr (car en1)) ""
                     (list 0 0) (list (* pos height) 0))
            (setq entnew (entget (entlast)))
            (setq strold (assoc 1 entnew))
            (setq entnew (subst (cons 1 strnew) strold entnew))
            (entmod entnew)
            (setq index (1+ index))
         ))
         (setq pos (1+ pos))
      )
      (command "_.UCS" "p")
      (command "_.UCS" "p")
      (setvar "blipmode" 1)
      (entdel (cdr (car en1)))
   )(princ "Select a text please."))
   (setvar "aunits" 0)
   (princ)
)