改变对象颜色

admin

;------------------------------------
;-功    能：改变对象颜色            -                -         -
;-快 捷 键：1~257                   -

1. ;------------------------------------
   
2. ;-功    能：改变对象颜色            -
   
3. ;-作    者：LXF                     -
   
4. ;-修订时间：2024-02-18              -
   
5. ;-快 捷 键：1~257                   -
   
6. ;------------------------------------
   
7. (DEFUN $dfg:lxf_numcolor$ (/ I X)
   
8. (setq I 1)
   
9. (REPEAT 257
   
10. (cond ((= i 256)
    
11.        (progn (setq X
    
12.                      (STRCAT "(defun c:"
    
13.                              (ITOA I)
    
14.                              "()(setvar "cmdecho" 0)(princ " "
    
15.                              (STRCAT
    
16.                                " 颜色改为< "
    
17.                                "随层"
    
18.                                " >号色 ")(if (setq ss (ssget))"
    
19.                                "(vl-cmdf "change" ss "" "properties" "c" ""
    
20.                                "bylayer"
    
21.                                "" "")))"
    
22.                               )
    
23.                              "(princ)"
    
24.                      )
    
25.               )
    
26.               (if X
    
27.                 (PROGN (EVAL (READ X)))
    
28.               )
    
29.        )
    
30.       )
    
31.       ((= i 257)
    
32.        (progn (setq X
    
33.                      (STRCAT "(defun c:"
    
34.                              (ITOA I)
    
35.                              "()(setvar "cmdecho" 0)(princ " "
    
36.                              (STRCAT
    
37.                                " 颜色改为< "
    
38.                                "随层"
    
39.                                " >号色 ")(if (setq ss (ssget))"
    
40.                                "(vl-cmdf "change" ss "" "properties" "c" ""
    
41.                                "Byblock"
    
42.                                "" "")))"
    
43.                               )
    
44.                              "(princ)"
    
45.                      )
    
46.               )
    
47.               (if X
    
48.                 (PROGN (EVAL (READ X)))
    
49.               )
    
50.        )
    
51.       )
    
52.       (t
    
53.        (progn (setq X
    
54.                      (STRCAT
    
55.                        "(defun c:"
    
56.                        (ITOA I)
    
57.                        "()(setvar "cmdecho" 0)(princ " "
    
58.                        (STRCAT " 颜色改为< "
    
59.                                (ITOA I)
    
60.                                " >号色 ")(if (setq ss (ssget))"
    
61.                                "(vl-cmdf "change" ss "" "properties" "c" ""
    
62.                                (ITOA I)
    
63.                                "" "")))"
    
64.                        )
    
65.                        "(princ)"
    
66.                      )
    
67.               )
    
68.               (if X
    
69.                 (PROGN (EVAL (READ X)))
    
70.               )
    
71.        )
    
72.       )
    
73. )
    
74.     (setq I (1+ I))
    
75.   )
    
76. )
    
77. (defun c:jzys();加载颜色 更改颜色快捷命令为1~257
    
78.   ($dfg:lxf_numcolor$))
    
79. 
    
80. ;;;;---------------------------------------------------------
    
81. ;定义函数 ($lxf:chang-color$ "bylayer")      
    
82. ;程序开始
    
83. (defun $lxf:chang-color$ (color_number / ss)
    
84.   (setvar "cmdecho" 0)
    
85.   (setq ss (ssget))
    
86.   (while ss
    
87.     (if ss (progn(vl-cmdf "_.CHANGE" ss "" "PROPERTIES" "C" color_number "")
    
88.     (princ (strcat "\n *颜色改为<" color_number "> _BY 糯米88*"))
    
89.     (setq ss (ssget))))(princ)
    
90.   )
    
91.   (princ)
    
92. )
    
93. (defun c:1()($lxf:chang-color$ "1"))
    
94. (defun c:2()($lxf:chang-color$ "2"))
    
95. (defun c:3()($lxf:chang-color$ "3"))
    
96. (defun c:4()($lxf:chang-color$ "4"))
    
97. (defun c:5()($lxf:chang-color$ "5"))
    
98. (defun c:6()($lxf:chang-color$ "6"))
    
99. (defun c:7()($lxf:chang-color$ "7"))
    
