改变对象颜色

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$))
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)

复制代码