[求助]：怎么把文字炸开变成线?（完成）

zlh0

急求,在auto里怎么把文字炸开吗?变成线.谢谢

cy956

天正等专业软件里有。
或者可以用命令wmfout出来，不过大小差一半。
或者plot成dxb，再插入。
或者根据字的形定义直接反写。

zxq0220

繁琐的办法：
1、将要炸开的文字或子形输出为WMF文件（使用WMFOUT命令）；
2、插入这个文件；
3、炸开插入的块。
注：上面的方法与TXTEXP.LSP的编程原理相同。

yue.bin

用autocad扩展工具可以

zhugangjie

朋友啊   用wmF格式OUT再IN怎么他是以块的形式呢  根本就没转换的麻 谢谢解释

xshrimp

安装了express后运行命令txtexp

xiachangju

就是ET，一般人在安装的时候容易漏掉

xyp1964

关键步骤：找到文本中心并水平镜像；wmfout、wmfin（2倍），以其中心再镜像，并移回原中心和打碎。

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
14. |;
    
15. 
    
16. ;;;炸碎文字(变成线)
    
17. (Defun c:test ()
    
18.   (CMDLA0)
    
19.   (SetVar "MIRRTEXT" 1)
    
20.   (PrinC "\n要分解的文字行: ")
    
21.   (setq        s1  (car (usel1 0 "TEXT" "TEXT文本"))
    
22.         pt1 (xyp-get-MinMaxPoint s1 0)
    
23.         pt2 (xyp-get-MinMaxPoint s1 1)
    
24.         pt  (xyp-get-MidPoint pt1 pt2)
    
25.         pt3 (polar pt (* pi 0.5) 100)
    
26.   )
    
27.   (setvar "osmode" 0)
    
28.   (Command "mirror" s1 "" pt pt3 "y")
    
29.   (command "zoom" "w" pt1 pt2)
    
30.   (command "wmfout" "TEXTWMF" s1 "" "erase" s1 "")
    
31.   (command "wmfin" "TEXTWMF" pt "2" "" "")
    
32.   (setq s1 (EntLast))
    
33.   (command "mirror" s1 "" pt pt3 "y")
    
34.   (setq        pt1 (xyp-get-MinMaxPoint s1 0)
    
35.         pt2 (xyp-get-MinMaxPoint s1 1)
    
36.         pt0 (xyp-get-MidPoint pt1 pt2)
    
37.   )
    
38.   (command "move" s1 "" pt0 pt)
    
39.   (command "explode" s1 "")
    
40.   (setvar "MIRRTEXT" 0)
    
41.   (CMDLA1)
    
42. )[/FONT]