100. (defun c:8()($lxf:chang-color$ "8"))
     
101. (defun c:9()($lxf:chang-color$ "9"))
     
102. (defun c:10()($lxf:chang-color$ "10"))
     
103. (defun c:11()($lxf:chang-color$ "11"))
     
104. (defun c:12()($lxf:chang-color$ "12"))
     
105. (defun c:13()($lxf:chang-color$ "13"))
     
106. (defun c:14()($lxf:chang-color$ "14"))
     
107. (defun c:15()($lxf:chang-color$ "15"))
     
108. (defun c:16()($lxf:chang-color$ "16"))
     
109. (defun c:17()($lxf:chang-color$ "17"))
     
110. (defun c:18()($lxf:chang-color$ "18"))
     
111. (defun c:19()($lxf:chang-color$ "19"))
     
112. (defun c:20()($lxf:chang-color$ "20"))
     
113. (defun c:21()($lxf:chang-color$ "21"))
     
114. (defun c:22()($lxf:chang-color$ "22"))
     
115. (defun c:23()($lxf:chang-color$ "23"))
     
116. (defun c:24()($lxf:chang-color$ "24"))
     
117. (defun c:25()($lxf:chang-color$ "25"))
     
118. (defun c:26()($lxf:chang-color$ "26"))
     
119. (defun c:27()($lxf:chang-color$ "27"))
     
120. (defun c:28()($lxf:chang-color$ "28"))
     
121. (defun c:29()($lxf:chang-color$ "29"))
     
122. (defun c:30()($lxf:chang-color$ "30"))
     
123. (defun c:31()($lxf:chang-color$ "31"))
     
124. (defun c:32()($lxf:chang-color$ "32"))
     
125. (defun c:33()($lxf:chang-color$ "33"))
     
126. (defun c:34()($lxf:chang-color$ "34"))
     
127. (defun c:35()($lxf:chang-color$ "35"))
     
128. (defun c:36()($lxf:chang-color$ "36"))
     
129. (defun c:37()($lxf:chang-color$ "37"))
     
130. (defun c:38()($lxf:chang-color$ "38"))
     
131. (defun c:39()($lxf:chang-color$ "39"))
     
132. (defun c:40()($lxf:chang-color$ "40"))
     
133. (defun c:41()($lxf:chang-color$ "41"))
     
134. (defun c:42()($lxf:chang-color$ "42"))
     
135. (defun c:43()($lxf:chang-color$ "43"))
     
136. (defun c:44()($lxf:chang-color$ "44"))
     
137. (defun c:45()($lxf:chang-color$ "45"))
     
138. (defun c:46()($lxf:chang-color$ "46"))
     
139. (defun c:47()($lxf:chang-color$ "47"))
     
140. (defun c:48()($lxf:chang-color$ "48"))
     
141. (defun c:49()($lxf:chang-color$ "49"))
     
142. (defun c:50()($lxf:chang-color$ "50"))
     
143. (defun c:51()($lxf:chang-color$ "51"))
     
144. (defun c:52()($lxf:chang-color$ "52"))
     
145. (defun c:53()($lxf:chang-color$ "53"))
     
146. (defun c:54()($lxf:chang-color$ "54"))
     
147. (defun c:55()($lxf:chang-color$ "55"))
     
148. (defun c:56()($lxf:chang-color$ "56"))
     
149. (defun c:57()($lxf:chang-color$ "57"))
     
150. (defun c:58()($lxf:chang-color$ "58"))
     
151. (defun c:59()($lxf:chang-color$ "59"))
     
152. (defun c:60()($lxf:chang-color$ "60"))
     
153. (defun c:61()($lxf:chang-color$ "61"))
     
154. (defun c:62()($lxf:chang-color$ "62"))
     
155. (defun c:63()($lxf:chang-color$ "63"))
     
156. (defun c:64()($lxf:chang-color$ "64"))
     
157. (defun c:65()($lxf:chang-color$ "65"))
     
158. (defun c:66()($lxf:chang-color$ "66"))
     
159. (defun c:67()($lxf:chang-color$ "67"))
     
160. (defun c:68()($lxf:chang-color$ "68"))
     
161. (defun c:69()($lxf:chang-color$ "69"))
     
162. (defun c:70()($lxf:chang-color$ "70"))
     
