（求助）高手请进 ，属性图框生成目录问题（源码优化）

kele99kele

程序已改编好，源程序见http://bbs.mjtd.com/thread-96502-1-1.html，现在的问题是图号前必须有非数字的字符，否则程序中断，如果有非数字的字符则正常显示，如何在没有前置字符的情况下正确排序，求大神解决

1. (defun c:mml (/ a ch date en file i j lst lst1 lst2 pt1 snap x0 y0 zoom1)
   
2.   (setvar "cmdecho" 0)
   
3.   (setvar "filedia" 0)
   
4.   (setq file (open "c:\\样板文件x.txt" "w"))
   
5.   (write-line "图名 C040000" file)
   
6.   (write-line "图号 C040000" file)
   
7.   (close file)
   
8.   (setq ss (ssget '((0 . "*insert"))))
   
9.   (setq yb "c:\\样板文件x.txt")
   
10.   (setq ml "c:\\图纸目录x.txt")
    
11.   (vl-cmdf "-attext" "o" ss "" "sdf" yb ml)
    
12.   (setvar "filedia" 1)
    
13. 
    
14.   (scml11)
    
15.   (princ)
    
16. )
    
17. (defun scml11 ()
    
18.   (setvar "cmdecho" 0)
    
19.   (setvar "filedia" 0)
    
20.   (command ".UNDO" "BE")         ; 设置undo起点
    
21.   (setq snap (getvar "osmode"))         ; 关闭捕捉
    
22.   (setvar "osmode" 0)
    
23.   (command "style" "tssd_dimension" "thz")
    
24.   (if (= (tblsearch "layer" "txt") nil) ; 新建个文字层
    
25.     (command "layer" "N" "txt" "C" 7 "txt" "")
    
26.   )
    
27.   (if (= (tblsearch "layer" "see") nil) ; 新建个细线成
    
28.     (command "layer" "N" "see" "C" 3 "see" "")
    
29.   )
    
30.   (setq file (open "c:/图纸目录x.TXT" "r")) ; 读取临时txt的内容
    
31.   (setq date (read-line file))
    
32.   (setq date2 '())
    
33.   (setq lst '())
    
34.   (while date
    
35.    (setq date2 (read (strcat "(" date ")")))
    
36.    (setq lst (cons date2 lst))
    
37.    (setq date (read-line file))
    
38.   )
    
39.   (close file)
    
40.   ;(vl-file-delete "c:\\图纸目录x.TXT")
    
41.   ;(setq lst (reverse lst))
    
42. 
    
43. 
    
44.   (setq i 0)
    
45.   (setq lst1 '()
    
46.   lst2 '()
    
47.   )
    
48.   (while (< i (length lst))
    
49.     (setq lst1 (list (vl-symbol-name (car (nth i lst))) (vl-symbol-name (cadr (nth i lst)))))
    
50.     (setq lst2 (cons lst1 lst2))
    
51.     (setq i (+ i 1))
    
52.   )
    
53.   (setq lst lst2)
    
54. 
    
55.     (setq lst (vl-sort lst
    
56.              (function (lambda (e1 e2)
    
57.                          (< (cadr e1) (cadr e2))))))
    
58. 
    
59. 
    
60.   (setq apnt (getpoint "\n选择目录放置点："))
    
61.   (setq  apnt_x (car apnt)
    
62.   apnt_y (cadr apnt)
    
63.   )
    
64.     (setq pt1 (list (- apnt_x 5) (- apnt_y 5)))
    
65.     (setq pt2 (list (+ (+ apnt_x (* (fix (/ (length lst) 28)) 110)) 100) (+ apnt_y 237)))
    
66.    
    
67.   (setq i 0)
    
68.   (while (< i (length lst))
    
69.     (if (= (rem i 28) 0)
    
70.       (progn
    
71.   (setq x0 (+ apnt_x (* (fix (/ i 28)) 110))
    
72.         y0 apnt_y
    
73.   )
    
74.   (hzbg x0 y0)           ; 绘制图纸目录的格式
    
75.   (setq j 0)
    
76.       )
    
77.     )
    
78.     (setq a (nth i lst))         ; 下面程序写入内容
    
79.     (setq pt1 (list (+ x0 500) (- (+ y0 22000) (* j 800))))
    
80.     (command "text" "j" "mc" pt1 350 0 (itoa (+ i 1)))
    
81.     (setq en (entlast))
    
82.     (command ".change" en "" "p" "la" "txt" "")
    
83.     (setq pt1 (list (+ x0 1200) (- (+ y0 22000) (* j 800))))
    
84.     (command "text" "j" "ml" pt1 350 0 (car a))
    
85.     (setq en (entlast))
    
86.     (command ".change" en "" "p" "la" "txt" "")
    
87. 
    
88.     (setq pt1 (list (+ x0 7750) (- (+ y0 22000) (* j 800))))
    
89.     (command "text" "j" "mc" pt1 350 0 (cadr a))
    
90.     (setq en (entlast))
    
91.     (command ".change" en "" "p" "la" "txt" "")
    
92.     (setq pt1 (list (+ x0 9000) (- (+ y0 22000) (* j 800))))
    
93.     (command "text" "j" "mc" pt1 350 0 "详图")
    
94.     (setq en (entlast))
    
95.     (command ".change" en "" "p" "la" "txt" "")
    
96.     (setq i (+ i 1))
    
97.     (setq j (+ j 1))
    
98.   )
    
99. 
    
100.   (command ".UNDO" "E")           ; 设置undo终点
     
101.   (setvar "filedia" 1)
     
102.   (setvar "osmode" snap)
     
103. 
     
104.   (princ)
     
105. )
     
106. (defun hzbg (x0 y0 / en i pt1 pt2 pt3)
     
107.   (setq pt1 (list (+ x0 0) (+ y0 23200))
     
108.   pt2 (list (+ x0 9500) y0)
     
109.   )
     
110.   (command ".rectang" pt1 pt2)
     
111.   (setq en (entlast))
     
112.   (command ".change" en "" "p" "la" "see" "")
     
113.   (command "_pedit" en "w" 0.5 "")
     
114.   (setq pt1 (list (+ x0 0) (+ y0 22400))
     
115.   pt2 (list (+ x0 9500) (+ y0 22400))
     
116.   )
     
117.   (command ".line" pt1 pt2 "")
     
118.   (setq en (entlast))
     
119.   (command ".change" en "" "p" "la" "see" "")
     
120. 
     
121.   (setq i 0)
     
122.   (while (<= i 26)
     
123.     (setq pt1 (list (+ x0 0) (- (+ y0 21600) (* i 800)))
     
124.     pt2 (list (+ x0 9500) (- (+ y0 21600) (* i 800)))
     
125.           pt3 (list (+ x0 0) (+ y0 20800))
     
126.     )
     
127.     (command ".line" pt1 pt2 "")
     
128.     (setq en (entlast))
     
129.     (command ".change" en "" "p" "la" "see" "c" "1" "")
     
130.     (command ".copy" en "" pt1 pt3)
     
131.     (setq i (+ i 1))
     
132.   )
     
133. 
     
134.   (setq pt1 (list (+ x0 1000) (+ y0 0))
     
135.   pt2 (list (+ x0 1000) (+ y0 23200))
     
136.   )
     
137.   (command ".line" pt1 pt2 "")
     
138.   (setq en (entlast))
     
139.   (command ".change" en "" "p" "la" "see" "c" "1" "")
     
140. 
     
141.   (setq pt1 (list (+ x0 7000) (+ y0 0))
     
142.   pt2 (list (+ x0 7000) (+ y0 23200))
     
143.   )
     
144.   (command ".line" pt1 pt2 "")
     
145.   (setq en (entlast))
     
146.   (command ".change" en "" "p" "la" "see" "c" "1" "")
     
147. 
     
148.   (setq pt1 (list (+ x0 8500) (+ y0 0))
     
149.   pt2 (list (+ x0 8500) (+ y0 23200))
     
150.   )
     
151.   (command ".line" pt1 pt2 "")
     
152.   (setq en (entlast))
     
153.   (command ".change" en "" "p" "la" "see" "c" "1" "")
     
154.   
     
155.   (command "textstyle" "tssd_dimension")
     
156.   (setq pt1 (list (+ x0 500) (+ y0 22800)))
     
157.   (command "text" "j" "mc" pt1 350 0 "序 号")
     
158.   (setq en (entlast))
     
159.   (command ".change" en "" "p" "la" "txt" "")
     
160.   (setq pt1 (list (+ x0 4000) (+ y0 22800)))
     
161.   (command "text" "j" "mc" pt1 350 0 "图         名")
     
162.   (setq en (entlast))
     
163.   (command ".change" en "" "p" "la" "txt" "")
     
164.   (setq pt1 (list (+ x0 7750) (+ y0 22800)))
     
165.   (command "text" "j" "mc" pt1 350 0 "图   号")
     
166.   (setq en (entlast))
     
167.   (command ".change" en "" "p" "la" "txt" "")
     
168.   (setq pt1 (list (+ x0 9000) (+ y0 22800)))
     
169.   (command "text" "j" "mc" pt1 350 0 "图 幅")
     
170.   (setq en (entlast))
     
171.   (command ".change" en "" "p" "la" "txt" "")
     
172.   (princ)
     
173. )
     

(defun c:mml (/ a ch date en file i j lst lst1 lst2 pt1 snap x0 y0 zoom1)<br />   (setvar "cmdecho" 0)<br />   (setvar "filedia" 0)<br />   (setq file (open "c:\\样板文件x.txt" "w"))<br />   (write-line "图名 C040000" file)<br />   (write-line "图号 C040000" file)<br />   (close file)<br />   (setq ss (ssget '((0 . "*insert"))))<br />   (setq yb "c:\\样板文件x.txt")<br />   (setq ml "c:\\图纸目录x.txt")<br />   (vl-cmdf "-attext" "o" ss "" "sdf" yb ml)<br />   (setvar "filedia" 1)<br /> <br />   (scml11)<br />   (princ)<br /> )<br /> (defun scml11 ()<br />   (setvar "cmdecho" 0)<br />   (setvar "filedia" 0)<br />   (command ".UNDO" "BE")         ; 设置undo起点<br />   (setq snap (getvar "osmode"))         ; 关闭捕捉<br />   (setvar "osmode" 0)<br />   (command "style" "tssd_dimension" "thz")<br />   (if (= (tblsearch "layer" "txt") nil) ; 新建个文字层<br />     (command "layer" "N" "txt" "C" 7 "txt" "")<br />   )<br />   (if (= (tblsearch "layer" "see") nil) ; 新建个细线成<br />     (command "layer" "N" "see" "C" 3 "see" "")<br />   )<br />   (setq file (open "c:/图纸目录x.TXT" "r")) ; 读取临时txt的内容<br />   (setq date (read-line file))<br />   (setq date2 '())<br />   (setq lst '())<br />   (while date<br />    (setq date2 (read (strcat "(" date ")")))<br />    (setq lst (cons date2 lst))<br />    (setq date (read-line file))<br />   )<br />   (close file)<br />   ;(vl-file-delete "c:\\图纸目录x.TXT")<br />   ;(setq lst (reverse lst))<br /> <br /> <br />   (setq i 0)<br />   (setq lst1 '()<br />   lst2 '()<br />   )<br />   (while (< i (length lst))<br />     (setq lst1 (list (vl-symbol-name (car (nth i lst))) (vl-symbol-name (cadr (nth i lst)))))<br />     (setq lst2 (cons lst1 lst2))<br />     (setq i (+ i 1))<br />   )<br />   (setq lst lst2)<br /> <br />     (setq lst (vl-sort lst<br />              (function (lambda (e1 e2)<br />                          (< (cadr e1) (cadr e2))))))<br /> <br /> <br />   (setq apnt (getpoint "\n选择目录放置点："))<br />   (setq  apnt_x (car apnt)<br />   apnt_y (cadr apnt)<br />   )<br />     (setq pt1 (list (- apnt_x 5) (- apnt_y 5)))<br />     (setq pt2 (list (+ (+ apnt_x (* (fix (/ (length lst) 28)) 110)) 100) (+ apnt_y 237)))<br />     <br />   (setq i 0)<br />   (while (< i (length lst))<br />     (if (= (rem i 28) 0)<br />       (progn<br />   (setq x0 (+ apnt_x (* (fix (/ i 28)) 110))<br />         y0 apnt_y<br />   )<br />   (hzbg x0 y0)           ; 绘制图纸目录的格式<br />   (setq j 0)<br />       )<br />     )<br />     (setq a (nth i lst))         ; 下面程序写入内容<br />     (setq pt1 (list (+ x0 500) (- (+ y0 22000) (* j 800))))<br />     (command "text" "j" "mc" pt1 350 0 (itoa (+ i 1)))<br />     (setq en (entlast))<br />     (command ".change" en "" "p" "la" "txt" "")<br />     (setq pt1 (list (+ x0 1200) (- (+ y0 22000) (* j 800))))<br />     (command "text" "j" "ml" pt1 350 0 (car a))<br />     (setq en (entlast))<br />     (command ".change" en "" "p" "la" "txt" "")<br /> <br />     (setq pt1 (list (+ x0 7750) (- (+ y0 22000) (* j 800))))<br />     (command "text" "j" "mc" pt1 350 0 (cadr a))<br />     (setq en (entlast))<br />     (command ".change" en "" "p" "la" "txt" "")<br />     (setq pt1 (list (+ x0 9000) (- (+ y0 22000) (* j 800))))<br />     (command "text" "j" "mc" pt1 350 0 "详图")<br />     (setq en (entlast))<br />     (command ".change" en "" "p" "la" "txt" "")<br />     (setq i (+ i 1))<br />     (setq j (+ j 1))<br />   )<br /> <br />   (command ".UNDO" "E")           ; 设置undo终点<br />   (setvar "filedia" 1)<br />   (setvar "osmode" snap)<br /> <br />   (princ)<br /> )<br /> (defun hzbg (x0 y0 / en i pt1 pt2 pt3)<br />   (setq pt1 (list (+ x0 0) (+ y0 23200))<br />   pt2 (list (+ x0 9500) y0)<br />   )<br />   (command ".rectang" pt1 pt2)<br />   (setq en (entlast))<br />   (command ".change" en "" "p" "la" "see" "")<br />   (command "_pedit" en "w" 0.5 "")<br />   (setq pt1 (list (+ x0 0) (+ y0 22400))<br />   pt2 (list (+ x0 9500) (+ y0 22400))<br />   )<br />   (command ".line" pt1 pt2 "")<br />   (setq en (entlast))<br />   (command ".change" en "" "p" "la" "see" "")<br /> <br />   (setq i 0)<br />   (while (<= i 26)<br />     (setq pt1 (list (+ x0 0) (- (+ y0 21600) (* i 800)))<br />     pt2 (list (+ x0 9500) (- (+ y0 21600) (* i 800)))<br />           pt3 (list (+ x0 0) (+ y0 20800))<br />     )<br />     (command ".line" pt1 pt2 "")<br />     (setq en (entlast))<br />     (command ".change" en "" "p" "la" "see" "c" "1" "")<br />     (command ".copy" en "" pt1 pt3)<br />     (setq i (+ i 1))<br />   )<br /> <br />   (setq pt1 (list (+ x0 1000) (+ y0 0))<br />   pt2 (list (+ x0 1000) (+ y0 23200))<br />   )<br />   (command ".line" pt1 pt2 "")<br />   (setq en (entlast))<br />   (command ".change" en "" "p" "la" "see" "c" "1" "")<br /> <br />   (setq pt1 (list (+ x0 7000) (+ y0 0))<br />   pt2 (list (+ x0 7000) (+ y0 23200))<br />   )<br />   (command ".line" pt1 pt2 "")<br />   (setq en (entlast))<br />   (command ".change" en "" "p" "la" "see" "c" "1" "")<br /> <br />   (setq pt1 (list (+ x0 8500) (+ y0 0))<br />   pt2 (list (+ x0 8500) (+ y0 23200))<br />   )<br />   (command ".line" pt1 pt2 "")<br />   (setq en (entlast))<br />   (command ".change" en "" "p" "la" "see" "c" "1" "")<br />   <br />   (command "textstyle" "tssd_dimension")<br />   (setq pt1 (list (+ x0 500) (+ y0 22800)))<br />   (command "text" "j" "mc" pt1 350 0 "序 号")<br />   (setq en (entlast))<br />   (command ".change" en "" "p" "la" "txt" "")<br />   (setq pt1 (list (+ x0 4000) (+ y0 22800)))<br />   (command "text" "j" "mc" pt1 350 0 "图         名")<br />   (setq en (entlast))<br />   (command ".change" en "" "p" "la" "txt" "")<br />   (setq pt1 (list (+ x0 7750) (+ y0 22800)))<br />   (command "text" "j" "mc" pt1 350 0 "图   号")<br />   (setq en (entlast))<br />   (command ".change" en "" "p" "la" "txt" "")<br />   (setq pt1 (list (+ x0 9000) (+ y0 22800)))<br />   (command "text" "j" "mc" pt1 350 0 "图 幅")<br />   (setq en (entlast))<br />   (command ".change" en "" "p" "la" "txt" "")<br />   (princ)<br /> )<br />

自贡黄明儒

我一直用自己写的http://bbs.mjtd.com/thread-96636-1-1.html
来统计图纸，你可以参考一下。

kele99kele

谢谢楼上同志，我是基础太差，想在这个程序中先找找问题，以便学习

BUBUBA918

1. ;此程序为根据图形内图框，自动写图形的目录。
   
2. ;
   
3. (defun c:mul(/ sel m tf th tm selm ss sst ssm k p1 p2)  
   
4.   ;选择图框
   
5.   (setq  sel (ssget "x" (list (cons -4 "<or") (cons 2 "图框A0") (cons 2 "图框A1") (cons 2 "图框A2") (cons -4 "or>"))))
   
6.   
   
7.   (if (= sel nil)
   
8.     (progn
   
9.       (princ "\n图中无有效图框.")
   
10.       (quit)
    
11.     ) )
    
12.   
    
13.   (setq m (sslength sel))
    
14.   (setq sst '() k 1)
    
15.   (while (>= (setq m (1- m)) 0)
    
16.     (progn
    
17.       (setq selm (ssname sel m))
    
18.       (setq ss (cdr (assoc 2 (entget selm))))
    
19. 
    
20.       ;提取图幅信息
    
21.       (setq tf (substr ss 5))
    
22.       (repeat 2
    
23.   (progn
    
24.     (setq selm (entnext selm))
    
25.     (setq ss (entget selm))
    
26.     ;提取图号，图名信息。
    
27.     (if (= (cdr (assoc 2 ss)) "图号") (setq th (cdr (assoc 1 ss))))
    
28.     (if (= (cdr (assoc 2 ss)) "图名")
    
29.       (progn
    
30.         (setq tm (cdr (assoc 1 ss)))
    
31.         (if (< k (strlen tm)) (setq k (strlen tm)))
    
32.       )
    
33.     )
    
34.   )
    
35.       )
    
36.       (setq ssm (list th tm tf))
    
37.       (setq sst (cons ssm sst))
    
38.     )
    
39.   )
    
40. ;图名，图号，图幅信息提取完成，存放在串列sst中。下面对串列sst进行排序。
    
41.   (vl-load-com)
    
42.   (setq sst (vl-sort sst (function (lambda (e1 e2) (< (atoi (car e1)) (atoi (car e2)))))))
    
43.   (setq svar (getvar "osmode"))
    
44.   (setvar "osmode" 0)
    
45.   
    
46. ;写表头
    
47.   (setq m (length sst))
    
48.   (setq p1 (getpoint "输入目录表格的左上角角点"))
    
49.   (setq p2 (polar p1 (* 1.5 pi) (+ 1450 (* m 800))))
    
50.   (command "layer" "N" "TAB" "S" "TAB" "")
    
51.   (command "_line" p1 (polar p1 0 11800) "")  
    
52.   (command "_line" p2 p1 "")
    
53.   (command "_copy" (ssget "L") "" "m" p1 (polar p1 0 800) (polar p1 0 3500) (polar p1 0 10000)  (polar p1 0 11800) "")
    
54.       
    
55.   (setq p2 (polar p1 (* 1.5 pi) 650))
    
56.   (command "_text" "s" "TSSD_Rein" "J" "c" (polar p2 0 400) "500" "0" "序")
    
57.   (command "_text" "s" "TSSD_Rein" "J" "c" (polar (polar p2 (* 1.5 pi) 650) 0 400) "500" "0" "号")
    
58.   (setq p2 (polar p1 (* 1.5 pi) 975))
    
59.   (command "_text" "s" "TSSD_Rein" "J" "c" (polar p2 0 2150) "500" "0" "图     号")
    
60.   (command "_text" "s" "TSSD_Rein" "J" "bl" (polar p2 0 3900) "500" "0" "图   纸   内   容")
    
61.   (command "_text" "s" "TSSD_Rein" "J" "c" (polar p2 0 10900) "500" "0" "图   幅")
    
62.   (setq p2 (polar p1 (* 1.5 pi) 1450))
    
63.   (command "_line" p2 (polar p2 0 11800) "")
    
64.       
    
65. ;写目录的内容
    
66.   (setq k 1)
    
67.   (repeat m
    
68.     (progn
    
69.       (setq p2 (polar p2 (* 1.5 pi) 650))
    
70.       (command "_text" "s" "TSSD_Rein" "J" "c" (polar p2 0 400) "500" "0" k)
    
71.       (command "_text" "s" "TSSD_Rein" "J" "c" (polar p2 0 2150) "500" "0" (strcat "结施-" (car (car sst))  "/" (itoa m)))
    
72.       (command "_text" "s" "TSSD_Rein" "J" "BL" (polar p2 0 3900) "500" "0" (cadr (car sst)))
    
73.       (command "_text" "s" "TSSD_Rein" "j" "c" (polar p2 0 10900) "500" "0" (caddr (car sst)))
    
74.       (setq p2 (polar p2 (* 1.5 pi) 150))
    
75.       (command "_line" p2 (polar p2 0 11800) "")
    
76.       (setq k (1+ k))
    
77.       (setq sst (cdr sst))
    
78.     )
    
79.   )
    
80.   (setvar "osmode" svar)
    
81. 
    
82.   (prin1)
    
83. )
    
84. 
    
85. (prompt "**mul**")
    
86. (prin1)
    
87. 
    
88. ;作者:QQ549476107
    
89. ;欢迎共同讨论学习
    
90. 
    
91. 
    

;此程序为根据图形内图框，自动写图形的目录。<br /> ;<br /> (defun c:mul(/ sel m tf th tm selm ss sst ssm k p1 p2)  <br />   ;选择图框<br />   (setq  sel (ssget "x" (list (cons -4 "<or") (cons 2 "图框A0") (cons 2 "图框A1") (cons 2 "图框A2") (cons -4 "or>"))))<br />   <br />   (if (= sel nil)<br />     (progn<br />       (princ "\n图中无有效图框.")<br />       (quit)<br />     ) )<br />   <br />   (setq m (sslength sel))<br />   (setq sst '() k 1)<br />   (while (>= (setq m (1- m)) 0)<br />     (progn<br />       (setq selm (ssname sel m))<br />       (setq ss (cdr (assoc 2 (entget selm))))<br /> <br />       ;提取图幅信息<br />       (setq tf (substr ss 5))<br />       (repeat 2<br />   (progn<br />     (setq selm (entnext selm))<br />     (setq ss (entget selm))<br />     ;提取图号，图名信息。<br />     (if (= (cdr (assoc 2 ss)) "图号") (setq th (cdr (assoc 1 ss))))<br />     (if (= (cdr (assoc 2 ss)) "图名")<br />       (progn<br />         (setq tm (cdr (assoc 1 ss)))<br />         (if (< k (strlen tm)) (setq k (strlen tm)))<br />       )<br />     )<br />   )<br />       )<br />       (setq ssm (list th tm tf))<br />       (setq sst (cons ssm sst))<br />     )<br />   )<br /> ;图名，图号，图幅信息提取完成，存放在串列sst中。下面对串列sst进行排序。<br />   (vl-load-com)<br />   (setq sst (vl-sort sst (function (lambda (e1 e2) (< (atoi (car e1)) (atoi (car e2)))))))<br />   (setq svar (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   <br /> ;写表头<br />   (setq m (length sst))<br />   (setq p1 (getpoint "输入目录表格的左上角角点"))<br />   (setq p2 (polar p1 (* 1.5 pi) (+ 1450 (* m 800))))<br />   (command "layer" "N" "TAB" "S" "TAB" "")<br />   (command "_line" p1 (polar p1 0 11800) "")  <br />   (command "_line" p2 p1 "")<br />   (command "_copy" (ssget "L") "" "m" p1 (polar p1 0 800) (polar p1 0 3500) (polar p1 0 10000)  (polar p1 0 11800) "")<br />       <br />   (setq p2 (polar p1 (* 1.5 pi) 650))<br />   (command "_text" "s" "TSSD_Rein" "J" "c" (polar p2 0 400) "500" "0" "序")<br />   (command "_text" "s" "TSSD_Rein" "J" "c" (polar (polar p2 (* 1.5 pi) 650) 0 400) "500" "0" "号")<br />   (setq p2 (polar p1 (* 1.5 pi) 975))<br />   (command "_text" "s" "TSSD_Rein" "J" "c" (polar p2 0 2150) "500" "0" "图     号")<br />   (command "_text" "s" "TSSD_Rein" "J" "bl" (polar p2 0 3900) "500" "0" "图   纸   内   容")<br />   (command "_text" "s" "TSSD_Rein" "J" "c" (polar p2 0 10900) "500" "0" "图   幅")<br />   (setq p2 (polar p1 (* 1.5 pi) 1450))<br />   (command "_line" p2 (polar p2 0 11800) "")<br />       <br /> ;写目录的内容<br />   (setq k 1)<br />   (repeat m<br />     (progn<br />       (setq p2 (polar p2 (* 1.5 pi) 650))<br />       (command "_text" "s" "TSSD_Rein" "J" "c" (polar p2 0 400) "500" "0" k)<br />       (command "_text" "s" "TSSD_Rein" "J" "c" (polar p2 0 2150) "500" "0" (strcat "结施-" (car (car sst))  "/" (itoa m)))<br />       (command "_text" "s" "TSSD_Rein" "J" "BL" (polar p2 0 3900) "500" "0" (cadr (car sst)))<br />       (command "_text" "s" "TSSD_Rein" "j" "c" (polar p2 0 10900) "500" "0" (caddr (car sst)))<br />       (setq p2 (polar p2 (* 1.5 pi) 150))<br />       (command "_line" p2 (polar p2 0 11800) "")<br />       (setq k (1+ k))<br />       (setq sst (cdr sst))<br />     )<br />   )<br />   (setvar "osmode" svar)<br /> <br />   (prin1)<br /> )<br /> <br /> (prompt "**mul**")<br /> (prin1)<br /> <br /> ;作者:QQ549476107<br /> ;欢迎共同讨论学习<br /> <br /> <br />

kele99kele

谢谢BUBUBA918，正在测试你上传的程序

kele99kele

能否把你的配套图框上传一套，我对比下变量参数

BUBUBA918

这是原版的目录和说明

BUBUBA918

这是我做的图签，可是不会添加提取属性，请斑竹出来改下程序，或说明一下如何增加提取属性

kele99kele

再次感谢BUBUBA918，参考BUBUBA918提供的程序，已将原程序一定程度上改善。

xiaolong1487

学习一下！