xiabin68 发表于 2014-11-8 22:56:01

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

本帖最后由 xiabin68 于 2014-11-8 22:57 编辑

见笑了，各位，，

;;选文字后面加数字后缀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 发表于 2014-11-8 23:35:50

来顶个贴.......

可爱的神爱世人 发表于 2014-11-16 21:28:20

顶下，好像不错的样子

caogis 发表于 2015-8-31 19:04:20

在做坐标轴线时应当很好用
页: [1]
查看完整版本: 好久没有用LISP了，今天整了一个选择文字复制在其它位置自动在后面加数字后缀