二种写法，改变线型颜色，命令1~257

lxf20190917

下面说下二种更改线型的代码写法

一、常规的写法，先定义一个函数，再逐行写命令，从1~257。

演示方法一：

2. ;定义函数 ($lxf:chang-color$ "bylayer")      
   
3. ;程序开始
   
4. (defun $lxf:chang-color$ (color_number / ss)
   
5.   (setvar "cmdecho" 0)
   
6.   (setq ss (ssget))
   
7.   (while ss
   
8.     (if ss (progn(vl-cmdf "_.CHANGE" ss "" "PROPERTIES" "C" color_number "")
   
9.     (princ (strcat "\n *颜色改为<" color_number "> _BY 糯米88*"))
   
10.     (setq ss (ssget))))(princ)
    
11.   )
    
12.   (princ)
    
13. )

;定义函数 ($lxf:chang-color$ "bylayer")       <br /> ;程序开始<br /> (defun $lxf:chang-color$ (color_number / ss)<br />   (setvar "cmdecho" 0)<br />   (setq ss (ssget))<br />   (while ss <br />     (if ss (progn(vl-cmdf "_.CHANGE" ss "" "PROPERTIES" "C" color_number "")<br />     (princ (strcat "\n *颜色改为<" color_number "> _BY 糯米88*"))<br />     (setq ss (ssget))))(princ)<br />   )<br />   (princ)<br /> )

快捷命令为1~257，可以根据自己习惯修改。

2. (defun c:1()($lxf:chang-color$ "1"))
   
3. (defun c:2()($lxf:chang-color$ "2"))
   
4. (defun c:3()($lxf:chang-color$ "3"))
   
5. (defun c:4()($lxf:chang-color$ "4"))
   
6. (defun c:5()($lxf:chang-color$ "5"))
   
7. (defun c:6()($lxf:chang-color$ "6"))
   
8. (defun c:7()($lxf:chang-color$ "7"))
   
9. (defun c:8()($lxf:chang-color$ "8"))
   
10. (defun c:9()($lxf:chang-color$ "9"))
    
11. (defun c:10()($lxf:chang-color$ "10"))
    
12. (defun c:11()($lxf:chang-color$ "11"))
    
13. (defun c:12()($lxf:chang-color$ "12"))
    
14. (defun c:13()($lxf:chang-color$ "13"))
    
15. (defun c:14()($lxf:chang-color$ "14"))
    
16. (defun c:15()($lxf:chang-color$ "15"))
    
17. (defun c:16()($lxf:chang-color$ "16"))
    
18. (defun c:17()($lxf:chang-color$ "17"))
    
19. (defun c:18()($lxf:chang-color$ "18"))
    
20. (defun c:19()($lxf:chang-color$ "19"))
    
21. (defun c:20()($lxf:chang-color$ "20"))
    
22. (defun c:21()($lxf:chang-color$ "21"))
    
23. (defun c:22()($lxf:chang-color$ "22"))
    
24. (defun c:23()($lxf:chang-color$ "23"))
    
25. (defun c:24()($lxf:chang-color$ "24"))
    
26. (defun c:25()($lxf:chang-color$ "25"))
    
27. (defun c:26()($lxf:chang-color$ "26"))
    
28. (defun c:27()($lxf:chang-color$ "27"))
    
29. (defun c:28()($lxf:chang-color$ "28"))
    
30. (defun c:29()($lxf:chang-color$ "29"))
    
31. (defun c:30()($lxf:chang-color$ "30"))
    
32. (defun c:31()($lxf:chang-color$ "31"))
    
33. (defun c:32()($lxf:chang-color$ "32"))
    
34. (defun c:33()($lxf:chang-color$ "33"))
    
35. (defun c:34()($lxf:chang-color$ "34"))
    
36. (defun c:35()($lxf:chang-color$ "35"))
    
37. (defun c:36()($lxf:chang-color$ "36"))
    
38. (defun c:37()($lxf:chang-color$ "37"))
    
39. (defun c:38()($lxf:chang-color$ "38"))
    
40. (defun c:39()($lxf:chang-color$ "39"))
    
41. (defun c:40()($lxf:chang-color$ "40"))
    
42. (defun c:41()($lxf:chang-color$ "41"))
    
43. (defun c:42()($lxf:chang-color$ "42"))
    
44. (defun c:43()($lxf:chang-color$ "43"))
    
45. (defun c:44()($lxf:chang-color$ "44"))
    
46. (defun c:45()($lxf:chang-color$ "45"))
    
47. (defun c:46()($lxf:chang-color$ "46"))
    
48. (defun c:47()($lxf:chang-color$ "47"))
    
49. (defun c:48()($lxf:chang-color$ "48"))
    
50. (defun c:49()($lxf:chang-color$ "49"))
    
51. (defun c:50()($lxf:chang-color$ "50"))
    
52. (defun c:51()($lxf:chang-color$ "51"))
    
53. (defun c:52()($lxf:chang-color$ "52"))
    
54. (defun c:53()($lxf:chang-color$ "53"))
    
55. (defun c:54()($lxf:chang-color$ "54"))
    
56. (defun c:55()($lxf:chang-color$ "55"))
    
