将 CAD 文字直接粘贴到 Word 中通常只能显示为图片,无法保持可编辑状态。借助 LISP 插件可将图纸中指定图层的文字批量提取为文本文件,再粘贴到 Word 中编辑。以下为操作步骤。

1. 下载并安装 LISP 插件,打开 CAD 软件,选择“工具— LiSP”,打开编辑器。
2. 点击新建,将以下代码粘贴并保存:

   (defun c:GTEXT()
   (setq la (getstring "\n请输入图层名: "))
   (setq ss (ssget "X" (list (cons 0 "TEXT") (cons 8 la))))
   (setq fi (open "F:\\txtcad.txt" "w"))
   (setq si 0)
   (repeat (sslength ss)
   (setq ct (cdr (assoc 1 (entget (ssname ss si)))))
   (write-line ct fi)
   (setq si (1+ si))
   )
   (close fi)
   )

3. 导入刚刚完成的 LISP 文件,点击加载。
4. 在命令中输入 GTEXT 并回车,输入文字所在的图层名并回车(单行文字的图层名为 TEXT;多行文字则需先将多行文字分解为单行文字)。
5. 在电脑中找到名为 txtcad 的记事本文件,即提取出的文字,将其复制到 Word 中即可进行编辑。

借助 LISP 插件按图层提取文字为文本文件,可实现 CAD 文字批量导入 Word 并保持可编辑状态。