163. (defun c:71()($lxf:chang-color$ "71"))
     
164. (defun c:72()($lxf:chang-color$ "72"))
     
165. (defun c:73()($lxf:chang-color$ "73"))
     
166. (defun c:74()($lxf:chang-color$ "74"))
     
167. (defun c:75()($lxf:chang-color$ "75"))
     
168. (defun c:76()($lxf:chang-color$ "76"))
     
169. (defun c:77()($lxf:chang-color$ "77"))
     
170. (defun c:78()($lxf:chang-color$ "78"))
     
171. (defun c:79()($lxf:chang-color$ "79"))
     
172. (defun c:80()($lxf:chang-color$ "80"))
     
173. (defun c:81()($lxf:chang-color$ "81"))
     
174. (defun c:82()($lxf:chang-color$ "82"))
     
175. (defun c:83()($lxf:chang-color$ "83"))
     
176. (defun c:84()($lxf:chang-color$ "84"))
     
177. (defun c:85()($lxf:chang-color$ "85"))
     
178. (defun c:86()($lxf:chang-color$ "86"))
     
179. (defun c:87()($lxf:chang-color$ "87"))
     
180. (defun c:88()($lxf:chang-color$ "88"))
     
181. (defun c:89()($lxf:chang-color$ "89"))
     
182. (defun c:90()($lxf:chang-color$ "90"))
     
183. (defun c:91()($lxf:chang-color$ "91"))
     
184. (defun c:92()($lxf:chang-color$ "92"))
     
185. (defun c:93()($lxf:chang-color$ "93"))
     
186. (defun c:94()($lxf:chang-color$ "94"))
     
187. (defun c:95()($lxf:chang-color$ "95"))
     
188. (defun c:96()($lxf:chang-color$ "96"))
     
189. (defun c:97()($lxf:chang-color$ "97"))
     
190. (defun c:98()($lxf:chang-color$ "98"))
     
191. (defun c:99()($lxf:chang-color$ "99"))
     
192. (defun c:100()($lxf:chang-color$ "100"))
     
193. (defun c:101()($lxf:chang-color$ "101"))
     
194. (defun c:102()($lxf:chang-color$ "102"))
     
195. (defun c:103()($lxf:chang-color$ "103"))
     
196. (defun c:104()($lxf:chang-color$ "104"))
     
197. (defun c:105()($lxf:chang-color$ "105"))
     
198. (defun c:106()($lxf:chang-color$ "106"))
     
199. (defun c:107()($lxf:chang-color$ "107"))
     
200. (defun c:108()($lxf:chang-color$ "108"))
     
201. (defun c:109()($lxf:chang-color$ "109"))
     
202. (defun c:110()($lxf:chang-color$ "110"))
     
203. (defun c:111()($lxf:chang-color$ "111"))
     
204. (defun c:112()($lxf:chang-color$ "112"))
     
205. (defun c:113()($lxf:chang-color$ "113"))
     
206. (defun c:114()($lxf:chang-color$ "114"))
     
207. (defun c:115()($lxf:chang-color$ "115"))
     
208. (defun c:116()($lxf:chang-color$ "116"))
     
209. (defun c:117()($lxf:chang-color$ "117"))
     
210. (defun c:118()($lxf:chang-color$ "118"))
     
211. (defun c:119()($lxf:chang-color$ "119"))
     
212. (defun c:120()($lxf:chang-color$ "120"))
     
213. (defun c:121()($lxf:chang-color$ "121"))
     
214. (defun c:122()($lxf:chang-color$ "122"))
     
215. (defun c:123()($lxf:chang-color$ "123"))
     
216. (defun c:124()($lxf:chang-color$ "124"))
     
217. (defun c:125()($lxf:chang-color$ "125"))
     
218. (defun c:126()($lxf:chang-color$ "126"))
     
219. (defun c:127()($lxf:chang-color$ "127"))
     
220. (defun c:128()($lxf:chang-color$ "128"))
     
221. (defun c:129()($lxf:chang-color$ "129"))
     
222. (defun c:130()($lxf:chang-color$ "130"))
     
223. (defun c:131()($lxf:chang-color$ "131"))
     
224. (defun c:132()($lxf:chang-color$ "132"))
     
