好久没有用LISP了，今天整了一个选择文字复制在其它位置自动在后面加数字后缀

xiabin68

见笑了，各位，，

;;选文字后面加数字后缀xiabin68
(defun c:hk-fz nil
  (setq ent (car (entsel "选择文字:")))
  (if (/= ent nil)
    (progn
      (setq lr (cdr (assoc 1 (entget ent))))
      (setq xy1 (cdr (assoc 10 (entget ent))))
      (setq ll (last (vl-string->list lr)))
      (if (and (<= ll 57) (>= ll 48))
(PROGN
   (setq nn (substr lr 1 (- (strlen lr) 1)))
   (SETQ SZ (atoi (substr lr (strlen lr))))
   )
(PROGN
   (setq nn lr)
   (setq SZ 1)
   )
)
      (while   (setq xy (getpoint xy1  "请点击位置"))
(entmake (list '(0 . "TEXT")
        (CONS 1 (STRCAT NN (RTOS SZ 2 1)))
        (CONS 10 XY)
        (ASSOC 40 (ENTGET ENT))
        )
  )
(setq sz (1+ sz))
)
      )
    (princ "没有选择到文字")
    )
  )

zzyong00

来顶个贴.......

可爱的神爱世人

顶下，好像不错的样子

caogis

在做坐标轴线时应当很好用