Question

CAD 的文字怎么复制到word 或者 txt文本里？

做资料的时候需要CAD图纸上 集中标注的文字，这些文字怎么复制到word 或者 txt文本里呢？大神帮帮忙！！！！

Answer 1

1、首先，通过计算机辅助设计软件打开要复制的内容，按住“CTRL-C”复制内容。  

2、复制后，将窗口切换到WORD，右键单击鼠标，单击“特殊粘贴”，然后选择windwos元文件。  

3、这样，计算机辅助设计文件的内容将被复制到word文档中。  

4、然后单击此正面图片和文本，使图片和文本处于编辑状态，选择并设置图片格式内的格式，然后单击“浮动在文本上方”。  

5、然后再次选择图形，右键单击“合并”和“未合并”。  

6、这样，可以将计算机辅助设计中的文本复制到word文档中，并在以后进行编辑。

Answer 2

解决这个问题需要的工具/材料：电脑、CAD软件。

把CAD的文字复制到word的方法如下：

1、首先打开电脑，并点击打开需要处理的图形，摁Ctrl+C进行复制。

2、然后在Word中把粘贴的位置放在光标并点击右键，在弹出的页面中选择“粘贴”。

3、接着点击图片，使用图片菜单栏的“裁剪”把图形空白区域剪掉。

4、然后再调整长宽尺寸并对图形进行缩放。

5、最后使用右键单击图形，弹出在弹出的对话框中选择“AutoCAD Drawing 对象”- “Edit”，进入CAD环境进行编辑，这样把CAD的文字复制到word的问题就解决了。

Answer 3

(defun C:WZ ( / &kw n L ff &kw1 %k %k1)
 (setvar "cmdecho" 0)                                      ;;关闭变量
 (setvar "blipmode" 0)                                     ;;关闭控制点
 (setq n 0)
 (setq %k1 nil)
 (princ "\n请选择文字")
 (setq &kw (ssget (list (cons 0 "TEXT"))))                 ;;选择文字
 (if (/= &kw nil)
  (progn
   (setq L (sslength &kw))
   (setq ff (open "d://文字到Word.doc" "w"));;
   (repeat L
    (setq %k1 nil)
    (setq &kw1 (entget (ssname &kw n)))
    (if (> L (+ n 1))
     (progn
      (setq %k1 (entget (ssname &kw (+ 1 n))))
      (setq %k1 (cdr (assoc 1 %k1)))
      (setq %k1 (substr %k1 1 1))
      (if (or (/= %k1 "G") (/= %k1 "D") (/= %k1 "?
?
")) (setq %k1 nil) )
      (if (or (= %k1 "G") (= %k1 "D") (= %k1 "?
?
")) (setq %k1 "T") )
     )
    )
    (setq &kw1 (cdr (assoc 1 &kw1)))
    (setq %k (substr &kw1 (strlen &kw1) 1))
    (if (/= %k1 nil)
     (progn
      (princ &kw1 ff)
      (princ "" ff)
     )
    )
    (if (= %k1 nil)
     (progn
      (if (and (or (= %k ".") (= %k ",") (= %k " ") (= %k "、")) (/= (+ n 1) L))
       (progn
        (princ &kw1 ff)
        (princ "" ff)
       )
      )
      (if (or (and (/= %k ".") (/= %k ",") (/= %k " ") (/= %k "、")) (= (+ n 1) L))
       (progn
        (princ &kw1 ff)
        (princ "\n" ff)
       )
      )
     )
    )
    (setq n (+ n 1))
   )
   (close ff)
  )
 )
 (prin1)
)

 按顺序选择文字，否则会排序不准确

追问

什么了？

追答

复制到记事本，以（.lsp）后缀命名，打开AutoCAD加载autoLISP，就可以使用，快捷键命令(WZ)，文字内容在D盘（文字到Word.doc）文件里面。

追问

现在改了后缀名成这样了，怎么加载不知道啊？

你好，出来的十乱码啊，你看：
7%%132255/2
3%%13222
L18(4)3%%13220
3%%13220
3%%13222
3%%13222
2%%13216
%%1328@200(2)
L18(4)200X400
3%%13222
2%%13216;3%%13218
%%1328@200(2)
L17(3)200X400
2%%13216;3%%13218
%%1328@200(2)
L16(1)200X400

追答

这个不是乱码，是本来的文字，点击文字，右键，属性，查看文字内容，就是这个内容，钢筋符号就是这样表示的。%%130表示1级钢筋；%%131表示2级钢筋；%%132表示3级钢筋。

追问

全部选中后点击右键吗？出来的没有属性啊...

追答

单个文字选择。

看清楚，%%132表示的符号

追问

我需要这个图纸里的钢筋标记文字，现在按这个程序不是导出来到word“文字到Word“了吗，但是这不是这样显示的吗？我怎么处理呢？我需要的是这些文字啊
”

追答

(defun C:WZ ( / &kw n L cc k nn ff &kw1 %k %k1)
 (setvar "cmdecho" 0)                      ;;关闭变量
 (setvar "blipmode" 0)                     ;;关闭控制点
 (setq n 0)
 (setq cc '())
 (princ "\n请选择文字")
 (setq &kw (ssget (list (cons 0 "TEXT")))) ;;选择文字
 (if (/= &kw nil)
  (progn
   (setq ff (open "d://文字到TXT.txt" "w"));;
   (repeat (sslength &kw)
    (setq &kw1 (entget (ssname &kw n)))
    (setq n (+ n 1))
    (setq L 1)
    (setq i 0)
    (setq nn 0)
    (setq k 0)
    (setq %k1 (cdr (assoc 1 &kw1)))
    (if (/= (length cc) 0)
     (progn
      (setq %k (nth nn cc))
      (setq nn (+ nn 1))
      (if (= %k1 %k) (setq k (+ k 1)) )
     )
    )
    (repeat (strlen %k1)
     (setq %k (substr %k1 L 1))
     (setq L (+ L 1))
     (if (and (= i 0) (= k 0) (or (= %k "%") (= %k "/")))
     ;;钢筋符号不重复的话就写入记事本
      (progn
       (princ %k1 ff)
       (princ "\n" ff)
       (setq cc (cons %k1 cc))
       (setq i (+ i 1))
      )
     )
    )
   )
   (close ff)
  )
 )
 (prin1)
)
(prompt "\n《C:WZ》文字写入TXT")
(prin1)

追问

G4%%13212
4%%13222
%%13210@100/200(4)

还是这样啊，就是这个显示问题....

追答

1. 打开记事本用替换的方法替换；AutoCAD里面的符号你可以打出来的话，也可以替换，如果一定要那个符号的话，就用他们的那个粘贴方法。把图片粘贴到里面（注意AutoCAD不识别中文，你的钢筋符号粘贴到AutoCAD会正常显示你的符号的。）还有什么要求一次说清楚。

2. 如果想要在word里面打出钢筋符号的话，百度一下找到方法。自己造一个字体解决。

3. AutoCAD里面的钢筋符号就是这样表示的，所以你找错方向了。
   

Answer 4

双击文字，复制文字。然后黏贴就可以了，注意cad里的特殊符合及输入方法不同的地方要做相应编辑。

Answer 5

双击cad文字，然后全选，然后右键复制或者按ctrl+v，然后在word中粘贴即可