自动编号

linshiyin2

2. (defun C:xgxh ( / be h h1 hh j k lx n names sa shzi ss str str1 tc xh ys yusf zg)
   
3.   (initget 1)
   
4.   (setq be (entsel "\n选取要修改的序号:")
   
5.   be (car be)
   
6.   be (entget be);获取数据
   
7.   lx (assoc '0 be);对象类型
   
8.   tc (assoc '8 be);所在图层
   
9.   xh (atof (cdr (assoc '1 be)));序号
   
10.   ys (assoc '62 be);颜色
    
11.   zg (assoc '40 be);字高
    
12.   )
    
13.   (if ys
    
14.     (setq ss (ssget "x" (list lx tc zg ys)))
    
15.     (setq ss (ssget "x" (list lx tc zg )))
    
16.     )
    
17.   (setq str (getstring "\n 输入四则运算及数值<默认+1>:"))
    
18.   (if (= str "")
    
19.     (setq str "+1")
    
20.     )
    
21. (setq yusf (substr str 1 1)
    
22.        shzi (atof (substr str 2))
    
23.        n (sslength ss)
    
24.        k 0
    
25.        j 0)
    
26. (while (< k n)
    
27.    (setq names (ssname ss k)
    
28.       sa (entget names)
    
29.        h (assoc '1 sa)
    
30.       hh (atof(cdr h));对象序号
    
31.       )
    
32.    (if (>= hh xh)
    
33.      (progn
    
34.        (if (= yusf "+")(setq  str1 (rtos (+ hh shzi) 2)))
    
35.        (if (= yusf "-")(setq  str1 (rtos (- hh shzi) 2)))
    
36.        (if (= yusf "*")(setq  str1 (rtos (* hh shzi) 2)))
    
37.        (if (= yusf "/")(setq  str1 (rtos (/ hh shzi) 2)))
    
38.        (if (= yusf "^")(setq  str1 (rtos (expt hh shzi) 2)))
    
39.        (setq h1 (cons 1 str1))
    
40.        (setq sa (subst h1 h sa))
    
41.        (setq j (+ 1 j))
    
42.        (entmod sa)
    
43.        )
    
44.      )
    
45.    (setq k (+ k 1))
    
46.    )
    
47.   (print (strcat "修改文字数：" (itoa j)))
    
48.   (princ)
    
49.   )

(defun C:xgxh ( / be h h1 hh j k lx n names sa shzi ss str str1 tc xh ys yusf zg)<br />   (initget 1)<br />   (setq be (entsel "\n选取要修改的序号:")<br />   be (car be)<br />   be (entget be);获取数据<br />   lx (assoc '0 be);对象类型<br />   tc (assoc '8 be);所在图层<br />   xh (atof (cdr (assoc '1 be)));序号<br />   ys (assoc '62 be);颜色<br />   zg (assoc '40 be);字高<br />   )<br />   (if ys<br />     (setq ss (ssget "x" (list lx tc zg ys)))<br />     (setq ss (ssget "x" (list lx tc zg )))<br />     )<br />   (setq str (getstring "\n 输入四则运算及数值<默认+1>:"))<br />   (if (= str "")<br />     (setq str "+1")<br />     )<br /> (setq yusf (substr str 1 1)<br />        shzi (atof (substr str 2))<br />        n (sslength ss)<br />        k 0<br />        j 0)<br /> (while (< k n)<br />    (setq names (ssname ss k)<br />       sa (entget names)<br />        h (assoc '1 sa)<br />       hh (atof(cdr h));对象序号<br />       )<br />    (if (>= hh xh)<br />      (progn<br />        (if (= yusf "+")(setq  str1 (rtos (+ hh shzi) 2)))<br />        (if (= yusf "-")(setq  str1 (rtos (- hh shzi) 2)))<br />        (if (= yusf "*")(setq  str1 (rtos (* hh shzi) 2)))<br />        (if (= yusf "/")(setq  str1 (rtos (/ hh shzi) 2)))<br />        (if (= yusf "^")(setq  str1 (rtos (expt hh shzi) 2)))<br />        (setq h1 (cons 1 str1))<br />        (setq sa (subst h1 h sa))<br />        (setq j (+ 1 j))<br />        (entmod sa)<br />        )<br />      )<br />    (setq k (+ k 1))<br />    )<br />   (print (strcat "修改文字数：" (itoa j)))<br />   (princ)<br />   )

修改的一个网友的源码，改了一下发上来大家可以补充

s678z

试了下没反应

liuzh99860

工具只对单一数字修改没有框选能力

柴月二号

kankan,,,,,,,,,,

1227588

试着运行 提示错误: 参数太少: (IF YS)
_$  错误: 参数类型错误: lselsetp nil
_$

shcvip

没有点选的，可以自动叠加了。