导入文本,很有用的插件

香远益清

导入文本,很有用的插件

煮茗

我把文件内容贴出来：

2. CAD中如何导入导出文本？(2012-10-10 17:02:30)转载▼标签： cadcad教程cad使用技巧文字导出文字 分类： CAD使用技巧  
   
3. 在使用CAD绘图软件进行工作时，有时需要把用文字编辑器写好的段落文字插入到图形中，并用CAD的文字编辑命令进行修改；有时也需要把图形中已有的文字输出到文件中，以便用文字编辑器进行处理。CAD中并没有直接提供关于文本插入和文本输出的命令，遇到这样的问题该怎么办？通过剪贴板进行OLE方式的复制与粘贴是无法实现上述要求的。下面介绍的方法能够解决在CAD与文字编辑器之间进行纯文本的导入和导出的问题。
   
4. 
   
5. 
   
6. 　　1. 导入文本
   
7. 
   
8. 
   
9. 　　虽然CAD中没有提供插入文本的命令，但是利用多行文字编辑Mtext可以实现文本插入。在Mtext的对话框中右键菜单中有“输入文字”的功能，可以选择磁盘上的“.txt”、“.rtf”格式的文件进行插入，注意插入文件大小不得超过16KB，这显得美中不足。还有一种比较麻烦的方法就是利用文字编辑软件先打开文本，然后在输入单行文字或多行文字的时候将文字内容复制粘贴到CAD中。CAD还可以将默认的文字编辑器设置为记事本或WORD，设置方法如下：
   
10. 
    
11. 1、  在选项对话框中设置。输入OP命令，打开选项对话框，在“文件”选项卡中找到文本编辑器应用程序，可以浏览设置成记事本、WORD的执行文件。
    
12. 
    
13. 2、  直接输入mtexted命令，回车，输入notepad，可以将编辑器设置成记事本，如果想设置回来，输入mtexted，回车，输入“.”，回车，就可以回复为CAD默认的编辑器。
    
14. 
    
15. 如果要导入文本，无论是粘贴、插入，实际上都不太复杂，改变编辑器一般人很少用。
    
16. 
    
17. 
    
18. 
    
19. 　　2. 导出文本
    
20. 
    
21. 如果仅有少量文字需要导出，那么在单行和多行文字的编辑框中，选择文字进行复制，然后粘贴到文字编辑器中即可。但是如果图纸中有大量散落的文字需要导出，上述方法就不太适用了。下面给大家介绍两个在网上看到的小程序，可以快速将CAD中的单行文字输出为文本文件（*.csv），这个文件用记事本或EXCEL都可以打开。
    
22. 
    
23. A、选择文字输出
    
24. 
    
25. 可以框选文字进行输出，自动将文字保存为*.csv。
    