57. (defun c:56()($lxf:chang-color$ "56"))
    
58. (defun c:57()($lxf:chang-color$ "57"))
    
59. (defun c:58()($lxf:chang-color$ "58"))
    
60. (defun c:59()($lxf:chang-color$ "59"))
    
61. (defun c:60()($lxf:chang-color$ "60"))
    
62. (defun c:61()($lxf:chang-color$ "61"))
    
63. (defun c:62()($lxf:chang-color$ "62"))
    
64. (defun c:63()($lxf:chang-color$ "63"))
    
65. (defun c:64()($lxf:chang-color$ "64"))
    
66. (defun c:65()($lxf:chang-color$ "65"))
    
67. (defun c:66()($lxf:chang-color$ "66"))
    
68. (defun c:67()($lxf:chang-color$ "67"))
    
69. (defun c:68()($lxf:chang-color$ "68"))
    
70. (defun c:69()($lxf:chang-color$ "69"))
    
71. (defun c:70()($lxf:chang-color$ "70"))
    
72. (defun c:71()($lxf:chang-color$ "71"))
    
73. (defun c:72()($lxf:chang-color$ "72"))
    
74. (defun c:73()($lxf:chang-color$ "73"))
    
75. (defun c:74()($lxf:chang-color$ "74"))
    
76. (defun c:75()($lxf:chang-color$ "75"))
    
77. (defun c:76()($lxf:chang-color$ "76"))
    
78. (defun c:77()($lxf:chang-color$ "77"))
    
79. (defun c:78()($lxf:chang-color$ "78"))
    
80. (defun c:79()($lxf:chang-color$ "79"))
    
81. (defun c:80()($lxf:chang-color$ "80"))
    
82. (defun c:81()($lxf:chang-color$ "81"))
    
83. (defun c:82()($lxf:chang-color$ "82"))
    
84. (defun c:83()($lxf:chang-color$ "83"))
    
85. (defun c:84()($lxf:chang-color$ "84"))
    
86. (defun c:85()($lxf:chang-color$ "85"))
    
87. (defun c:86()($lxf:chang-color$ "86"))
    
88. (defun c:87()($lxf:chang-color$ "87"))
    
89. (defun c:88()($lxf:chang-color$ "88"))
    
90. (defun c:89()($lxf:chang-color$ "89"))
    
91. (defun c:90()($lxf:chang-color$ "90"))
    
92. (defun c:91()($lxf:chang-color$ "91"))
    
93. (defun c:92()($lxf:chang-color$ "92"))
    
94. (defun c:93()($lxf:chang-color$ "93"))
    
95. (defun c:94()($lxf:chang-color$ "94"))
    
96. (defun c:95()($lxf:chang-color$ "95"))
    
97. (defun c:96()($lxf:chang-color$ "96"))
    
98. (defun c:97()($lxf:chang-color$ "97"))
    
99. (defun c:98()($lxf:chang-color$ "98"))
    
100. (defun c:99()($lxf:chang-color$ "99"))
     
101. (defun c:100()($lxf:chang-color$ "100"))
     
102. (defun c:101()($lxf:chang-color$ "101"))
     
103. (defun c:102()($lxf:chang-color$ "102"))
     
104. (defun c:103()($lxf:chang-color$ "103"))
     
105. (defun c:104()($lxf:chang-color$ "104"))
     
106. (defun c:105()($lxf:chang-color$ "105"))
     
107. (defun c:106()($lxf:chang-color$ "106"))
     
108. (defun c:107()($lxf:chang-color$ "107"))
     
109. (defun c:108()($lxf:chang-color$ "108"))
     
110. (defun c:109()($lxf:chang-color$ "109"))
     
111. (defun c:110()($lxf:chang-color$ "110"))
     
112. (defun c:111()($lxf:chang-color$ "111"))
     
113. (defun c:112()($lxf:chang-color$ "112"))
     
114. (defun c:113()($lxf:chang-color$ "113"))
     
115. (defun c:114()($lxf:chang-color$ "114"))
     
116. (defun c:115()($lxf:chang-color$ "115"))
     
117. (defun c:116()($lxf:chang-color$ "116"))
     
118. (defun c:117()($lxf:chang-color$ "117"))
     
119. (defun c:118()($lxf:chang-color$ "118"))
     
120. (defun c:119()($lxf:chang-color$ "119"))
     
121. (defun c:120()($lxf:chang-color$ "120"))
     
122. (defun c:121()($lxf:chang-color$ "121"))
     
123. (defun c:122()($lxf:chang-color$ "122"))
     
124. (defun c:123()($lxf:chang-color$ "123"))
     
125. (defun c:124()($lxf:chang-color$ "124"))
     
126. (defun c:125()($lxf:chang-color$ "125"))
     
127. (defun c:126()($lxf:chang-color$ "126"))
     
128. (defun c:127()($lxf:chang-color$ "127"))
     
129. (defun c:128()($lxf:chang-color$ "128"))
     
130. (defun c:129()($lxf:chang-color$ "129"))
     
131. (defun c:130()($lxf:chang-color$ "130"))
     
132. (defun c:131()($lxf:chang-color$ "131"))
     
