[求助]：重复写文本怎么实现

denixie

您好！！
由于工作中经常会一次次地重复对某些部件的文字标注。甚觉麻烦。请问在autoCAD中，如何能直接调入预先写好的文字到图中。最好可以做成多行文字而不是以块的形式插入图中。
thx

sdwy19691229

文字书写功能
(defun c:T01(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))
        (command "text" "s" "仿宋体" pt1 pause "0" "导柱") (print))
(defun c:T02(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))
         (command "text" "s" "仿宋体" pt1 pause "0" "管位") (print))
(defun c:T03(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))
         (command "text" "s" "仿宋体" pt1 pause "0" "边钉") (print))
(defun c:T04(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))
         (command "text" "s" "仿宋体" pt1 pause "0" "杯头") (print))
(defun c:T05(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))
         (command "text" "s" "仿宋体" pt1 pause "0" "螺纹") (print))
(defun c:T06(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))
         (command "text" "s" "仿宋体" pt1 pause "0" "浮钉") (print))
(defun c:T07(/ pt1 h) (SETQ pt1 (getpoint "\n输入文字起点:"))
         (command "text" "s" "仿宋体" pt1 pause "0" "顶针") (print))

denixie

谢谢你。不过不好意思。
我看不懂。能说明白些吗。呵呵。。谢谢。。。

lt_zzy

最初由 denixie 发布
[B]谢谢你。不过不好意思。
我看不懂。能说明白些吗。呵呵。。谢谢。。。 [/B]

上面是楼主给你写得七个LSP程序。你可以将上面的内容放在一个文件里，记得文件的扩展名必须为lsp，然后加载。输入T01，T02……T06等命令，上面的文字就可以写到你的CAD图里，那上面的文字是可以进行修改的，并不是全部的，是偶数行的最后一个引号内的文字可以进行修改，引号不能少。

其实你完全不需要这样做，你可以直接用mtext命令就行。上面就有导入文本文件的功能。