[求助]还是自动编号的问题

chupj

高手帮下

不是递增复制

而是选定尾数带数字的单行文字自动+1

每选定一次尾数就能自动+1

yxp

;;用我的这个程序试试，选定文本后输入 +1 即可。

;;四则运算都支持，甚至支持平方和根号的运行。

(defun C:tadd ( / sa k ss str yusf n shzi h hh)
 (princ "\n 选择所有文字:")
 (setq ss (ssget  '((0 . "text")))
      str (getstring "\n 输入四则运算及数值:")
     yusf (substr str 1 1)
     shzi (atof (substr str 2))
        n (sslength ss) k 0 )
 (while (< k n)
      (setq names (ssname ss k)
               sa (entget names)
                h (assoc '1 sa)
        hh (atof(cdr h)))
        (if (= yusf "+")(setq  str1 (rtos (+ hh shzi) 2)))
        (if (= yusf "-")(setq  str1 (rtos (- hh shzi) 2)))
        (if (= yusf "*")(setq  str1 (rtos (* hh shzi) 2)))
        (if (= yusf "/")(setq  str1 (rtos (/ hh shzi) 2)))
        (if (= yusf "^")(setq  str1 (rtos (expt hh shzi) 2)))
 (setq h1 (cons 1 str1))
        (setq sa (subst h1 h sa))
        (entmod sa)
        (setq k (+ k 1))
 )(princ)
)

chupj

貌似楼上的还是不行啊

整个都成数字了

我只要变动最后一位~~~~~

而且比较麻烦。。。。。。。。。

AMTONNY

三楼的老兄，偶和你在同一个网吧哟，在66号机上，21：34