133. (defun c:132()($lxf:chang-color$ "132"))
     
134. (defun c:133()($lxf:chang-color$ "133"))
     
135. (defun c:134()($lxf:chang-color$ "134"))
     
136. (defun c:135()($lxf:chang-color$ "135"))
     
137. (defun c:136()($lxf:chang-color$ "136"))
     
138. (defun c:137()($lxf:chang-color$ "137"))
     
139. (defun c:138()($lxf:chang-color$ "138"))
     
140. (defun c:139()($lxf:chang-color$ "139"))
     
141. (defun c:140()($lxf:chang-color$ "140"))
     
142. (defun c:141()($lxf:chang-color$ "141"))
     
143. (defun c:142()($lxf:chang-color$ "142"))
     
144. (defun c:143()($lxf:chang-color$ "143"))
     
145. (defun c:144()($lxf:chang-color$ "144"))
     
146. (defun c:145()($lxf:chang-color$ "145"))
     
147. (defun c:146()($lxf:chang-color$ "146"))
     
148. (defun c:147()($lxf:chang-color$ "147"))
     
149. (defun c:148()($lxf:chang-color$ "148"))
     
150. (defun c:149()($lxf:chang-color$ "149"))
     
151. (defun c:150()($lxf:chang-color$ "150"))
     
152. (defun c:151()($lxf:chang-color$ "151"))
     
153. (defun c:152()($lxf:chang-color$ "152"))
     
154. (defun c:153()($lxf:chang-color$ "153"))
     
155. (defun c:154()($lxf:chang-color$ "154"))
     
156. (defun c:155()($lxf:chang-color$ "155"))
     
157. (defun c:156()($lxf:chang-color$ "156"))
     
158. (defun c:157()($lxf:chang-color$ "157"))
     
159. (defun c:158()($lxf:chang-color$ "158"))
     
160. (defun c:159()($lxf:chang-color$ "159"))
     
161. (defun c:160()($lxf:chang-color$ "160"))
     
162. (defun c:161()($lxf:chang-color$ "161"))
     
163. (defun c:162()($lxf:chang-color$ "162"))
     
164. (defun c:163()($lxf:chang-color$ "163"))
     
165. (defun c:164()($lxf:chang-color$ "164"))
     
166. (defun c:165()($lxf:chang-color$ "165"))
     
167. (defun c:166()($lxf:chang-color$ "166"))
     
168. (defun c:167()($lxf:chang-color$ "167"))
     
169. (defun c:168()($lxf:chang-color$ "168"))
     
170. (defun c:169()($lxf:chang-color$ "169"))
     
171. (defun c:170()($lxf:chang-color$ "170"))
     
172. (defun c:171()($lxf:chang-color$ "171"))
     
173. (defun c:172()($lxf:chang-color$ "172"))
     
174. (defun c:173()($lxf:chang-color$ "173"))
     
175. (defun c:174()($lxf:chang-color$ "174"))
     
176. (defun c:175()($lxf:chang-color$ "175"))
     
177. (defun c:176()($lxf:chang-color$ "176"))
     
178. (defun c:177()($lxf:chang-color$ "177"))
     
179. (defun c:178()($lxf:chang-color$ "178"))
     
180. (defun c:179()($lxf:chang-color$ "179"))
     
181. (defun c:180()($lxf:chang-color$ "180"))
     
182. (defun c:181()($lxf:chang-color$ "181"))
     
183. (defun c:182()($lxf:chang-color$ "182"))
     
184. (defun c:183()($lxf:chang-color$ "183"))
     
185. (defun c:184()($lxf:chang-color$ "184"))
     
186. (defun c:185()($lxf:chang-color$ "185"))
     
187. (defun c:186()($lxf:chang-color$ "186"))
     
188. (defun c:187()($lxf:chang-color$ "187"))
     
189. (defun c:188()($lxf:chang-color$ "188"))
     
190. (defun c:189()($lxf:chang-color$ "189"))
     
191. (defun c:190()($lxf:chang-color$ "190"))
     
192. (defun c:191()($lxf:chang-color$ "191"))
     
193. (defun c:192()($lxf:chang-color$ "192"))
     
194. (defun c:193()($lxf:chang-color$ "193"))
     
195. (defun c:194()($lxf:chang-color$ "194"))
     
196. (defun c:195()($lxf:chang-color$ "195"))
     
197. (defun c:196()($lxf:chang-color$ "196"))
     
198. (defun c:197()($lxf:chang-color$ "197"))
     
199. (defun c:198()($lxf:chang-color$ "198"))
     
200. (defun c:199()($lxf:chang-color$ "199"))
     
201. (defun c:200()($lxf:chang-color$ "200"))
     
202. (defun c:201()($lxf:chang-color$ "201"))
     
203. (defun c:202()($lxf:chang-color$ "202"))
     
204. (defun c:203()($lxf:chang-color$ "203"))
     
205. (defun c:204()($lxf:chang-color$ "204"))
     
206. (defun c:205()($lxf:chang-color$ "205"))
     
207. (defun c:206()($lxf:chang-color$ "206"))
     
208. (defun c:207()($lxf:chang-color$ "207"))
     