225. (defun c:133()($lxf:chang-color$ "133"))
     
226. (defun c:134()($lxf:chang-color$ "134"))
     
227. (defun c:135()($lxf:chang-color$ "135"))
     
228. (defun c:136()($lxf:chang-color$ "136"))
     
229. (defun c:137()($lxf:chang-color$ "137"))
     
230. (defun c:138()($lxf:chang-color$ "138"))
     
231. (defun c:139()($lxf:chang-color$ "139"))
     
232. (defun c:140()($lxf:chang-color$ "140"))
     
233. (defun c:141()($lxf:chang-color$ "141"))
     
234. (defun c:142()($lxf:chang-color$ "142"))
     
235. (defun c:143()($lxf:chang-color$ "143"))
     
236. (defun c:144()($lxf:chang-color$ "144"))
     
237. (defun c:145()($lxf:chang-color$ "145"))
     
238. (defun c:146()($lxf:chang-color$ "146"))
     
239. (defun c:147()($lxf:chang-color$ "147"))
     
240. (defun c:148()($lxf:chang-color$ "148"))
     
241. (defun c:149()($lxf:chang-color$ "149"))
     
242. (defun c:150()($lxf:chang-color$ "150"))
     
243. (defun c:151()($lxf:chang-color$ "151"))
     
244. (defun c:152()($lxf:chang-color$ "152"))
     
245. (defun c:153()($lxf:chang-color$ "153"))
     
246. (defun c:154()($lxf:chang-color$ "154"))
     
247. (defun c:155()($lxf:chang-color$ "155"))
     
248. (defun c:156()($lxf:chang-color$ "156"))
     
249. (defun c:157()($lxf:chang-color$ "157"))
     
250. (defun c:158()($lxf:chang-color$ "158"))
     
251. (defun c:159()($lxf:chang-color$ "159"))
     
252. (defun c:160()($lxf:chang-color$ "160"))
     
253. (defun c:161()($lxf:chang-color$ "161"))
     
254. (defun c:162()($lxf:chang-color$ "162"))
     
255. (defun c:163()($lxf:chang-color$ "163"))
     
256. (defun c:164()($lxf:chang-color$ "164"))
     
257. (defun c:165()($lxf:chang-color$ "165"))
     
258. (defun c:166()($lxf:chang-color$ "166"))
     
259. (defun c:167()($lxf:chang-color$ "167"))
     
260. (defun c:168()($lxf:chang-color$ "168"))
     
261. (defun c:169()($lxf:chang-color$ "169"))
     
262. (defun c:170()($lxf:chang-color$ "170"))
     
263. (defun c:171()($lxf:chang-color$ "171"))
     
264. (defun c:172()($lxf:chang-color$ "172"))
     
265. (defun c:173()($lxf:chang-color$ "173"))
     
266. (defun c:174()($lxf:chang-color$ "174"))
     
267. (defun c:175()($lxf:chang-color$ "175"))
     
268. (defun c:176()($lxf:chang-color$ "176"))
     
269. (defun c:177()($lxf:chang-color$ "177"))
     
270. (defun c:178()($lxf:chang-color$ "178"))
     
271. (defun c:179()($lxf:chang-color$ "179"))
     
272. (defun c:180()($lxf:chang-color$ "180"))
     
273. (defun c:181()($lxf:chang-color$ "181"))
     
274. (defun c:182()($lxf:chang-color$ "182"))
     
275. (defun c:183()($lxf:chang-color$ "183"))
     
276. (defun c:184()($lxf:chang-color$ "184"))
     
277. (defun c:185()($lxf:chang-color$ "185"))
     
278. (defun c:186()($lxf:chang-color$ "186"))
     
279. (defun c:187()($lxf:chang-color$ "187"))
     
280. (defun c:188()($lxf:chang-color$ "188"))
     
281. (defun c:189()($lxf:chang-color$ "189"))
     
282. (defun c:190()($lxf:chang-color$ "190"))
     
283. (defun c:191()($lxf:chang-color$ "191"))
     
284. (defun c:192()($lxf:chang-color$ "192"))
     
285. (defun c:193()($lxf:chang-color$ "193"))
     
286. (defun c:194()($lxf:chang-color$ "194"))
     
287. (defun c:195()($lxf:chang-color$ "195"))
     
