[编程申请]：一个重复插字的程序

阿土

斑竹能否伸伸援手?
        本人作图经常要重复的插入大量的单行文字，而且是固定的位置和相同的属性，例如：指定插入点右恻5mm，仿宋0.7，字高为3，左中对齐，倾斜15度等指标。
    请帮帮忙好吗？不胜感激！！！

f5612140

先設定好字型

2. 
   
3. (defun c:txt()
   
4.   (setq pt (getpoint "\nSpecify Start point"))
   
5.   
   
6.   (while pt
   
7.      (setq ttt (getstring "\nEnter text:"))
   
8.      (setq pt (mapcar '+ pt '(3 0)))
   
9.      (command "text" "ml" pt 3 "" ttt )
   
10.      (setq pt (getpoint "\nSpecify Start point:"))
    
11.   )
    
12. )
    

<br /> (defun c:txt()<br />   (setq pt (getpoint "\nSpecify Start point"))<br />   <br />   (while pt<br />      (setq ttt (getstring "\nEnter text:"))<br />      (setq pt (mapcar '+ pt '(3 0)))<br />      (command "text" "ml" pt 3 "" ttt )<br />      (setq pt (getpoint "\nSpecify Start point:"))<br />   )<br /> ) <br />

西门东风

这个程序怎么使用呀？请你解释一下好吗？

阿土

明白了，谢谢~~真的谢谢了！