如何将文字炸开成为图形？
如上，就是让文字成为单独的图元，不再具有文字属性 <P>ExpressTools 菜单里的 "文字分解" 就是的, 命令是 txtexp</P> <P>首先你的软件要完整安装。如果没有就自己加载一个express的文件夹，里面有。</P> <P>咦，办法不错呦，谢谢了。</P><P> </P> <P> </P>
<P>我使用txtexp这个命令，提示说是未知命令。</P>
<P>是我的软件没有安装完整吗？我要怎么加载一个express的文件夹呢？</P> 2006的里面就有 (load "xyp_lib.vlx") ;版本 V.20051204
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
|;
;;;批量炸碎文字变成线
(Defun c:test004 ()
(CMDLA0)
(SetVar "MIRRTEXT" 1)
(setvar "osmode" 0)
(PrinC "\n选择要分解的文字 : ")
(setq ss (ssget '((0 . "TEXT")))
i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt1 (xyp-get-MinMaxPoint s1 1)
pt2 (xyp-get-MinMaxPoint s1 9)
pt(xyp-get-MidPoint pt1 pt2)
pt3 (polar pt (* pi 0.5) 100)
)
(Command "mirror" s1 "" pt pt3 "y")
(command "zoom" "w" pt1 pt2)
(command "wmfout" "TEXTWMF" s1 "" "erase" s1 "")
(command "wmfin" "TEXTWMF" pt "2" "" "")
(setq s1 (EntLast))
(command "mirror" s1 "" pt pt3 "y")
(setq pt0 (xyp-get-MidPoint
(xyp-get-MinMaxPoint s1 1)
(xyp-get-MinMaxPoint s1 9)
)
)
(command "move" s1 "" pt0 pt)
(command "explode" s1 "")
)
(setvar "MIRRTEXT" 0)
(CMDLA1)
) <P>我晕哦！没有的看来想用还要去装啊？唉还好我不怎么需要</P> 加载后怎么运用？ <P>7楼的程序可以按以下方法［手工］完成：</P>
<P>1. 在[文件]菜单中选择[输出为WMF文件] (要炸开的文字要事先写好)</P>
<P>2. 提示选择目标时选择要炸开的文字</P>
<P>3. 在［插入］菜单中选择[插入WinMate文件]，把刚才产生的WMF文件插入到CAD中</P>
<P>4. 炸开它，删除外框</P>
<P> 好了，剩下的就是你要的</P>
页:
[1]
2