如何拉伸文字为立体字
[ 2009-7-4 | By: cad-cam ]
如何拉伸文字为立体字
如何拉伸文字为立体字
请问如何拉伸文字为立体字
* 将文字炸开就可以了。
* 同意！用绘图工具描出字形，然后面域，再拉伸,也可以！
* 三维图形中是不能直接输入三维字体。
可按下面图a、图b通过平面文字输入（字体可自选）、爆炸字体、（实体）拉伸后就会作出如图的三维文字！！！
{:em26}{:em26}{:em26}
* 如果没有完全安装AUTOCAD的话，就没有EXPRESS工具，，
所以最主要的是完全安装CAD，再在EXPRESS工具把文字工具条拿出来，，这样就可以用文本爆炸了，，彭兄说得对，，
* 分解文字的程序：
(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 "
要分解的文字行: ")
(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)
)
* 放到那里去啊
* 谢些各位仁兄的指教，文字的炸开命令是否是专门的，我用explode炸开后文字成了问号。（我的cad中没有express菜单）
*
QUOTE:下面引用由azhenazhen在2003-8-9 15:59:26发表的内容：
谢些各位仁兄的指教，文字的炸开命令是否是专门的，我用explode炸开后文字成了问号。（我的cad中没有express菜单）
如果没有完全安装AUTOCAD的话，就没有EXPRESS工具，，
所以最主要的是完全安装CAD，再在EXPRESS工具把文字工具条拿出来，，这样就可以用文本爆炸了，，彭兄说得对，，
重装，，，
* 多谢各位，问题解决啦{:em2}
*
发表评论：
昵称：标题：
输入您的评论：(不支持HTML标签)
段首缩进两个汉字:
