fhcd88 发表于 2012-12-31 23:13:13

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

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

xyp1964 发表于 2012-12-31 23:13:14

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

zdqwy19 发表于 2013-1-1 08:24:23

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

fhcd88 发表于 2013-1-1 20:13:12

谢谢xyp1964，挺好用的
页: [1]
查看完整版本: 求依次在指定插入点顺序输入单行文字的LISP代码