请教 Autocad2002 中如何实现分解文字的功能?

请教 AutoCAD2002 中如何实现分解文字的功能?
我只知道2000中的Express有这个功能.

一樣是指令 TXTEXP

可是我输入这个指令,回答是未知指令.

(Defun C:TextB (/ lvl lul lvp lvs lss ViewPL)
       (SetQ lvs (GetVar "viewsize")
             lss (GetVar "screensize")
       )
       (SetVar "cmdecho" 0)
       (Defun ViewPL ( / vi vw vh vc)
              (setq vi (* lvs (/ (Car lss) (Cadr lss)))
                    vc (GetVar "viewctr")
                    vw (list (- (car vc)  (* 0.5 vi))
                             (- (cadr vc) (* 0.5 lvs))
                       )
                    vh (list (+ (car vc)  (* 0.5 vi))
                             (+ (cadr vc) (* 0.5 lvs))
                       )
              )
              (List vw vh)
       )
       (PrinC "\n要分解的文字行: ")
       (SetQ ltl (SSGet)
             lvl (ViewPL)
             lul (List (Caar lvl) (Cadadr lvl))
             lvp (GetVar "viewctr")
       )
       (Command "mirror" ltl "" lvp "@0,1" "y"  
                "wmfout" "textb" ltl ""
                "erase" ltl ""
                "wmfin" "textb" lul "2" "" ""
                "mirror" (EntLast) "" lvp "@0,1" "y"
                "explode" (EntLast)  
                "erase" (ssget "p") "R" "W"
                        (polar (car lvl) (* 0.25 Pi)
                               (Max (Abs (/ lvs (Cadr lss)))  
                                    (Abs (/ (* lvs  
                                               (/ (Car lss) (Cadr lss))
                                            )  
                                            (Car lss)
                                         )
                                     )
                               )
                        )  
                        (cadr lvl)
                    ""
       )
       (SetVar "cmdecho" 1)(PrinC)
)

因你的acad2002沒有Express，找一下以前的帖子，裡頭有如何將
acad2000的Express移轉至acad2002的方法。

多谢大虾