autocad2008和2018的princ竟然不同

tryhi

陨落 发表于 2021-8-12 19:22
尝试了，确实是不行。我还是用adodb算了。

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


(setq fo (open "d:/tt.jpg" "w"))
;;(princ (apply 'strcat (mapcar '(lambda(x)(if (zerop x)(chr 256)(chr x))) file)) fo)
(foreach x (mapcar '(lambda(x)(if (zerop x) 256  x))  file)
        (if (zerop x)(setq x 256))
        (if (= 10 x)(setq x 266))
  (write-char x fo)
  )
(close fo)

(princ"\n生成完成")
(princ)

陨落

tryhi 发表于 2021-8-13 09:18
(setq file '(255 216 255 224 0 16 74 70 73 70 0 1 1 1 0 72 0 72 0 0 255 219 0 67 0 27 18 20
23 20 ...

厉害啊大海哥，原来还有10没办法写，替换成266又可以