[求助]数字自动编号

xiaxiang

谁来帮我看看这个程序：

2. ;自动编号程序
3. ;;选择带前缀编号，再选文本，自动累加。
4. (defun c:zat (/ txt)
5. (setvar "cmdecho" 0)
6. (setq os (getvar "osmode"))
7.   (while (/= txt "TEXT")
8.     (setq s1 (car (entsel "选择第一个带前后缀的文本 : "))
9.           txt (dxf 0 (entget s1))
10.    str (dxf 1 (entget s1))
11.    bb str
12.    str-l (strlen str)
13.    ll str-l
14.    n 0
15.     )
16.   )
17.   (while (> ll 1)
18.     (setq str-a (substr bb 2 1))
19.     (if (or (= str-a "0")
20.      (= str-a "1")
21.      (= str-a "2")
22.      (= str-a "3")
23.      (= str-a "4")
24.      (= str-a "5")
25.      (= str-a "6")
26.      (= str-a "7")
27.      (= str-a "8")
28.      (= str-a "9")
29. )
30.       (progn
31. (setq bb (substr bb 2))
32. (setq ll 0)
33.       )
34.       (progn
35. (setq bb (substr bb 2))
36. (setq ll (strlen bb))
37.       )
38.     )
39.     (setq n (+ 1 n))
40.   )
41.   (setq a  (substr str 1 n)
42. b  (substr str (+ n 1))
43. ll (strlen b)
44.   )
45.   (setq c (atof b))
46.   (if (> c (expt 10 (- ll 1)))
47.     (check-OK)
48.     (check-NO)
49.   )
50.   (cmdla1)
51. )
52. (defun check-NO ()
53.   (alert "后缀非数值，程序中断!")
54.   (exit)
55. )
56. (defun check-OK ()
57.   (setq n 1)
58.   (while (setq s1 (car (entsel "选择序号文本 : ")))
59.     (setq tx (strcat a (rtos (+ c n) 2 0)))
60.     (SETQ OLD (ASSOC 1 (entget S1)))
61.     (SETQ NEW (CONS 1 tx))
62.     (SETQ S1 (SUBST NEW OLD (entget S1)))
63.     (ENTMOD S1)
64.     (setq n (+ 1 n))
65.   )
66. )

;自动编号程序 ;;选择带前缀编号，再选文本，自动累加。 (defun c:zat (/ txt) (setvar "cmdecho" 0) (setq os (getvar "osmode"))   (while (/= txt "TEXT")     (setq s1 (car (entsel "选择第一个带前后缀的文本 : "))           txt (dxf 0 (entget s1))    str (dxf 1 (entget s1))    bb str    str-l (strlen str)    ll str-l    n 0     )   )   (while (> ll 1)     (setq str-a (substr bb 2 1))     (if (or (= str-a "0")      (= str-a "1")      (= str-a "2")      (= str-a "3")      (= str-a "4")      (= str-a "5")      (= str-a "6")      (= str-a "7")      (= str-a "8")      (= str-a "9") )       (progn (setq bb (substr bb 2)) (setq ll 0)       )       (progn (setq bb (substr bb 2)) (setq ll (strlen bb))       )     )     (setq n (+ 1 n))   )   (setq a  (substr str 1 n) b  (substr str (+ n 1)) ll (strlen b)   )   (setq c (atof b))   (if (> c (expt 10 (- ll 1)))     (check-OK)     (check-NO)   )   (cmdla1) ) (defun check-NO ()   (alert "后缀非数值，程序中断!")   (exit) ) (defun check-OK ()   (setq n 1)   (while (setq s1 (car (entsel "选择序号文本 : ")))     (setq tx (strcat a (rtos (+ c n) 2 0)))     (SETQ OLD (ASSOC 1 (entget S1)))     (SETQ NEW (CONS 1 tx))     (SETQ S1 (SUBST NEW OLD (entget S1)))     (ENTMOD S1)     (setq n (+ 1 n))   ) )

报错了！！！

file:///I:/DOCUME~1/XIAXIA~1.TDC/LOCALS~1/Temp/GZI)JEW4D72GK@ODH4OL]NB.jpg
  
高手们帮帮忙！！！

ZZXXQQ

这里要这样改下：

 (while (/= txt "TEXT")
  (setq s1 (car (entsel "选择第一个带前后缀的文本 : "))
        txt (dxf 0 (entget s1)))
 )
 (setq str (dxf 1 (entget s1)) ;将这部件移到while外面，因如果选择的不是text，则会出错
       bb str
       str-l (strlen str)
       ll str-l
       n 0)

xiaxiang

麻烦直接给我个能通过的。找二楼版主的意思，又报了别的错误“参数类型错误: stringp nil”

gufeng

运行没错 ， 是不是你那里没有 dxf 函数