288. (defun c:196()($lxf:chang-color$ "196"))
     
289. (defun c:197()($lxf:chang-color$ "197"))
     
290. (defun c:198()($lxf:chang-color$ "198"))
     
291. (defun c:199()($lxf:chang-color$ "199"))
     
292. (defun c:200()($lxf:chang-color$ "200"))
     
293. (defun c:201()($lxf:chang-color$ "201"))
     
294. (defun c:202()($lxf:chang-color$ "202"))
     
295. (defun c:203()($lxf:chang-color$ "203"))
     
296. (defun c:204()($lxf:chang-color$ "204"))
     
297. (defun c:205()($lxf:chang-color$ "205"))
     
298. (defun c:206()($lxf:chang-color$ "206"))
     
299. (defun c:207()($lxf:chang-color$ "207"))
     
300. (defun c:208()($lxf:chang-color$ "208"))
     
301. (defun c:209()($lxf:chang-color$ "209"))
     
302. (defun c:210()($lxf:chang-color$ "210"))
     
303. (defun c:211()($lxf:chang-color$ "211"))
     
304. (defun c:212()($lxf:chang-color$ "212"))
     
305. (defun c:213()($lxf:chang-color$ "213"))
     
306. (defun c:214()($lxf:chang-color$ "214"))
     
307. (defun c:215()($lxf:chang-color$ "215"))
     
308. (defun c:216()($lxf:chang-color$ "216"))
     
309. (defun c:217()($lxf:chang-color$ "217"))
     
310. (defun c:218()($lxf:chang-color$ "218"))
     
311. (defun c:219()($lxf:chang-color$ "219"))
     
312. (defun c:220()($lxf:chang-color$ "220"))
     
313. (defun c:221()($lxf:chang-color$ "221"))
     
314. (defun c:222()($lxf:chang-color$ "222"))
     
315. (defun c:223()($lxf:chang-color$ "223"))
     
316. (defun c:224()($lxf:chang-color$ "224"))
     
317. (defun c:225()($lxf:chang-color$ "225"))
     
318. (defun c:226()($lxf:chang-color$ "226"))
     
319. (defun c:227()($lxf:chang-color$ "227"))
     
320. (defun c:228()($lxf:chang-color$ "228"))
     
321. (defun c:229()($lxf:chang-color$ "229"))
     
322. (defun c:230()($lxf:chang-color$ "230"))
     
323. (defun c:231()($lxf:chang-color$ "231"))
     
324. (defun c:232()($lxf:chang-color$ "232"))
     
325. (defun c:233()($lxf:chang-color$ "233"))
     
326. (defun c:234()($lxf:chang-color$ "234"))
     
327. (defun c:235()($lxf:chang-color$ "235"))
     
328. (defun c:236()($lxf:chang-color$ "236"))
     
329. (defun c:237()($lxf:chang-color$ "237"))
     
330. (defun c:238()($lxf:chang-color$ "238"))
     
331. (defun c:239()($lxf:chang-color$ "239"))
     
332. (defun c:240()($lxf:chang-color$ "240"))
     
333. (defun c:241()($lxf:chang-color$ "241"))
     
334. (defun c:242()($lxf:chang-color$ "242"))
     
335. (defun c:243()($lxf:chang-color$ "243"))
     
336. (defun c:244()($lxf:chang-color$ "244"))
     
337. (defun c:245()($lxf:chang-color$ "245"))
     
338. (defun c:246()($lxf:chang-color$ "246"))
     
339. (defun c:247()($lxf:chang-color$ "247"))
     
340. (defun c:248()($lxf:chang-color$ "248"))
     
341. (defun c:249()($lxf:chang-color$ "249"))
     
342. (defun c:250()($lxf:chang-color$ "250"))
     
343. (defun c:251()($lxf:chang-color$ "251"))
     
344. (defun c:252()($lxf:chang-color$ "252"))
     
345. (defun c:253()($lxf:chang-color$ "253"))
     
346. (defun c:254()($lxf:chang-color$ "254"))
     
347. (defun c:255()($lxf:chang-color$ "255"))
     
348. (defun c:256()($lxf:chang-color$ "bylayer"))
     
349. (defun c:257()($lxf:chang-color$ "Byblock"))
     
350. (princ)

复制代码