lisp添加文本

gogobin

画图时，需要固定的文字。这是论坛网友分享的，需要的朋友可以拿去改改。

1. (defun c:wz (/ int1 jj wb int2 y0 n)
   
2.   ;别人帮忙改写的代码  
   
3.   (setq int1 (getint "\n输入指定文本数目:"))
   
4.   (if (= int1 nil)
   
5.     (setq int1 1)
   
6.   )
   
7.   (setq jj (getreal "\n 指定文本行间距:"));指定文本行间距
   
8.   (setq wb (getpoint "\n 要写入文本的位置:"))
   
9.   (setq int2 (getstring "\n输入第一行文本:"))
   
10.   (setq y0 (cadr wb))
    
11.   (setq n 1);控制文字输入次数
    
12.   (repeat int1
    
13.     (setq pw (list (car wb)  y0))
    
14.     (command "text" "m"  pw  2.5  0  int2 )
    
15.     (if (and (/= int1 1) (<  n int1)) ;判断文本数目是否大于1与输入文本次数是否小于指定的文本数目，大于1与小于指定文本数目则执行if里面代码
    
16.       (setq int2 (getstring "\n输入文本:"))
    
17.     )
    
18.     (setq n (1+ n))
    
19.     (print y0)
    
20.     (setq y0 (+ y0 jj))
    
21.     (print y0)
    
22.   )          ;end repeat int1
    
23.   (princ)
    
24. )

复制代码