文字中间的数字递增替换

香田里浪人

试一试，是不是这样
(defun c:zdj ()
  (command "cmdecho" "0")
  (setq        ss1  (entsel "请选择:")
        ss   (car ss1)
        xy1  (car (cdr ss1))
        n    1
        LST1 (entget ss)
        name (assoc 0 lst1)
        sz   (atoi (substr (cdr (assoc 1 lst1)) 2 1))
        tc (assoc 8 lst1)
        s40 (assoc 40 lst1)
        s41 (assoc 41 lst1)
        s7 (assoc 7 lst1)
        s72 (assoc 72 lst1)
        s11 (assoc 11 lst1)
        s50 (assoc 50 lst1)
        s73 (assoc 73 lst1)
  )
  (while (setq xy (getpoint xy1 "请点击位置:"))
    (progn
      (setq xsz        (+ sz n)
            xlr        (strcat "第" (rtos xsz 2 0) "张")
      )
      (entMAKE  (LIST name
                      '(100 . "AcDbEntity")
                      tc
                      '(100 . "AcDbText")
                      (cons 10 xy)
                      (cons 1 xlr)
                      s40
                      s41
                      s7
                      s72
                      s11
                      s50
                      s73
                       )
                      )
          (setq  sz  xsz       
                XY1        XY
      )
    )
  )
(princ)
  )

669423907

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=96721

注册

理正里面自带了一个，不错的C:\Documents and Settings\Administrator\桌面\5.gif