26. (defun c:exx ( / &ss %fir ~fir @tex #si #sn &tex %lay %tex @cl %ctx )
    
27. 
    
28.   (vl-load-com) (princ "\n请选择要输出的文字对象")
    
29. 
    
30.   (if (setq &ss (ssget (list (cons 0 "TEXT"))))
    
31. 
    
32.    (progn
    
33. 
    
34.     (setq %fir (strcat "C:\" (vl-filename-base (getvar "dwgname")) ".csv") ~fir (open %fir "w"))
    
35. 
    
36.     (repeat (setq @tex '() #si 0 #sn (sslength &ss))
    
37. 
    
38.      (setq &tex (vlax-ename->vla-object (ssname &ss #si)) #si (1+ #si))
    
39. 
    
40.      (setq %lay (vla-get-layer &tex) %tex (vla-get-textstring &tex))
    
41. 
    
42.      (if (setq @cl (assoc %lay @tex))
    
43. 
    
44.       (setq @tex (subst (append @cl (list %tex)) @cl @tex))
    
45. 
    
46.       (setq @tex (cons (list %lay %tex) @tex))
    
47. 
    
48.      )
    
49. 
    
50.     )
    
51. 
    
52.     (setq @tex (vl-sort @tex (function (lambda (a b) (> (length a) (length b))))))
    
53. 
    
54.     (setq #si 0 #sn (length (car @tex)))
    
55. 
    
56.     (setq @tex (vl-sort @tex (function (lambda (a b) (< (car a) (car b))))))
    
57. 
    
58.     (repeat #sn
    
59. 
    
60.      (setq %tex "")
    
61. 
    
62.      (foreach @tx @tex
    
63. 
    
64.       (if (null (setq %ctx (nth #si @tx))) (setq %ctx "") )
    
65. 
    
66.       (if (/= %tex "")
    
67. 
    
68.        (setq %tex (strcat %tex "," %ctx))
    
69. 
    
70.        (setq %tex %ctx)
    
71. 
    
72.       )
    
73. 
    
74.      )
    
75. 
    
76.      (write-line %tex ~fir) (setq #si (1+ #si))
    
77. 
    
78.     )
    
79. 
    
80.     (close ~fir) (vlax-release-object &tex)
    
81. 
    
82.     (princ (strcat "\n成功输出 " (itoa (sslength &ss)) "个文字输出到 " %fir " 中."))
    
83. 
    
84.    )
    
85. 
    
86.    (princ "\n未选择文字对象,退出.")
    
87. 
    
88.   )
    
89. 
    
90.   (princ)
    
91. 
    
92. )
    
93. 
    
94. 将上面代码复制到记事本中，另存为exx.lsp，在CAD中输入AP命令，加载exx.lsp，加载成功后，在命令行输入EXX，回车，在图中框选要输出的单行文字即可。
    
95. 
    
96. B、输出同图层文字
    
97. 
    
98. 可以选择图层上的一个单行文字，就可以将此图层上所有单行文字都输出为一个*.csv文件。
    
99. (defun c:ecx ( / &tex &ss %fir ~fir %lay #si #sn )
    
100. 
     
101.   (if (null vlax-dump-object) (vl-load-com) )
     
102. 
     
103.   (if (setq &tex (entsel "\n请选择要输出图层的文字对象: "))
     
104. 
     
105.    (if (= (vla-get-objectname (setq &tex (vlax-ename->vla-object (car &tex)))) "AcDbText")
     
106. 
     
107.     (progn
     
108. 
     
109.      (setq %fir (strcat "C:\" (vl-filename-base (getvar "dwgname")) ".csv") ~fir (open %fir "w"))
     
110. 
     
111.      (setq %lay (vla-get-layer &tex) &ss (ssget "X" (list (cons 0 "TEXT") (cons 8 %lay))))
     
112. 
     
113.      (repeat (setq #si 0 #sn (sslength &ss))
     
114. 
     
115.       (write-line (vla-get-textstring (vlax-ename->vla-object (ssname &ss #si))) ~fir)
     
116. 
     
117.       (setq #si (1+ #si))
     
118. 
     
119.      )
     
120. 
     
121.      (close ~fir) (vlax-release-object &tex)
     
122. 
     
123.      (princ (strcat "\n已输出图层 [" %lay "]中的 " (itoa #sn) " 个文字到文件 " %fir "中."))
     
124. 
     
125.     )
     
126. 
     
127.     (princ "\n选择的不是文字对象.")
     
128. 
     
129.    )
     
130. 
     
131.    (princ "\n未选择对象.")
     
132. 
     
133.   )
     
134. 
     
135.   (princ)
     
136. 
     
137. )
     
138. 
     
139. 将上面代码复制到记事本中，另存为ecx.lsp，在CAD中输入AP命令，加载ecx.lsp，加载成功后，在命令行输入EcX，回车，在图中点取一个要输出图层上的单行文字即可。
     
140. 
     
141. 上面两个程序，不仅AutoCAD可以用，在浩辰CAD这样的国产CAD中也一样可以运行。
     
142. 
     

CAD中如何导入导出文本？(2012-10-10 17:02:30)转载▼标签： cadcad教程cad使用技巧文字导出文字 分类： CAD使用技巧  <br /> 在使用CAD绘图软件进行工作时，有时需要把用文字编辑器写好的段落文字插入到图形中，并用CAD的文字编辑命令进行修改；有时也需要把图形中已有的文字输出到文件中，以便用文字编辑器进行处理。CAD中并没有直接提供关于文本插入和文本输出的命令，遇到这样的问题该怎么办？通过剪贴板进行OLE方式的复制与粘贴是无法实现上述要求的。下面介绍的方法能够解决在CAD与文字编辑器之间进行纯文本的导入和导出的问题。<br /> <br /> <br /> 　　1. 导入文本<br /> <br /> <br /> 　　虽然CAD中没有提供插入文本的命令，但是利用多行文字编辑Mtext可以实现文本插入。在Mtext的对话框中右键菜单中有“输入文字”的功能，可以选择磁盘上的“.txt”、“.rtf”格式的文件进行插入，注意插入文件大小不得超过16KB，这显得美中不足。还有一种比较麻烦的方法就是利用文字编辑软件先打开文本，然后在输入单行文字或多行文字的时候将文字内容复制粘贴到CAD中。CAD还可以将默认的文字编辑器设置为记事本或WORD，设置方法如下：<br /> <br /> 1、  在选项对话框中设置。输入OP命令，打开选项对话框，在“文件”选项卡中找到文本编辑器应用程序，可以浏览设置成记事本、WORD的执行文件。<br /> <br /> 2、  直接输入mtexted命令，回车，输入notepad，可以将编辑器设置成记事本，如果想设置回来，输入mtexted，回车，输入“.”，回车，就可以回复为CAD默认的编辑器。<br /> <br /> 如果要导入文本，无论是粘贴、插入，实际上都不太复杂，改变编辑器一般人很少用。<br /> <br /> <br /> <br /> 　　2. 导出文本<br /> <br /> 如果仅有少量文字需要导出，那么在单行和多行文字的编辑框中，选择文字进行复制，然后粘贴到文字编辑器中即可。但是如果图纸中有大量散落的文字需要导出，上述方法就不太适用了。下面给大家介绍两个在网上看到的小程序，可以快速将CAD中的单行文字输出为文本文件（*.csv），这个文件用记事本或EXCEL都可以打开。<br /> <br /> A、选择文字输出<br /> <br /> 可以框选文字进行输出，自动将文字保存为*.csv。<br /> (defun c:exx ( / &ss %fir ~fir @tex #si #sn &tex %lay %tex @cl %ctx )<br /> <br />   (vl-load-com) (princ "\n请选择要输出的文字对象")<br /> <br />   (if (setq &ss (ssget (list (cons 0 "TEXT"))))<br /> <br />    (progn<br /> <br />     (setq %fir (strcat "C:\" (vl-filename-base (getvar "dwgname")) ".csv") ~fir (open %fir "w"))<br /> <br />     (repeat (setq @tex '() #si 0 #sn (sslength &ss))<br /> <br />      (setq &tex (vlax-ename->vla-object (ssname &ss #si)) #si (1+ #si))<br /> <br />      (setq %lay (vla-get-layer &tex) %tex (vla-get-textstring &tex))<br /> <br />      (if (setq @cl (assoc %lay @tex))<br /> <br />       (setq @tex (subst (append @cl (list %tex)) @cl @tex))<br /> <br />       (setq @tex (cons (list %lay %tex) @tex))<br /> <br />      )<br /> <br />     )<br /> <br />     (setq @tex (vl-sort @tex (function (lambda (a b) (> (length a) (length b))))))<br /> <br />     (setq #si 0 #sn (length (car @tex)))<br /> <br />     (setq @tex (vl-sort @tex (function (lambda (a b) (< (car a) (car b))))))<br /> <br />     (repeat #sn<br /> <br />      (setq %tex "")<br /> <br />      (foreach @tx @tex<br /> <br />       (if (null (setq %ctx (nth #si @tx))) (setq %ctx "") )<br /> <br />       (if (/= %tex "")<br /> <br />        (setq %tex (strcat %tex "," %ctx))<br /> <br />        (setq %tex %ctx)<br /> <br />       )<br /> <br />      )<br /> <br />      (write-line %tex ~fir) (setq #si (1+ #si))<br /> <br />     )<br /> <br />     (close ~fir) (vlax-release-object &tex)<br /> <br />     (princ (strcat "\n成功输出 " (itoa (sslength &ss)) "个文字输出到 " %fir " 中."))<br /> <br />    )<br /> <br />    (princ "\n未选择文字对象,退出.")<br /> <br />   )<br /> <br />   (princ)<br /> <br /> )<br /> <br /> 将上面代码复制到记事本中，另存为exx.lsp，在CAD中输入AP命令，加载exx.lsp，加载成功后，在命令行输入EXX，回车，在图中框选要输出的单行文字即可。<br /> <br /> B、输出同图层文字<br /> <br /> 可以选择图层上的一个单行文字，就可以将此图层上所有单行文字都输出为一个*.csv文件。<br /> (defun c:ecx ( / &tex &ss %fir ~fir %lay #si #sn )<br /> <br />   (if (null vlax-dump-object) (vl-load-com) )<br /> <br />   (if (setq &tex (entsel "\n请选择要输出图层的文字对象: "))<br /> <br />    (if (= (vla-get-objectname (setq &tex (vlax-ename->vla-object (car &tex)))) "AcDbText")<br /> <br />     (progn<br /> <br />      (setq %fir (strcat "C:\" (vl-filename-base (getvar "dwgname")) ".csv") ~fir (open %fir "w"))<br /> <br />      (setq %lay (vla-get-layer &tex) &ss (ssget "X" (list (cons 0 "TEXT") (cons 8 %lay))))<br /> <br />      (repeat (setq #si 0 #sn (sslength &ss))<br /> <br />       (write-line (vla-get-textstring (vlax-ename->vla-object (ssname &ss #si))) ~fir)<br /> <br />       (setq #si (1+ #si))<br /> <br />      )<br /> <br />      (close ~fir) (vlax-release-object &tex)<br /> <br />      (princ (strcat "\n已输出图层 [" %lay "]中的 " (itoa #sn) " 个文字到文件 " %fir "中."))<br /> <br />     )<br /> <br />     (princ "\n选择的不是文字对象.")<br /> <br />    )<br /> <br />    (princ "\n未选择对象.")<br /> <br />   )<br /> <br />   (princ)<br /> <br /> )<br /> <br /> 将上面代码复制到记事本中，另存为ecx.lsp，在CAD中输入AP命令，加载ecx.lsp，加载成功后，在命令行输入EcX，回车，在图中点取一个要输出图层上的单行文字即可。<br /> <br /> 上面两个程序，不仅AutoCAD可以用，在浩辰CAD这样的国产CAD中也一样可以运行。<br /> <br />

664571221

是啥用的啊大神

wyy81061

试了下竟然出错了

w379106181

感谢大神分享

tangweinbs

煮茗 发表于 2024-12-20 10:06
我把文件内容贴出来：

支持一下，感谢分享

wfg155

可以批量导出文本吗？跟踪一下。感谢分享。

gf123

谢谢分享。。。