209. (defun c:208()($lxf:chang-color$ "208"))
     
210. (defun c:209()($lxf:chang-color$ "209"))
     
211. (defun c:210()($lxf:chang-color$ "210"))
     
212. (defun c:211()($lxf:chang-color$ "211"))
     
213. (defun c:212()($lxf:chang-color$ "212"))
     
214. (defun c:213()($lxf:chang-color$ "213"))
     
215. (defun c:214()($lxf:chang-color$ "214"))
     
216. (defun c:215()($lxf:chang-color$ "215"))
     
217. (defun c:216()($lxf:chang-color$ "216"))
     
218. (defun c:217()($lxf:chang-color$ "217"))
     
219. (defun c:218()($lxf:chang-color$ "218"))
     
220. (defun c:219()($lxf:chang-color$ "219"))
     
221. (defun c:220()($lxf:chang-color$ "220"))
     
222. (defun c:221()($lxf:chang-color$ "221"))
     
223. (defun c:222()($lxf:chang-color$ "222"))
     
224. (defun c:223()($lxf:chang-color$ "223"))
     
225. (defun c:224()($lxf:chang-color$ "224"))
     
226. (defun c:225()($lxf:chang-color$ "225"))
     
227. (defun c:226()($lxf:chang-color$ "226"))
     
228. (defun c:227()($lxf:chang-color$ "227"))
     
229. (defun c:228()($lxf:chang-color$ "228"))
     
230. (defun c:229()($lxf:chang-color$ "229"))
     
231. (defun c:230()($lxf:chang-color$ "230"))
     
232. (defun c:231()($lxf:chang-color$ "231"))
     
233. (defun c:232()($lxf:chang-color$ "232"))
     
234. (defun c:233()($lxf:chang-color$ "233"))
     
235. (defun c:234()($lxf:chang-color$ "234"))
     
236. (defun c:235()($lxf:chang-color$ "235"))
     
237. (defun c:236()($lxf:chang-color$ "236"))
     
238. (defun c:237()($lxf:chang-color$ "237"))
     
239. (defun c:238()($lxf:chang-color$ "238"))
     
240. (defun c:239()($lxf:chang-color$ "239"))
     
241. (defun c:240()($lxf:chang-color$ "240"))
     
242. (defun c:241()($lxf:chang-color$ "241"))
     
243. (defun c:242()($lxf:chang-color$ "242"))
     
244. (defun c:243()($lxf:chang-color$ "243"))
     
245. (defun c:244()($lxf:chang-color$ "244"))
     
246. (defun c:245()($lxf:chang-color$ "245"))
     
247. (defun c:246()($lxf:chang-color$ "246"))
     
248. (defun c:247()($lxf:chang-color$ "247"))
     
249. (defun c:248()($lxf:chang-color$ "248"))
     
250. (defun c:249()($lxf:chang-color$ "249"))
     
251. (defun c:250()($lxf:chang-color$ "250"))
     
252. (defun c:251()($lxf:chang-color$ "251"))
     
253. (defun c:252()($lxf:chang-color$ "252"))
     
254. (defun c:253()($lxf:chang-color$ "253"))
     
255. (defun c:254()($lxf:chang-color$ "254"))
     
256. (defun c:255()($lxf:chang-color$ "255"))
     
257. (defun c:256()($lxf:chang-color$ "bylayer"))
     
258. (defun c:257()($lxf:chang-color$ "Byblock"))
     
259. (princ)