[FONT=courier new]<br /> (load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;炸碎文字(变成线)<br /> (Defun c:test ()<br />   (CMDLA0)<br />   (SetVar "MIRRTEXT" 1)<br />   (PrinC "\n要分解的文字行: ")<br />   (setq        s1  (car (usel1 0 "TEXT" "TEXT文本"))<br />         pt1 (xyp-get-MinMaxPoint s1 0)<br />         pt2 (xyp-get-MinMaxPoint s1 1)<br />         pt  (xyp-get-MidPoint pt1 pt2)<br />         pt3 (polar pt (* pi 0.5) 100)<br />   )<br />   (setvar "osmode" 0)<br />   (Command "mirror" s1 "" pt pt3 "y")<br />   (command "zoom" "w" pt1 pt2)<br />   (command "wmfout" "TEXTWMF" s1 "" "erase" s1 "")<br />   (command "wmfin" "TEXTWMF" pt "2" "" "")<br />   (setq s1 (EntLast))<br />   (command "mirror" s1 "" pt pt3 "y")<br />   (setq        pt1 (xyp-get-MinMaxPoint s1 0)<br />         pt2 (xyp-get-MinMaxPoint s1 1)<br />         pt0 (xyp-get-MidPoint pt1 pt2)<br />   )<br />   (command "move" s1 "" pt0 pt)<br />   (command "explode" s1 "")<br />   (setvar "MIRRTEXT" 0)<br />   (CMDLA1)<br /> )[/FONT]

xyp1964

功能：批量炸碎文字变成线

2. [FONT=courier new]
   
3. ;;;批量炸碎文字(变成线)
   
4. (Defun c:test ()
   
5.   (CMDLA0)
   
6.   (SetVar "MIRRTEXT" 1)
   
7.   (PrinC "\n选择要分解的文字 : ")
   
8.   (setq        ss (ssget '((0 . "TEXT")))
   
9.         i  -1
   
10.   )
    
11.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.     (setq pt1 (xyp-get-MinMaxPoint s1 0)
    
13.           pt2 (xyp-get-MinMaxPoint s1 1)
    
14.           pt  (xyp-get-MidPoint pt1 pt2)
    
15.           pt3 (polar pt (* pi 0.5) 100)
    
16.     )
    
17.     (setvar "osmode" 0)
    
18.     (Command "mirror" s1 "" pt pt3 "y")
    
19.     (command "zoom" "w" pt1 pt2)
    
20.     (command "wmfout" "TEXTWMF" s1 "" "erase" s1 "")
    
21.     (command "wmfin" "TEXTWMF" pt "2" "" "")
    
22.     (setq s1 (EntLast))
    
23.     (command "mirror" s1 "" pt pt3 "y")
    
24.     (setq pt1 (xyp-get-MinMaxPoint s1 0)
    
25.           pt2 (xyp-get-MinMaxPoint s1 1)
    
26.           pt0 (xyp-get-MidPoint pt1 pt2)
    
27.     )
    
28.     (command "move" s1 "" pt0 pt)
    
29.     (command "explode" s1 "")
    
30.   )
    
31.   (setvar "MIRRTEXT" 0)
    
32.   (CMDLA1)
    
33. )[/FONT]

[FONT=courier new]<br /> ;;;批量炸碎文字(变成线)<br /> (Defun c:test ()<br />   (CMDLA0)<br />   (SetVar "MIRRTEXT" 1)<br />   (PrinC "\n选择要分解的文字 : ")<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt1 (xyp-get-MinMaxPoint s1 0)<br />           pt2 (xyp-get-MinMaxPoint s1 1)<br />           pt  (xyp-get-MidPoint pt1 pt2)<br />           pt3 (polar pt (* pi 0.5) 100)<br />     )<br />     (setvar "osmode" 0)<br />     (Command "mirror" s1 "" pt pt3 "y")<br />     (command "zoom" "w" pt1 pt2)<br />     (command "wmfout" "TEXTWMF" s1 "" "erase" s1 "")<br />     (command "wmfin" "TEXTWMF" pt "2" "" "")<br />     (setq s1 (EntLast))<br />     (command "mirror" s1 "" pt pt3 "y")<br />     (setq pt1 (xyp-get-MinMaxPoint s1 0)<br />           pt2 (xyp-get-MinMaxPoint s1 1)<br />           pt0 (xyp-get-MidPoint pt1 pt2)<br />     )<br />     (command "move" s1 "" pt0 pt)<br />     (command "explode" s1 "")<br />   )<br />   (setvar "MIRRTEXT" 0)<br />   (CMDLA1)<br /> )[/FONT]

ewenhui

文字炸开之后能否变成多段线而不是线段.

白略

我不会编程
要是我就把CAD文件导到3D或CorelDRAW里再按线条导出成DWG文件也可以的

bbo

test对字母没有用

xyp1964

最初由 bbo 发布
[B]test对字母没有用 [/B]

不会吧！你按要求加载了？

1121443108qaz

zhugangjie 发表于 2005-11-7 12:47

我也是这个问题 根本没转接

1121443108qaz

zhugangjie 发表于 2005-11-7 12:47

我也是这个问题