扩展属性查看（原码）不能修改期待大神们进行完善

永不言弃

2. (defun c:tt ();;;扩展属性
   
3.   (vl-load-com)
   
4.   (dcl_project_import
   
5.     '("YWt6A5ASAADN8azyBuKTKTcxKj9u0B8mZGZmfBTyIE4eil7vM2i9/146XdX0v1ZQ0vTyPnJ0L23w"
   
6. "3u7WafMpcQQP8SUywgZOZFGCfm0Je2uLGiJsuNTgm8OA/mdYMPJPiDXBqSEpC8OQ0ISUizWNMAW3"
   
7. "Ia2U1vTk1uzIL13JmiA/pdfgZMYRY6vu/fa4bfbsnMe/fcx11u3RfFTYLFTaXLSfhWSjiMsMh7Qf"
   
8. "UkNTorSZ1e6FNNcj8ZLacGAlkuX+KVLozstwyCqyhFvS493hexI1UvTjfBA3Me8AIfnIKjrToqm4"
   
9. "3TTGOdBGDLcS7Te0bCxw9F8B57E0qx/0idVFGgyUdh5Rntn+eX7he0J4RqAfnD/uVe5B3Iq+BIJ1"
   
10. "LeVXSK5bNSk9hN+1ehHQxLHlHFWU//vLAMTb4bhI661vFZahz5pkocyOVBDXpV7BF81ZjB80dh7R"
    
11. "slm1DjeS0JhrBWhz40DXYGWD2ijkCCIwF4Yg9QAzEBqpcSxBBY1uoYXX6QRG9uq1prOsSCQ1n1we"
    
12. "i0JKGAElaJWKzvj5xEZaxQv21EaOoSuOkRu+KX4hfJJ3RCUR8JR4Al7GF/DRzKfDXqFxBmqSMXuJ"
    
13. "q/nZUwNjUuEegrneDQNGZbgByJjdm826EXLXPunUyQKALRxZoPLrNKCUf6AaC/OyZsNwRndG/0+h"
    
14. "HaYLq6xotJrE8eOYn1XtI5Pfw3hJaLbGTR4J31sBXMa/vCv8SScmWN5APvJRyZqkIOP7o7y7FJ4o"
    
15. "c54kZsFvmppOmfViJX+Vzw/Q4oLiDRVGQbCbg9j5HcgsoTKsgj9kmbMwnQ6P+Mo4ZF2z76iv9Cna"
    
16. "SaxhrX3YcTJRb7rBqMm7wbCD5iASAmZpgw6Xe61vjHmtNcYKajvAF2ITwPdKK70imiWUBES2+dxA"
    
17. "CMR6GBrSzeN3wPahvZqnui3t06EJyvL7HxwnyuZmFBeBhxa9iVLBM/cA4ktRL/L60ZsajCuNb4cE"
    
18. "sETFl4lRexKdjXiEeYdifwE5xsToj1M7vXSaEeJ6B2l5Uc0LWRINTJ5pmnQeWec7w0sbICUvsYNB"
    
19. "QH9nAS6bBrMx2UK1ZNqZls+vWAtpoIZY+qvpXxptRLAY4ZdFtOYtiES6dCHnzHjQvSKNO+h8jaAT"
    
20. "nuwWWFrh0QKX2fQVRTUkhvktViC71vUtKqqxndPOwG++M/7xfTh84X7ieMaHkUSBwfkBqzf1IUEa"
    
21. "hfh+uTwg0HmAIH7AOFXRoX5FyMKFM8DZZ+pmyp3j7/tRsOPrS8gbG8m9sswEK7Eegj3u4fkjco+p"
    
22. "z+ay0tcZIXON94rRXfzSl4jJAH9IziGW")
    
23.   )
    
24.   (dcl_form_show NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL)
    
25. )
    
26. 
    
27. 
    
