iCAx开思网

标题: 请教 Autocad2002 中如何实现分解文字的功能? [打印本页]

作者: jack3906 时间: 2003-5-8 15:34
标题: 请教 Autocad2002 中如何实现分解文字的功能?
请教 Autocad2002 中如何实现分解文字的功能?
我只知道2000中的Express有这个功能.

作者: Joseph Lin 时间: 2003-5-8 16:56
一樣是指令 TXTEXP

作者: jack3906 时间: 2003-5-12 14:00
可是我输入这个指令,回答是未知指令.

作者: 陈伯雄 时间: 2003-5-12 15:53
(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)
)

作者: Joseph Lin 时间: 2003-5-12 16:42
因你的acad2002沒有Express，找一下以前的帖子，裡頭有如何將
acad2000的Express移轉至acad2002的方法。

作者: jack3906 时间: 2003-5-14 16:53
多谢大虾

欢迎光临 iCAx开思网 (https://www.icax.org/)