求依次在指定插入点顺序输入单行文字的LISP代码

fhcd88

想编一LISP程序，实现如下功能：依次在图内点击，每点击一次后自动在所点击位置输入一串单行文字（高度20），依次输入的文字为序列方式，即第一次点击输入L001，第二次L002，第三次L003……（最大可输入到L999），直至右击鼠标停止。求高手指教，谢谢！

xyp1964

2. (defun c:tt (/ mode p1 tx)
   
3.   (or j (setq j 0))
   
4.   (setq mode t)
   
5.   (while (and mode (setq p1 (getpoint "\n基点<退出>: ")))
   
6.     (setq j  (1+ j)
   
7.           tx (cond ((< j 10) (strcat "L00" (itoa j)))
   
8.                    ((< j 100) (strcat "L0" (itoa j)))
   
9.                    ((< j 1000) (strcat "L" (itoa j)))
   
10.                    (t nil)
    
11.              )
    
12.     )
    
13.     (if        tx
    
14.       (command "text" "j" "mc" p1 20 0 tx)
    
15.       (setq mode nil)
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

(defun c:tt (/ mode p1 tx)<br />   (or j (setq j 0))<br />   (setq mode t)<br />   (while (and mode (setq p1 (getpoint "\n基点<退出>: ")))<br />     (setq j  (1+ j)<br />           tx (cond ((< j 10) (strcat "L00" (itoa j)))<br />                    ((< j 100) (strcat "L0" (itoa j)))<br />                    ((< j 1000) (strcat "L" (itoa j)))<br />                    (t nil)<br />              )<br />     )<br />     (if        tx<br />       (command "text" "j" "mc" p1 20 0 tx)<br />       (setq mode nil)<br />     )<br />   )<br />   (princ)<br /> )

zdqwy19

这种代码太多了，搜索一下编号。

fhcd88

谢谢xyp1964，挺好用的