28. (defun c:NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/GraphicButton1#OnClicked (/)
    
29.   (prompt "\n 选择对象")
    
30.   (if (setq %%%ssgetobject (ssget))
    
31.     (progn
    
32.       (setq %%knum -1)
    
33.       (setq %%enamet (ssname %%%ssgetobject (setq %%knum (1+ %%knum))))
    
34.       
    
35.       (setq kzsj (cdr (assoc -3 (entget %%enamet '("*")))))
    
36.       (dcl-Control-SetCaption NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/GraphicButton1 (strcat (rtos (1+ %%knum) 2 0) "/" (rtos (sslength %%%ssgetobject) 2 0)))
    
37.       (setq %%nuls nil)
    
38.       (foreach %ls1 kzsj
    
39. ;;;  (setq %ls1 (nth 0 kzsj))
    
40.   (setq %ksmc (car %ls1))
    
41.   (setq %so_l1 nil)
    
42.   (setq %so_l1 (cons (list %ksmc "") %so_l1))
    
43.   (foreach %ls2 (cdr %ls1)
    
44. ;;;    (setq %ls2 (nth 0 (cdr %ls1)))
    
45.     (setq  %so_l1 (cons (list (rtos (car %ls2) 2 0)
    
46.            (if (= (type (cdr %ls2)) 'STR)
    
47.              (cdr %ls2)
    
48.              (rtos (cdr %ls2) 2)
    
49.            )
    
50.            (cond
    
51.              ((= (type (cdr %ls2)) 'STR)
    
52.               "文本"
    
53.               )
    
54.              ((= (type (cdr %ls2)) 'INT)
    
55.               "整型"
    
56.               )
    
57.              ((= (type (cdr %ls2)) 'REAL)
    
58.               "浮点"
    
59.               )
    
60.              (t
    
61.               ""
    
62.               )
    
63.              )
    
64.            )
    
65.            %so_l1
    
66.            )
    
67.     )
    
68.     )
    
69.   (setq %%nuls (cons (reverse %so_l1)%%nuls))
    
70.   )
    
71.       (setq %%nuls (reverse %%nuls))
    
72.       
    
73. ;;;      (dcl_grid_filllist NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %%nuls)
    
74.       (dcl-Grid-Clear NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1)
    
75.       (setq %hh -1)
    
76.       (foreach %str1 %%nuls
    
77. ;;;  (setq %str1 (car %%nuls))
    
78.   (setq %str2 (car %str1))
    
79.   (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str2) "\t" (cadr %str2) "\t文本"))
    
80.   (setq %hh (1+ %hh))
    
81.   (foreach %str3 (cdr %str1)
    
82.     (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str3) "\t" (cadr %str3) "\t" (nth 2 %str3)))
    
83.     (setq %hh (1+ %hh))
    
84.     (dcl_grid_setcellstyle NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %hh 1 6)
    
85.     )
    
86.   )
    
87.       
    
88.       )
    
89.     )
    
90.   (princ)
    
91. )
    
92. 
    
93. (defun c:NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/TextButton1#OnClicked (/);;;上
    
94.    (setq %%knum (1- %%knum))
    
95.   (if (< %%knum 0)
    
96.     (setq %%knum 0)
    
97.     )
    
98.   (setq %%enamet (ssname %%%ssgetobject %%knum))
    
99.       
    
100.   
     
101. (setq kzsj (cdr (assoc -3 (entget %%enamet '("*")))))
     
102.       (dcl-Control-SetCaption NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/GraphicButton1 (strcat (rtos (1+ %%knum) 2 0) "/" (rtos (sslength %%%ssgetobject) 2 0)))
     
103.       (setq %%nuls nil)
     
104.       (foreach %ls1 kzsj
     
105. ;;;  (setq %ls1 (nth 0 kzsj))
     
106.   (setq %ksmc (car %ls1))
     
107.   (setq %so_l1 nil)
     
108.   (setq %so_l1 (cons (list %ksmc "") %so_l1))
     
109.   (foreach %ls2 (cdr %ls1)
     
110. ;;;    (setq %ls2 (nth 0 (cdr %ls1)))
     
111.     (setq  %so_l1 (cons (list (rtos (car %ls2) 2 0)
     
112.            (if (= (type (cdr %ls2)) 'STR)
     
113.              (cdr %ls2)
     
114.              (rtos (cdr %ls2) 2)
     
115.            )
     
116.            (cond
     
117.              ((= (type (cdr %ls2)) 'STR)
     
118.               "文本"
     
119.               )
     
120.              ((= (type (cdr %ls2)) 'INT)
     
121.               "整型"
     
122.               )
     
123.              ((= (type (cdr %ls2)) 'REAL)
     
124.               "浮点"
     
125.               )
     
126.              (t
     
127.               ""
     
128.               )
     
129.              )
     
130.            )
     
131.            %so_l1
     
132.            )
     
133.     )
     
134.     )
     
135.   (setq %%nuls (cons (reverse %so_l1)%%nuls))
     
136.   )
     
137.       (setq %%nuls (reverse %%nuls))
     
138.       
     
139. ;;;      (dcl_grid_filllist NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %%nuls)
     
140.       (dcl-Grid-Clear NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1)
     
141.       (setq %hh -1)
     
142.       (foreach %str1 %%nuls
     
143. ;;;  (setq %str1 (car %%nuls))
     
144.   (setq %str2 (car %str1))
     
145.   (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str2) "\t" (cadr %str2) "\t文本"))
     
146.   (setq %hh (1+ %hh))
     
147.   (foreach %str3 (cdr %str1)
     
148.     (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str3) "\t" (cadr %str3) "\t" (nth 2 %str3)))
     
149.     (setq %hh (1+ %hh))
     
150.     (dcl_grid_setcellstyle NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %hh 1 6)
     
151.     )
     
152.   )
     
153.     (princ)
     
154. )
     
155. 
     
156. 
     
157. (defun c:NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/TextButton2#OnClicked (/);;;;下
     
158.   (setq %%knum (1+ %%knum))
     
159.   (if (> %%knum (1- (sslength %%%ssgetobject)))
     
160.     (setq %%knum (1- (sslength %%%ssgetobject)))
     
161.     )
     
162.   (setq %%enamet (ssname %%%ssgetobject %%knum))
     
163.       =
     
164.   
     
165.   (setq kzsj (cdr (assoc -3 (entget %%enamet '("*")))))
     
166.       (dcl-Control-SetCaption NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/GraphicButton1 (strcat (rtos (1+ %%knum) 2 0) "/" (rtos (sslength %%%ssgetobject) 2 0)))
     
167.       (setq %%nuls nil)
     
168.       (foreach %ls1 kzsj
     
169. ;;;  (setq %ls1 (nth 0 kzsj))
     
170.   (setq %ksmc (car %ls1))
     
171.   (setq %so_l1 nil)
     
172.   (setq %so_l1 (cons (list %ksmc "") %so_l1))
     
173.   (foreach %ls2 (cdr %ls1)
     
174. ;;;    (setq %ls2 (nth 0 (cdr %ls1)))
     
175.     (setq  %so_l1 (cons (list (rtos (car %ls2) 2 0)
     
176.            (if (= (type (cdr %ls2)) 'STR)
     
177.              (cdr %ls2)
     
178.              (rtos (cdr %ls2) 2)
     
179.            )
     
180.            (cond
     
181.              ((= (type (cdr %ls2)) 'STR)
     
182.               "文本"
     
183.               )
     
184.              ((= (type (cdr %ls2)) 'INT)
     
185.               "整型"
     
186.               )
     
187.              ((= (type (cdr %ls2)) 'REAL)
     
188.               "浮点"
     
189.               )
     
190.              (t
     
191.               ""
     
192.               )
     
193.              )
     
194.            )
     
195.            %so_l1
     
196.            )
     
197.     )
     
198.     )
     
199.   (setq %%nuls (cons (reverse %so_l1)%%nuls))
     
200.   )
     
201.       (setq %%nuls (reverse %%nuls))
     
202.       
     
203. ;;;      (dcl_grid_filllist NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %%nuls)
     
204.       (dcl-Grid-Clear NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1)
     
205.       (setq %hh -1)
     
206.       (foreach %str1 %%nuls
     
207. ;;;  (setq %str1 (car %%nuls))
     
208.   (setq %str2 (car %str1))
     
209.   (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str2) "\t" (cadr %str2) "\t文本"))
     
210.   (setq %hh (1+ %hh))
     
211.   (foreach %str3 (cdr %str1)
     
212.     (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str3) "\t" (cadr %str3) "\t" (nth 2 %str3)))
     
213.     (setq %hh (1+ %hh))
     
214.     (dcl_grid_setcellstyle NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %hh 1 6)
     
215.     )
     
216.   )
     
217.   (princ)
     
218. )
     
219. 
     
220. 
     
221. (defun c:NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1#OnEndLabelEdit (Row Column /)
     
222. (prompt "只能查看不能修改，期待大神们进行修改")
     
223.   (princ)
     
224.   
     
225. )
     

(defun c:tt ();;;扩展属性<br />   (vl-load-com)<br />   (dcl_project_import<br />     '("YWt6A5ASAADN8azyBuKTKTcxKj9u0B8mZGZmfBTyIE4eil7vM2i9/146XdX0v1ZQ0vTyPnJ0L23w"<br /> "3u7WafMpcQQP8SUywgZOZFGCfm0Je2uLGiJsuNTgm8OA/mdYMPJPiDXBqSEpC8OQ0ISUizWNMAW3"<br /> "Ia2U1vTk1uzIL13JmiA/pdfgZMYRY6vu/fa4bfbsnMe/fcx11u3RfFTYLFTaXLSfhWSjiMsMh7Qf"<br /> "UkNTorSZ1e6FNNcj8ZLacGAlkuX+KVLozstwyCqyhFvS493hexI1UvTjfBA3Me8AIfnIKjrToqm4"<br /> "3TTGOdBGDLcS7Te0bCxw9F8B57E0qx/0idVFGgyUdh5Rntn+eX7he0J4RqAfnD/uVe5B3Iq+BIJ1"<br /> "LeVXSK5bNSk9hN+1ehHQxLHlHFWU//vLAMTb4bhI661vFZahz5pkocyOVBDXpV7BF81ZjB80dh7R"<br /> "slm1DjeS0JhrBWhz40DXYGWD2ijkCCIwF4Yg9QAzEBqpcSxBBY1uoYXX6QRG9uq1prOsSCQ1n1we"<br /> "i0JKGAElaJWKzvj5xEZaxQv21EaOoSuOkRu+KX4hfJJ3RCUR8JR4Al7GF/DRzKfDXqFxBmqSMXuJ"<br /> "q/nZUwNjUuEegrneDQNGZbgByJjdm826EXLXPunUyQKALRxZoPLrNKCUf6AaC/OyZsNwRndG/0+h"<br /> "HaYLq6xotJrE8eOYn1XtI5Pfw3hJaLbGTR4J31sBXMa/vCv8SScmWN5APvJRyZqkIOP7o7y7FJ4o"<br /> "c54kZsFvmppOmfViJX+Vzw/Q4oLiDRVGQbCbg9j5HcgsoTKsgj9kmbMwnQ6P+Mo4ZF2z76iv9Cna"<br /> "SaxhrX3YcTJRb7rBqMm7wbCD5iASAmZpgw6Xe61vjHmtNcYKajvAF2ITwPdKK70imiWUBES2+dxA"<br /> "CMR6GBrSzeN3wPahvZqnui3t06EJyvL7HxwnyuZmFBeBhxa9iVLBM/cA4ktRL/L60ZsajCuNb4cE"<br /> "sETFl4lRexKdjXiEeYdifwE5xsToj1M7vXSaEeJ6B2l5Uc0LWRINTJ5pmnQeWec7w0sbICUvsYNB"<br /> "QH9nAS6bBrMx2UK1ZNqZls+vWAtpoIZY+qvpXxptRLAY4ZdFtOYtiES6dCHnzHjQvSKNO+h8jaAT"<br /> "nuwWWFrh0QKX2fQVRTUkhvktViC71vUtKqqxndPOwG++M/7xfTh84X7ieMaHkUSBwfkBqzf1IUEa"<br /> "hfh+uTwg0HmAIH7AOFXRoX5FyMKFM8DZZ+pmyp3j7/tRsOPrS8gbG8m9sswEK7Eegj3u4fkjco+p"<br /> "z+ay0tcZIXON94rRXfzSl4jJAH9IziGW")<br />   )<br />   (dcl_form_show NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL)<br /> )<br /> <br /> <br /> (defun c:NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/GraphicButton1#OnClicked (/)<br />   (prompt "\n 选择对象")<br />   (if (setq %%%ssgetobject (ssget))<br />     (progn<br />       (setq %%knum -1)<br />       (setq %%enamet (ssname %%%ssgetobject (setq %%knum (1+ %%knum))))<br />       <br />       (setq kzsj (cdr (assoc -3 (entget %%enamet '("*")))))<br />       (dcl-Control-SetCaption NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/GraphicButton1 (strcat (rtos (1+ %%knum) 2 0) "/" (rtos (sslength %%%ssgetobject) 2 0)))<br />       (setq %%nuls nil)<br />       (foreach %ls1 kzsj<br /> ;;;  (setq %ls1 (nth 0 kzsj))<br />   (setq %ksmc (car %ls1))<br />   (setq %so_l1 nil)<br />   (setq %so_l1 (cons (list %ksmc "") %so_l1))<br />   (foreach %ls2 (cdr %ls1)<br /> ;;;    (setq %ls2 (nth 0 (cdr %ls1)))<br />     (setq  %so_l1 (cons (list (rtos (car %ls2) 2 0)<br />            (if (= (type (cdr %ls2)) 'STR)<br />              (cdr %ls2)<br />              (rtos (cdr %ls2) 2)<br />            )<br />            (cond<br />              ((= (type (cdr %ls2)) 'STR)<br />               "文本"<br />               )<br />              ((= (type (cdr %ls2)) 'INT)<br />               "整型"<br />               )<br />              ((= (type (cdr %ls2)) 'REAL)<br />               "浮点"<br />               )<br />              (t<br />               ""<br />               )<br />              )<br />            )<br />            %so_l1<br />            )<br />     )<br />     )<br />   (setq %%nuls (cons (reverse %so_l1)%%nuls))<br />   )<br />       (setq %%nuls (reverse %%nuls))<br />       <br /> ;;;      (dcl_grid_filllist NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %%nuls)<br />       (dcl-Grid-Clear NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1)<br />       (setq %hh -1)<br />       (foreach %str1 %%nuls<br /> ;;;  (setq %str1 (car %%nuls))<br />   (setq %str2 (car %str1))<br />   (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str2) "\t" (cadr %str2) "\t文本"))<br />   (setq %hh (1+ %hh))<br />   (foreach %str3 (cdr %str1)<br />     (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str3) "\t" (cadr %str3) "\t" (nth 2 %str3)))<br />     (setq %hh (1+ %hh))<br />     (dcl_grid_setcellstyle NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %hh 1 6)<br />     )<br />   )<br />       <br />       )<br />     )<br />   (princ)<br /> )<br /> <br /> (defun c:NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/TextButton1#OnClicked (/);;;上<br />    (setq %%knum (1- %%knum))<br />   (if (< %%knum 0)<br />     (setq %%knum 0)<br />     )<br />   (setq %%enamet (ssname %%%ssgetobject %%knum))<br />       <br />   <br /> (setq kzsj (cdr (assoc -3 (entget %%enamet '("*")))))<br />       (dcl-Control-SetCaption NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/GraphicButton1 (strcat (rtos (1+ %%knum) 2 0) "/" (rtos (sslength %%%ssgetobject) 2 0)))<br />       (setq %%nuls nil)<br />       (foreach %ls1 kzsj<br /> ;;;  (setq %ls1 (nth 0 kzsj))<br />   (setq %ksmc (car %ls1))<br />   (setq %so_l1 nil)<br />   (setq %so_l1 (cons (list %ksmc "") %so_l1))<br />   (foreach %ls2 (cdr %ls1)<br /> ;;;    (setq %ls2 (nth 0 (cdr %ls1)))<br />     (setq  %so_l1 (cons (list (rtos (car %ls2) 2 0)<br />            (if (= (type (cdr %ls2)) 'STR)<br />              (cdr %ls2)<br />              (rtos (cdr %ls2) 2)<br />            )<br />            (cond<br />              ((= (type (cdr %ls2)) 'STR)<br />               "文本"<br />               )<br />              ((= (type (cdr %ls2)) 'INT)<br />               "整型"<br />               )<br />              ((= (type (cdr %ls2)) 'REAL)<br />               "浮点"<br />               )<br />              (t<br />               ""<br />               )<br />              )<br />            )<br />            %so_l1<br />            )<br />     )<br />     )<br />   (setq %%nuls (cons (reverse %so_l1)%%nuls))<br />   )<br />       (setq %%nuls (reverse %%nuls))<br />       <br /> ;;;      (dcl_grid_filllist NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %%nuls)<br />       (dcl-Grid-Clear NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1)<br />       (setq %hh -1)<br />       (foreach %str1 %%nuls<br /> ;;;  (setq %str1 (car %%nuls))<br />   (setq %str2 (car %str1))<br />   (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str2) "\t" (cadr %str2) "\t文本"))<br />   (setq %hh (1+ %hh))<br />   (foreach %str3 (cdr %str1)<br />     (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str3) "\t" (cadr %str3) "\t" (nth 2 %str3)))<br />     (setq %hh (1+ %hh))<br />     (dcl_grid_setcellstyle NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %hh 1 6)<br />     )<br />   )<br />     (princ)<br /> )<br /> <br /> <br /> (defun c:NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/TextButton2#OnClicked (/);;;;下<br />   (setq %%knum (1+ %%knum))<br />   (if (> %%knum (1- (sslength %%%ssgetobject)))<br />     (setq %%knum (1- (sslength %%%ssgetobject)))<br />     )<br />   (setq %%enamet (ssname %%%ssgetobject %%knum))<br />       =<br />   <br />   (setq kzsj (cdr (assoc -3 (entget %%enamet '("*")))))<br />       (dcl-Control-SetCaption NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/GraphicButton1 (strcat (rtos (1+ %%knum) 2 0) "/" (rtos (sslength %%%ssgetobject) 2 0)))<br />       (setq %%nuls nil)<br />       (foreach %ls1 kzsj<br /> ;;;  (setq %ls1 (nth 0 kzsj))<br />   (setq %ksmc (car %ls1))<br />   (setq %so_l1 nil)<br />   (setq %so_l1 (cons (list %ksmc "") %so_l1))<br />   (foreach %ls2 (cdr %ls1)<br /> ;;;    (setq %ls2 (nth 0 (cdr %ls1)))<br />     (setq  %so_l1 (cons (list (rtos (car %ls2) 2 0)<br />            (if (= (type (cdr %ls2)) 'STR)<br />              (cdr %ls2)<br />              (rtos (cdr %ls2) 2)<br />            )<br />            (cond<br />              ((= (type (cdr %ls2)) 'STR)<br />               "文本"<br />               )<br />              ((= (type (cdr %ls2)) 'INT)<br />               "整型"<br />               )<br />              ((= (type (cdr %ls2)) 'REAL)<br />               "浮点"<br />               )<br />              (t<br />               ""<br />               )<br />              )<br />            )<br />            %so_l1<br />            )<br />     )<br />     )<br />   (setq %%nuls (cons (reverse %so_l1)%%nuls))<br />   )<br />       (setq %%nuls (reverse %%nuls))<br />       <br /> ;;;      (dcl_grid_filllist NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %%nuls)<br />       (dcl-Grid-Clear NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1)<br />       (setq %hh -1)<br />       (foreach %str1 %%nuls<br /> ;;;  (setq %str1 (car %%nuls))<br />   (setq %str2 (car %str1))<br />   (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str2) "\t" (cadr %str2) "\t文本"))<br />   (setq %hh (1+ %hh))<br />   (foreach %str3 (cdr %str1)<br />     (dcl-Grid-AddString NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1  (strcat (car %str3) "\t" (cadr %str3) "\t" (nth 2 %str3)))<br />     (setq %hh (1+ %hh))<br />     (dcl_grid_setcellstyle NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1 %hh 1 6)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> <br /> (defun c:NEWDXTEXTBZOPDCL/NEWDXTEXTBZOPDCL/Grid1#OnEndLabelEdit (Row Column /)<br /> (prompt "只能查看不能修改，期待大神们进行修改")<br />   (princ)<br />   <br /> )<br />

血司

前排赞

li809

过来学习，还是看不懂。

fangmin723

; 错误: no function definition: DCL_PROJECT_IMPORT

永不言弃

fangmin723 发表于 2017-9-20 08:12
; 错误: no function definition: DCL_PROJECT_IMPORT

要加载OPENDCL

fangmin723

永不言弃 发表于 2017-9-20 09:25
要加载OPENDCL

怎么加载？？？

vectra

看到这个帖子专门写了个小工具，传送门

http://bbs.mjtd.com/thread-175538-1-1.html

永不言弃

vectra 发表于 2017-9-20 14:03
看到这个帖子专门写了个小工具，传送门

http://bbs.mjtd.com/thread-175538-1-1.html

非常感谢