(defun c:1()($lxf:chang-color$ "1"))<br /> (defun c:2()($lxf:chang-color$ "2"))<br /> (defun c:3()($lxf:chang-color$ "3"))<br /> (defun c:4()($lxf:chang-color$ "4"))<br /> (defun c:5()($lxf:chang-color$ "5"))<br /> (defun c:6()($lxf:chang-color$ "6"))<br /> (defun c:7()($lxf:chang-color$ "7"))<br /> (defun c:8()($lxf:chang-color$ "8"))<br /> (defun c:9()($lxf:chang-color$ "9"))<br /> (defun c:10()($lxf:chang-color$ "10"))<br /> (defun c:11()($lxf:chang-color$ "11"))<br /> (defun c:12()($lxf:chang-color$ "12"))<br /> (defun c:13()($lxf:chang-color$ "13"))<br /> (defun c:14()($lxf:chang-color$ "14"))<br /> (defun c:15()($lxf:chang-color$ "15"))<br /> (defun c:16()($lxf:chang-color$ "16"))<br /> (defun c:17()($lxf:chang-color$ "17"))<br /> (defun c:18()($lxf:chang-color$ "18"))<br /> (defun c:19()($lxf:chang-color$ "19"))<br /> (defun c:20()($lxf:chang-color$ "20"))<br /> (defun c:21()($lxf:chang-color$ "21"))<br /> (defun c:22()($lxf:chang-color$ "22"))<br /> (defun c:23()($lxf:chang-color$ "23"))<br /> (defun c:24()($lxf:chang-color$ "24"))<br /> (defun c:25()($lxf:chang-color$ "25"))<br /> (defun c:26()($lxf:chang-color$ "26"))<br /> (defun c:27()($lxf:chang-color$ "27"))<br /> (defun c:28()($lxf:chang-color$ "28"))<br /> (defun c:29()($lxf:chang-color$ "29"))<br /> (defun c:30()($lxf:chang-color$ "30"))<br /> (defun c:31()($lxf:chang-color$ "31"))<br /> (defun c:32()($lxf:chang-color$ "32"))<br /> (defun c:33()($lxf:chang-color$ "33"))<br /> (defun c:34()($lxf:chang-color$ "34"))<br /> (defun c:35()($lxf:chang-color$ "35"))<br /> (defun c:36()($lxf:chang-color$ "36"))<br /> (defun c:37()($lxf:chang-color$ "37"))<br /> (defun c:38()($lxf:chang-color$ "38"))<br /> (defun c:39()($lxf:chang-color$ "39"))<br /> (defun c:40()($lxf:chang-color$ "40"))<br /> (defun c:41()($lxf:chang-color$ "41"))<br /> (defun c:42()($lxf:chang-color$ "42"))<br /> (defun c:43()($lxf:chang-color$ "43"))<br /> (defun c:44()($lxf:chang-color$ "44"))<br /> (defun c:45()($lxf:chang-color$ "45"))<br /> (defun c:46()($lxf:chang-color$ "46"))<br /> (defun c:47()($lxf:chang-color$ "47"))<br /> (defun c:48()($lxf:chang-color$ "48"))<br /> (defun c:49()($lxf:chang-color$ "49"))<br /> (defun c:50()($lxf:chang-color$ "50"))<br /> (defun c:51()($lxf:chang-color$ "51"))<br /> (defun c:52()($lxf:chang-color$ "52"))<br /> (defun c:53()($lxf:chang-color$ "53"))<br /> (defun c:54()($lxf:chang-color$ "54"))<br /> (defun c:55()($lxf:chang-color$ "55"))<br /> (defun c:56()($lxf:chang-color$ "56"))<br /> (defun c:57()($lxf:chang-color$ "57"))<br /> (defun c:58()($lxf:chang-color$ "58"))<br /> (defun c:59()($lxf:chang-color$ "59"))<br /> (defun c:60()($lxf:chang-color$ "60"))<br /> (defun c:61()($lxf:chang-color$ "61"))<br /> (defun c:62()($lxf:chang-color$ "62"))<br /> (defun c:63()($lxf:chang-color$ "63"))<br /> (defun c:64()($lxf:chang-color$ "64"))<br /> (defun c:65()($lxf:chang-color$ "65"))<br /> (defun c:66()($lxf:chang-color$ "66"))<br /> (defun c:67()($lxf:chang-color$ "67"))<br /> (defun c:68()($lxf:chang-color$ "68"))<br /> (defun c:69()($lxf:chang-color$ "69"))<br /> (defun c:70()($lxf:chang-color$ "70"))<br /> (defun c:71()($lxf:chang-color$ "71"))<br /> (defun c:72()($lxf:chang-color$ "72"))<br /> (defun c:73()($lxf:chang-color$ "73"))<br /> (defun c:74()($lxf:chang-color$ "74"))<br /> (defun c:75()($lxf:chang-color$ "75"))<br /> (defun c:76()($lxf:chang-color$ "76"))<br /> (defun c:77()($lxf:chang-color$ "77"))<br /> (defun c:78()($lxf:chang-color$ "78"))<br /> (defun c:79()($lxf:chang-color$ "79"))<br /> (defun c:80()($lxf:chang-color$ "80"))<br /> (defun c:81()($lxf:chang-color$ "81"))<br /> (defun c:82()($lxf:chang-color$ "82"))<br /> (defun c:83()($lxf:chang-color$ "83"))<br /> (defun c:84()($lxf:chang-color$ "84"))<br /> (defun c:85()($lxf:chang-color$ "85"))<br /> (defun c:86()($lxf:chang-color$ "86"))<br /> (defun c:87()($lxf:chang-color$ "87"))<br /> (defun c:88()($lxf:chang-color$ "88"))<br /> (defun c:89()($lxf:chang-color$ "89"))<br /> (defun c:90()($lxf:chang-color$ "90"))<br /> (defun c:91()($lxf:chang-color$ "91"))<br /> (defun c:92()($lxf:chang-color$ "92"))<br /> (defun c:93()($lxf:chang-color$ "93"))<br /> (defun c:94()($lxf:chang-color$ "94"))<br /> (defun c:95()($lxf:chang-color$ "95"))<br /> (defun c:96()($lxf:chang-color$ "96"))<br /> (defun c:97()($lxf:chang-color$ "97"))<br /> (defun c:98()($lxf:chang-color$ "98"))<br /> (defun c:99()($lxf:chang-color$ "99"))<br /> (defun c:100()($lxf:chang-color$ "100"))<br /> (defun c:101()($lxf:chang-color$ "101"))<br /> (defun c:102()($lxf:chang-color$ "102"))<br /> (defun c:103()($lxf:chang-color$ "103"))<br /> (defun c:104()($lxf:chang-color$ "104"))<br /> (defun c:105()($lxf:chang-color$ "105"))<br /> (defun c:106()($lxf:chang-color$ "106"))<br /> (defun c:107()($lxf:chang-color$ "107"))<br /> (defun c:108()($lxf:chang-color$ "108"))<br /> (defun c:109()($lxf:chang-color$ "109"))<br /> (defun c:110()($lxf:chang-color$ "110"))<br /> (defun c:111()($lxf:chang-color$ "111"))<br /> (defun c:112()($lxf:chang-color$ "112"))<br /> (defun c:113()($lxf:chang-color$ "113"))<br /> (defun c:114()($lxf:chang-color$ "114"))<br /> (defun c:115()($lxf:chang-color$ "115"))<br /> (defun c:116()($lxf:chang-color$ "116"))<br /> (defun c:117()($lxf:chang-color$ "117"))<br /> (defun c:118()($lxf:chang-color$ "118"))<br /> (defun c:119()($lxf:chang-color$ "119"))<br /> (defun c:120()($lxf:chang-color$ "120"))<br /> (defun c:121()($lxf:chang-color$ "121"))<br /> (defun c:122()($lxf:chang-color$ "122"))<br /> (defun c:123()($lxf:chang-color$ "123"))<br /> (defun c:124()($lxf:chang-color$ "124"))<br /> (defun c:125()($lxf:chang-color$ "125"))<br /> (defun c:126()($lxf:chang-color$ "126"))<br /> (defun c:127()($lxf:chang-color$ "127"))<br /> (defun c:128()($lxf:chang-color$ "128"))<br /> (defun c:129()($lxf:chang-color$ "129"))<br /> (defun c:130()($lxf:chang-color$ "130"))<br /> (defun c:131()($lxf:chang-color$ "131"))<br /> (defun c:132()($lxf:chang-color$ "132"))<br /> (defun c:133()($lxf:chang-color$ "133"))<br /> (defun c:134()($lxf:chang-color$ "134"))<br /> (defun c:135()($lxf:chang-color$ "135"))<br /> (defun c:136()($lxf:chang-color$ "136"))<br /> (defun c:137()($lxf:chang-color$ "137"))<br /> (defun c:138()($lxf:chang-color$ "138"))<br /> (defun c:139()($lxf:chang-color$ "139"))<br /> (defun c:140()($lxf:chang-color$ "140"))<br /> (defun c:141()($lxf:chang-color$ "141"))<br /> (defun c:142()($lxf:chang-color$ "142"))<br /> (defun c:143()($lxf:chang-color$ "143"))<br /> (defun c:144()($lxf:chang-color$ "144"))<br /> (defun c:145()($lxf:chang-color$ "145"))<br /> (defun c:146()($lxf:chang-color$ "146"))<br /> (defun c:147()($lxf:chang-color$ "147"))<br /> (defun c:148()($lxf:chang-color$ "148"))<br /> (defun c:149()($lxf:chang-color$ "149"))<br /> (defun c:150()($lxf:chang-color$ "150"))<br /> (defun c:151()($lxf:chang-color$ "151"))<br /> (defun c:152()($lxf:chang-color$ "152"))<br /> (defun c:153()($lxf:chang-color$ "153"))<br /> (defun c:154()($lxf:chang-color$ "154"))<br /> (defun c:155()($lxf:chang-color$ "155"))<br /> (defun c:156()($lxf:chang-color$ "156"))<br /> (defun c:157()($lxf:chang-color$ "157"))<br /> (defun c:158()($lxf:chang-color$ "158"))<br /> (defun c:159()($lxf:chang-color$ "159"))<br /> (defun c:160()($lxf:chang-color$ "160"))<br /> (defun c:161()($lxf:chang-color$ "161"))<br /> (defun c:162()($lxf:chang-color$ "162"))<br /> (defun c:163()($lxf:chang-color$ "163"))<br /> (defun c:164()($lxf:chang-color$ "164"))<br /> (defun c:165()($lxf:chang-color$ "165"))<br /> (defun c:166()($lxf:chang-color$ "166"))<br /> (defun c:167()($lxf:chang-color$ "167"))<br /> (defun c:168()($lxf:chang-color$ "168"))<br /> (defun c:169()($lxf:chang-color$ "169"))<br /> (defun c:170()($lxf:chang-color$ "170"))<br /> (defun c:171()($lxf:chang-color$ "171"))<br /> (defun c:172()($lxf:chang-color$ "172"))<br /> (defun c:173()($lxf:chang-color$ "173"))<br /> (defun c:174()($lxf:chang-color$ "174"))<br /> (defun c:175()($lxf:chang-color$ "175"))<br /> (defun c:176()($lxf:chang-color$ "176"))<br /> (defun c:177()($lxf:chang-color$ "177"))<br /> (defun c:178()($lxf:chang-color$ "178"))<br /> (defun c:179()($lxf:chang-color$ "179"))<br /> (defun c:180()($lxf:chang-color$ "180"))<br /> (defun c:181()($lxf:chang-color$ "181"))<br /> (defun c:182()($lxf:chang-color$ "182"))<br /> (defun c:183()($lxf:chang-color$ "183"))<br /> (defun c:184()($lxf:chang-color$ "184"))<br /> (defun c:185()($lxf:chang-color$ "185"))<br /> (defun c:186()($lxf:chang-color$ "186"))<br /> (defun c:187()($lxf:chang-color$ "187"))<br /> (defun c:188()($lxf:chang-color$ "188"))<br /> (defun c:189()($lxf:chang-color$ "189"))<br /> (defun c:190()($lxf:chang-color$ "190"))<br /> (defun c:191()($lxf:chang-color$ "191"))<br /> (defun c:192()($lxf:chang-color$ "192"))<br /> (defun c:193()($lxf:chang-color$ "193"))<br /> (defun c:194()($lxf:chang-color$ "194"))<br /> (defun c:195()($lxf:chang-color$ "195"))<br /> (defun c:196()($lxf:chang-color$ "196"))<br /> (defun c:197()($lxf:chang-color$ "197"))<br /> (defun c:198()($lxf:chang-color$ "198"))<br /> (defun c:199()($lxf:chang-color$ "199"))<br /> (defun c:200()($lxf:chang-color$ "200"))<br /> (defun c:201()($lxf:chang-color$ "201"))<br /> (defun c:202()($lxf:chang-color$ "202"))<br /> (defun c:203()($lxf:chang-color$ "203"))<br /> (defun c:204()($lxf:chang-color$ "204"))<br /> (defun c:205()($lxf:chang-color$ "205"))<br /> (defun c:206()($lxf:chang-color$ "206"))<br /> (defun c:207()($lxf:chang-color$ "207"))<br /> (defun c:208()($lxf:chang-color$ "208"))<br /> (defun c:209()($lxf:chang-color$ "209"))<br /> (defun c:210()($lxf:chang-color$ "210"))<br /> (defun c:211()($lxf:chang-color$ "211"))<br /> (defun c:212()($lxf:chang-color$ "212"))<br /> (defun c:213()($lxf:chang-color$ "213"))<br /> (defun c:214()($lxf:chang-color$ "214"))<br /> (defun c:215()($lxf:chang-color$ "215"))<br /> (defun c:216()($lxf:chang-color$ "216"))<br /> (defun c:217()($lxf:chang-color$ "217"))<br /> (defun c:218()($lxf:chang-color$ "218"))<br /> (defun c:219()($lxf:chang-color$ "219"))<br /> (defun c:220()($lxf:chang-color$ "220"))<br /> (defun c:221()($lxf:chang-color$ "221"))<br /> (defun c:222()($lxf:chang-color$ "222"))<br /> (defun c:223()($lxf:chang-color$ "223"))<br /> (defun c:224()($lxf:chang-color$ "224"))<br /> (defun c:225()($lxf:chang-color$ "225"))<br /> (defun c:226()($lxf:chang-color$ "226"))<br /> (defun c:227()($lxf:chang-color$ "227"))<br /> (defun c:228()($lxf:chang-color$ "228"))<br /> (defun c:229()($lxf:chang-color$ "229"))<br /> (defun c:230()($lxf:chang-color$ "230"))<br /> (defun c:231()($lxf:chang-color$ "231"))<br /> (defun c:232()($lxf:chang-color$ "232"))<br /> (defun c:233()($lxf:chang-color$ "233"))<br /> (defun c:234()($lxf:chang-color$ "234"))<br /> (defun c:235()($lxf:chang-color$ "235"))<br /> (defun c:236()($lxf:chang-color$ "236"))<br /> (defun c:237()($lxf:chang-color$ "237"))<br /> (defun c:238()($lxf:chang-color$ "238"))<br /> (defun c:239()($lxf:chang-color$ "239"))<br /> (defun c:240()($lxf:chang-color$ "240"))<br /> (defun c:241()($lxf:chang-color$ "241"))<br /> (defun c:242()($lxf:chang-color$ "242"))<br /> (defun c:243()($lxf:chang-color$ "243"))<br /> (defun c:244()($lxf:chang-color$ "244"))<br /> (defun c:245()($lxf:chang-color$ "245"))<br /> (defun c:246()($lxf:chang-color$ "246"))<br /> (defun c:247()($lxf:chang-color$ "247"))<br /> (defun c:248()($lxf:chang-color$ "248"))<br /> (defun c:249()($lxf:chang-color$ "249"))<br /> (defun c:250()($lxf:chang-color$ "250"))<br /> (defun c:251()($lxf:chang-color$ "251"))<br /> (defun c:252()($lxf:chang-color$ "252"))<br /> (defun c:253()($lxf:chang-color$ "253"))<br /> (defun c:254()($lxf:chang-color$ "254"))<br /> (defun c:255()($lxf:chang-color$ "255"))<br /> (defun c:256()($lxf:chang-color$ "bylayer"))<br /> (defun c:257()($lxf:chang-color$ "Byblock"))<br /> (princ)

二、简易写法

2. (DEFUN $dfg:lxf_numcolor$ (/ I X)
   
3. (setq I 1)
   
4. (REPEAT 257
   
5. (cond ((= i 256)
   
6.        (progn (setq X
   
7.          (STRCAT "(defun c:"
   
8.            (ITOA I)
   
9.            "()(setvar "cmdecho" 0)(princ " "
   
10.            (STRCAT
    
11.              " 颜色改为< "
    
12.              "随层"
    
13.              " >号色 ")(if (setq ss (ssget))"
    
14.              "(vl-cmdf "change" ss "" "properties" "c" ""
    
15.              "bylayer"
    
16.              "" "")))"
    
17.             )
    
18.            "(princ)"
    
19.          )
    
20.         )
    
21.         (if X
    
22.     (PROGN (EVAL (READ X)))
    
23.         )
    
24.        )
    
25.       )
    
26.       ((= i 257)
    
27.        (progn (setq X
    
28.          (STRCAT "(defun c:"
    
29.            (ITOA I)
    
30.            "()(setvar "cmdecho" 0)(princ " "
    
31.            (STRCAT
    
32.              " 颜色改为< "
    
33.              "随层"
    
34.              " >号色 ")(if (setq ss (ssget))"
    
35.              "(vl-cmdf "change" ss "" "properties" "c" ""
    
36.              "Byblock"
    
37.              "" "")))"
    
38.             )
    
39.            "(princ)"
    
40.          )
    
41.         )
    
42.         (if X
    
43.     (PROGN (EVAL (READ X)))
    
44.         )
    
45.        )
    
46.       )
    
47.       (t
    
48.        (progn (setq X
    
49.          (STRCAT
    
50.            "(defun c:"
    
51.            (ITOA I)
    
52.            "()(setvar "cmdecho" 0)(princ " "
    
53.            (STRCAT " 颜色改为< "
    
54.              (ITOA I)
    
55.              " >号色 ")(if (setq ss (ssget))"
    
56.              "(vl-cmdf "change" ss "" "properties" "c" ""
    
57.              (ITOA I)
    
58.              "" "")))"
    
59.            )
    
60.            "(princ)"
    
61.          )
    
62.         )
    
63.         (if X
    
64.     (PROGN (EVAL (READ X)))
    
65.         )
    
66.        )
    
67.       )
    
68. )
    
69.     (setq I (1+ I))
    
70.   )
    
71. )

(DEFUN $dfg:lxf_numcolor$ (/ I X)<br /> (setq I 1)<br /> (REPEAT 257<br /> (cond ((= i 256)<br />        (progn (setq X<br />          (STRCAT "(defun c:"<br />            (ITOA I)<br />            "()(setvar "cmdecho" 0)(princ " "<br />            (STRCAT<br />              " 颜色改为< "<br />              "随层"<br />              " >号色 ")(if (setq ss (ssget))"<br />              "(vl-cmdf "change" ss "" "properties" "c" ""<br />              "bylayer"<br />              "" "")))"<br />             )<br />            "(princ)"<br />          )<br />         )<br />         (if X<br />     (PROGN (EVAL (READ X)))<br />         )<br />        )<br />       )<br />       ((= i 257)<br />        (progn (setq X<br />          (STRCAT "(defun c:"<br />            (ITOA I)<br />            "()(setvar "cmdecho" 0)(princ " "<br />            (STRCAT<br />              " 颜色改为< "<br />              "随层"<br />              " >号色 ")(if (setq ss (ssget))"<br />              "(vl-cmdf "change" ss "" "properties" "c" ""<br />              "Byblock"<br />              "" "")))"<br />             )<br />            "(princ)"<br />          )<br />         )<br />         (if X<br />     (PROGN (EVAL (READ X)))<br />         )<br />        )<br />       )<br />       (t<br />        (progn (setq X<br />          (STRCAT<br />            "(defun c:"<br />            (ITOA I)<br />            "()(setvar "cmdecho" 0)(princ " "<br />            (STRCAT " 颜色改为< "<br />              (ITOA I)<br />              " >号色 ")(if (setq ss (ssget))"<br />              "(vl-cmdf "change" ss "" "properties" "c" ""<br />              (ITOA I)<br />              "" "")))"<br />            )<br />            "(princ)"<br />          )<br />         )<br />         (if X<br />     (PROGN (EVAL (READ X)))<br />         )<br />        )<br />       )<br /> )<br />     (setq I (1+ I))<br />   )<br /> )

2. (defun c:jzys();加载颜色 更改颜色快捷命令为1~257
   
3.   ($dfg:lxf_numcolor$))

(defun c:jzys();加载颜色 更改颜色快捷命令为1~257<br />   ($dfg:lxf_numcolor$))

wangsr

谢谢分享。

437271963

颜色是0~256，没有257

不一样地设计

学习了，感谢楼主分享

lxf20190917

437271963 发表于 2024-2-19 17:42
颜色是0~256，没有257

257,我加了一个随块。

dtucad

1. ;一次定义N个命令1~255
   
2. (defun c:tt (/ i)
   
3.   (setq i 1)
   
4.   (repeat 255
   
5.     (eval (read (strcat "(defun c:" (itoa i) "()($lxf:chang-color$ \"" (itoa i) "\"))")))
   
6.     (setq i (1+ i))
   
7.   )
   
8.   (princ)
   
9. )

;一次定义N个命令1~255<br /> (defun c:tt (/ i)<br />   (setq i 1)<br />   (repeat 255 <br />     (eval (read (strcat "(defun c:" (itoa i) "()($lxf:chang-color$ \"" (itoa i) "\"))")))<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )