Author Topic: hepl me ,Daniel  (Read 10681 times)

0 Members and 1 Guest are viewing this topic.

aicr317

  • Guest
hepl me ,Daniel
« on: January 05, 2010, 02:24:15 AM »
my english is not well ,sorry!

example:

if i have this file, “d:\bsph.sld”

(setq aaa (vl-string->list (_readstream "d:\\bsph.sld" 0))) --->


(65 117 116 111 67 65 68 32 83 108 105 100 101 13 10 26 0 86 2 63 63 44 221 179 0 2 0 52 18 7 255 7 255 0 0 29 1 0 1 255 1 255 0 0 0 0 1 255 0 0 0 0 1 255 0 0 0 0 1 255 0 0 0 0 1 255 0 0 0 0 1 255 0 0 0 0 1 255 0 0 0 0 1 255 98 0 0 98 0 0 1 255 98 0 0 98 0 0 1 255 98 0 0 98 0 0 1 255 98 0 0 98 0 0 1 255 98 0 0 98 0 0 1 255 98 0 0 98 0 0 1 255 98 0 0 98 0 0 1 255 86 1 0 86 1 0 1 255 86 1 0 86 1 0 1 255 86 1 0 86 1 0 1 255 86 1 0 86 1 0 1 255 86 1 0 86 1 0 1 255 86 1 0 86 1 0 1 255 86 1 0 86 1 0 3 255 3 255 83 0 14 1 113 0 14 1 3 255 83 0 8 1 83 0 15 1 3 255 113 0 8 1 113 0 15 1 3 255 66 0 14 1 49 0 14 1 3 255 0 14 1 0 14 1 3 255 0 63 0 63 0 253 66 0 17 1 0 253 66 0 12 1 0 253 83 0 14 1 0 253 83 0 242 254 3 255 66 0 17 1 66 0 12 1 66 0 12 1 83 0 14 1 83 0 14 1 66 0 17 1 3 255 0 63 0 63 0 253 130 0 17 1 0 253 130 0 12 1 0 253 113 0 14 1 0 253 113 0 242 254 3 255 0 17 1 0 12 1 0 12 1 113 0 14 1 113 0 14 1 0 17 1 3 255 86 0 45 1 86 0 37 1 3 255 86 0 43 1 87 0 44 1 87 0 44 1 89 0 45 1 89 0 45 1 90 0 45 1 90 0 45 1 92 0 44 1 92 0 44 1 92 0 43 1 92 0 43 1 92 0 37 1 3 255 96 0 45 1 103 0 37 1 3 255 103 0 45 1 96 0 37 1 3 255 107 0 49 1 107 0 37 1 107 0 37 1 114 0 37 1 3 255 98 0 0 98 0 122 0 3 255 86 1 0 86 1 122 0 3 255 115 0 123 0 0 123 0 3 255 69 1 123 0 0 123 0 3 255 0 63 0 63 0 253 115 0 125 0 0 253 115 0 120 0 0 253 98 0 123 0 0 253 98 0 63 3 255 115 0 125 0 115 0 120 0 115 0 120 0 98 0 123 0 98 0 123 0 115 0 125 0 3 255 0 63 0 63 0 253 69 1 125 0 0 253 69 1 120 0 0 253 86 1 123 0 0 253 86 1 63 3 255 69 1 125 0 69 1 120 0 69 1 120 0 86 1 123 0 86 1 123 0 69 1 125 0 3 255 0 0 0 0 3 255 0 0 0 0 3 255 0 0 0 0 3 255 0 123 0 0 123 0 3 255 64 0 0 64 0 84 0 3 255 119 1 0 119 1 84 0 3 255 81 0 84 0 0 84 0 3 255 102 1 84 0 0 84 0 3 255 0 63 0 63 0 253 81 0 87 0 0 253 81 0 82 0 0 253 64 0 84 0 0 253 64 0 63 3 255 81 0 87 0 81 0 82 0 81 0 82 0 64 0 84 0 64 0 84 0 81 0 87 0 3 255 0 63 0 63 0 253 102 1 87 0 0 253 102 1 82 0 0 253 119 1 84 0 0 253 119 1 63 3 255 102 1 87 0 102 1 82 0 102 1 82 0 119 1 84 0 119 1 84 0 102 1 87 0 3 255 0 92 0 0 105 0 0 105 0 0 105 0 0 105 0 0 104 0 0 104 0 0 103 0 0 103 0 0 102 0 0 102 0 0 100 0 0 100 0 0 97 0 0 97 0 0 95 0 0 95 0 0 94 0 0 94 0 0 93 0 0 93 0 0 92 0 0 92 0 0 92 0 3 255 0 84 0 0 84 0 3 255 0 0 0 0 3 255 29 1 0 29 1 0 3 255 0 0 0 0 3 255 12 1 0 0 0 3 255 0 63 0 63 0 253 171 0 0 0 253 171 0 0 0 253 154 0 0 0 253 154 0 100 255 3 255 0 0 0 0 0 0 0 0 0 0 0 0 3 255 0 63 0 63 0 63 1 0 0 63 1 0 0 63 1 0 0 63 1 100 255 3 255 12 1 0 12 1 0 12 1 0 29 1 0 29 1 0 12 1 0 3 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 255 0 0 0 0 7 255 7 255 0 63 0 63 0 253 64 0 0 0 253 65 0 0 0 253 64 0 0 0 253 64 0 18 255 0 63 0 63 0 253 65 0 0 0 253 64 0 0 0 253 65 0 0 0 253 65 0 18 255 7 255 64 0 0 65 0 0 65 0 0 65 0 0 65 0 0 64 0 0 64 0 0 64 0 0 7 255 0 63 0 63 0 253 64 0 0 0 253 64 0 0 0 253 119 1 0 0 253 119 1 18 255 0 63 0 63 0 253 64 0 0 0 253 119 1 0 0 253 119 1 0 0 253 119 1 18 255 7 255 64 0 0 64 0 0 64 0 0 119 1 0 119 1 0 119 1 0 119 1 0 64 0 0 7 255 0 63 0 63 0 253 64 0 0 0 253 64 0 0 0 253 121 0 0 0 253 121 0 48 255 0 63 0 63 0 253 64 0 0 0 253 121 0 0 0 253 121 0 0 0 253 121 0 49 255 7 255 64 0 0 64 0 0 64 0 0 121 0 0 121 0 0 121 0 0 121 0 0 64 0 0 7 255 0 63 0 63 0 253 121 0 0 0 253 121 0 0 0 63 1 0 0 63 1 51 255 0 63 0 63 0 253 121 0 0 0 63 1 0 0 63 1 0 0 63 1 52 255 7 255 121 0 0 121 0 0 121 0 0 63 1 0 63 1 0 63 1 0 63 1 0 121 0 0 7 255 0 63 0 63 0 253 121 0 0 0 253 120 0 0 0 253 121 0 0 0 253 121 0 52 255 0 63 0 63 0 253 120 0 0 0 253 121 0 0 0 253 120 0 0 0 253 120 0 52 255 7 255 121 0 0 120 0 0 120 0 0 120 0 0 120 0 0 121 0 0 121 0 0 121 0 0 7 255 0 63 0 63 0 253 120 1 0 0 253 119 1 0 0 253 120 1 0 0 253 120 1 48 255 0 63 0 63 0 253 119 1 0 0 253 120 1 0 0 253 119 1 0 0 253 119 1 48 255 7 255 120 1 0 119 1 0 119 1 0 119 1 0 119 1 0 120 1 0 120 1 0 120 1 0 7 255 0 63 0 63 0 63 1 0 0 63 1 0 0 253 119 1 0 0 253 119 1 48 255 0 63 0 63 0 63 1 0 0 253 119 1 0 0 253 119 1 0 0 253 119 1 49 255 7 255 63 1 0 63 1 0 63 1 0 119 1 0 119 1 0 119 1 0 119 1 0 63 1 0 7 255 0 63 0 63 0 63 1 0 0 63 1 0 0 63 1 0 0 63 1 48 255 0 63 0 63 0 63 1 0 0 63 1 0 0 63 1 0 0 63 1 48 255 7 255 62 1 0 63 1 0 63 1 0 63 1 0 63 1 0 62 1 0 62 1 0 62 1 0 3 255 3 255 63 1 0 63 0 3 255 119 1 0 63 0 3 255 63 0 63 0 3 255 63 255 0 63 16 1 3 255 0 63 0 63 0 253 150 1 0 0 253 156 1 0 0 253 153 1 0 0 253 153 1 52 255 3 255 63 0 63 0 63 0 63 0 63 0 63 0 3 255 0 63 0 63 0 253 150 1 255 0 0 253 156 1 255 0 0 253 153 1 0 0 253 153 1 18 255 3 255 63 255 0 63 255 0 63 255 0 63 0 63 0 63 255 0 3 255 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 63 0 3 255 63 0 63 0 7 255 7 255 0 63 0 63 0 253 82 0 0 0 253 83 0 0 0 253 82 0 0 0 253 82 0 18 255 0 63 0 63 0 253 83 0 0 0 253 82 0 0 0 253 83 0 0 0 253 83 0 18 255 7 255 82 0 0 83 0 0 83 0 0 83 0 0 83 0 0 82 0 0 82 0 0 82 0 0 7 255 0 63 0 63 0 253 113 0 0 0 253 113 0 0 0 253 113 0 0 0 253 113 0 18 255 0 63 0 63 0 253 113 0 0 0 253 113 0 0 0 253 113 0 0 0 253 113 0 18 255 7 255 113 0 0 113 0 0 113 0 0 113 0 0 113 0 0 113 0 0 113 0 0 113 0 0 7 255 0 63 0 63 0 253 70 1 0 0 253 71 1 0 0 253 70 1 0 0 253 70 1 18 255 0 63 0 63 0 253 71 1 0 0 253 70 1 0 0 253 71 1 0 0 253 71 1 18 255 7 255 70 1 0 71 1 0 71 1 0 71 1 0 71 1 0 70 1 0 70 1 0 70 1 0 7 255 0 63 0 63 0 253 100 1 0 0 253 101 1 0 0 253 100 1 0 0 253 100 1 18 255 0 63 0 63 0 253 101 1 0 0 253 100 1 0 0 253 101 1 0 0 253 101 1 18 255 7 255 100 1 0 101 1 0 101 1 0 101 1 0 101 1 0 100 1 0 100 1 0 100 1 0 3 255 3 255 83 0 0 83 0 25 1 3 255 113 0 0 113 0 25 1 7 255 7 255 0 63 0 63 0 63 1 0 0 63 1 0 0 63 1 0 0 63 1 24 255 0 63 0 63 0 63 1 0 0 63 1 0 0 63 1 0 0 63 1 24 255 7 255 29 1 0 30 1 0 30 1 0 30 1 0 30 1 0 29 1 0 29 1 0 29 1 0 7 255 65 0 0 64 0 0 7 255 72 0 0 64 0 0 7 255 79 0 0 64 0 0 7 255 83 0 0 64 0 0 7 255 83 0 0 64 0 0 7 255 83 0 0 70 0 0 7 255 83 0 0 77 0 0 7 255 115 0 0 113 0 0 7 255 125 0 0 113 0 0 7 255 0 0 113 0 0 7 255 0 0 113 0 0 7 255 0 0 113 0 0 7 255 0 0 120 0 0 7 255 0 0 127 0 0 7 255 0 0 0 0 7 255 0 0 0 0 7 255 0 0 0 0 7 255 33 1 0 29 1 0 7 255 40 1 0 29 1 0 7 255 47 1 0 29 1 0 7 255 55 1 0 29 1 0 7 255 62 1 0 32 1 0 7 255 65 1 0 35 1 0 7 255 70 1 0 42 1 0 7 255 70 1 0 49 1 0 7 255 70 1 0 57 1 0 7 255 70 1 0 64 1 0 7 255 101 1 0 101 1 0 7 255 108 1 0 101 1 0 7 255 115 1 0 101 1 0 7 255 119 1 0 101 1 0 7 255 119 1 0 101 1 0 7 255 119 1 0 106 1 0 7 255 119 1 0 114 1 0 7 255 0 63 0 63 0 63 1 0 0 63 1 0 0 253 220 0 0 0 253 220 0 24 255 0 63 0 63 0 63 1 0 0 253 220 0 0 0 253 220 0 0 0 253 220 0 24 255 7 255 29 1 0 29 1 0 29 1 0 0 0 0 0 0 0 0 0 29 1 0 7 255 0 63 0 63 0 63 1 0 0 63 1 0 0 63 1 0 0 63 1 18 255 0 63 0 63 0 63 1 0 0 63 1 0 0 63 1 0 0 63 1 18 255 7 255 29 1 0 30 1 0 30 1 0 37 1 0 37 1 0 36 1 0 36 1 0 29 1 0 3 255 3 255 37 1 0 123 1 54 1 3 255 29 1 0 29 1 84 1 7 255 7 255 0 0 0 75 1 7 255 24 1 0 24 1 67 1 7 255 0 0 0 0 7 255 0 0 0 0 7 255 0 0 0 0 7 255 0 0 0 0 7 255 0 0 0 0 7 255 0 0 255 0 0 7 255 4 1 0 24 1 0 3 255 3 255 0 0 0 0 0 0 0 0 7 255 7 255 0 0 0 76 1 7 255 16 1 0 16 1 59 1 7 255 0 70 1 0 72 1 0 72 1 0 74 1 0 74 1 0 75 1 0 75 1 0 75 1 0 75 1 0 76 1 0 76 1 0 76 1 0 76 1 0 75 1 7 255 0 1 62 1 0 65 1 0 65 1 0 68 1 0 68 1 0 70 1 7 255 0 1 62 1 3 1 60 1 3 1 60 1 6 1 59 1 6 1 59 1 9 1 59 1 9 1 59 1 13 1 59 1 13 1 59 1 16 1 60 1 16 1 60 1 19 1 61 1 19 1 61 1 22 1 62 1 22 1 62 1 24 1 64 1 3 255 3 255 0 63 0 63 0 63 1 56 1 0 63 1 61 1 0 63 1 60 1 0 63 1 196 254 3 255 46 1 56 1 46 1 61 1 46 1 61 1 29 1 60 1 29 1 60 1 46 1 56 1 3 255 0 63 0 63 0 253 84 1 44 1 0 253 80 1 40 1 0 253 94 1 30 1 0 253 94 1 226 254 3 255 84 1 44 1 80 1 40 1 80 1 40 1 94 1 30 1 94 1 30 1 84 1 44 1 3 255 68 1 75 1 62 1 75 1 62 1 75 1 62 1 70 1 62 1 70 1 64 1 71 1 64 1 71 1 66 1 71 1 66 1 71 1 68 1 70 1 68 1 70 1 69 1 69 1 69 1 69 1 70 1 67 1 70 1 67 1 70 1 66 1 70 1 66 1 69 1 64 1 69 1 64 1 68 1 63 1 68 1 63 1 66 1 63 1 66 1 63 1 64 1 63 1 64 1 63 1 62 1 63 1 62 1 63 1 62 1 64 1 62 1 64 1 61 1 65 1 3 255 77 1 75 1 75 1 75 1 75 1 75 1 74 1 73 1 74 1 73 1 73 1 70 1 73 1 70 1 73 1 68 1 73 1 68 1 74 1 65 1 74 1 65 1 75 1 63 1 75 1 63 1 77 1 63 1 77 1 63 1 78 1 63 1 78 1 63 1 80 1 63 1 80 1 63 1 81 1 65 1 81 1 65 1 82 1 68 1 82 1 68 1 82 1 70 1 82 1 70 1 81 1 73 1 81 1 73 1 80 1 75 1 80 1 75 1 78 1 75 1 78 1 75 1 77 1 75 1 3 255 92 1 70 1 92 1 71 1 92 1 71 1 91 1 72 1 91 1 72 1 90 1 72 1 90 1 72 1 89 1 72 1 89 1 72 1 88 1 71 1 88 1 71 1 88 1 70 1 88 1 70 1 88 1 69 1 88 1 69 1 89 1 68 1 89 1 68 1 90 1 68 1 90 1 68 1 91 1 68 1 91 1 68 1 92 1 69 1 92 1 69 1 92 1 70 1 3 255 93 1 30 1 89 1 34 1 89 1 34 1 85 1 38 1 85 1 38 1 80 1 42 1 80 1 42 1 75 1 46 1 75 1 46 1 70 1 49 1 70 1 49 1 65 1 52 1 65 1 52 1 59 1 54 1 59 1 54 1 53 1 56 1 53 1 56 1 47 1 58 1 47 1 58 1 41 1 59 1 41 1 59 1 35 1 59 1 35 1 59 1 29 1 60 1 3 255 0 75 1 0 102 1 3 255 24 1 67 1 24 1 102 1 3 255 0 88 1 0 90 1 3 255 24 1 88 1 24 1 90 1 3 255 0 89 1 0 89 1 3 255 7 1 89 1 0 89 1 3 255 0 63 0 63 0 253 176 0 92 1 0 253 176 0 86 1 0 253 159 0 89 1 0 253 159 0 167 254 3 255 0 92 1 0 86 1 0 86 1 0 89 1 0 89 1 0 92 1 3 255 0 63 0 63 0 63 1 92 1 0 63 1 86 1 0 63 1 89 1 0 63 1 167 254 3 255 7 1 92 1 7 1 86 1 7 1 86 1 24 1 89 1 24 1 89 1 7 1 92 1 3 255 0 98 1 0 111 1 0 111 1 0 98 1 3 255 0 103 1 0 103 1 3 255 0 102 1 0 103 1 0 103 1 0 104 1 0 104 1 0 97 1 3 255 0 89 1 0 89 1 3 255 29 1 0 29 1 16 1 3 255 35 1 0 35 1 16 1 3 255 12 1 16 1 0 16 1 3 255 52 1 16 1 69 1 16 1 3 255 0 63 0 63 0 63 1 19 1 0 63 1 13 1 0 63 1 16 1 0 63 1 240 254 3 255 12 1 19 1 12 1 13 1 12 1 13 1 29 1 16 1 29 1 16 1 12 1 19 1 3 255 0 63 0 63 0 63 1 19 1 0 63 1 13 1 0 63 1 16 1 0 63 1 240 254 3 255 52 1 19 1 52 1 13 1 52 1 13 1 35 1 16 1 35 1 16 1 52 1 19 1 3 255 0 33 1 0 20 1 3 255 0 27 1 0 28 1 0 28 1 0 29 1 0 29 1 0 29 1 0 29 1 0 28 1 0 28 1 0 27 1 0 27 1 0 25 1 0 25 1 0 24 1 0 24 1 0 22 1 0 22 1 0 21 1 0 21 1 0 20 1 0 20 1 0 20 1 0 20 1 0 21 1 0 21 1 0 22 1 7 255 7 255 0 63 0 63 0 253 154 0 0 0 253 155 0 0 0 253 154 0 0 0 253 154 0 18 255 0 63 0 63 0 253 155 0 0 0 253 154 0 0 0 253 155 0 0 0 253 155 0 18 255 7 255 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 255 0 52 0 0 51 0 0 51 0 0 30 0 0 30 0 0 31 0 0 31 0 0 33 0 7 255 0 43 0 0 41 0 0 41 0 0 40 0 7 255 0 44 0 0 40 0 0 40 0 0 38 0 0 38 0 0 36 0 0 36 0 0 35 0 7 255 0 44 0 0 45 0 7 255 0 49 0 0 48 0 0 48 0 0 44 0 0 44 0 0 41 0 0 41 0 0 38 0 0 38 0 0 36 0 0 36 0 0 34 0 0 34 0 0 32 0 0 32 0 0 30 0 7 255 0 50 0 0 48 0 0 48 0 0 47 0 7 255 0 43 0 0 44 0 0 44 0 0 45 0 0 45 0 0 43 0 0 43 0 0 40 0 0 40 0 0 38 0 0 38 0 0 36 0 0 36 0 0 34 0 0 34 0 0 32 0 0 32 0 0 30 0 0 30 0 0 29 0 7 255 0 41 0 0 41 0 0 41 0 0 31 0 0 31 0 0 31 0 0 31 0 0 32 0 7 255 0 52 0 0 50 0 0 50 0 0 49 0 0 49 0 0 48 0 7 255 0 46 0 0 46 0 0 46 0 0 46 0 0 46 0 0 44 0 7 255 0 53 0 0 51 0 0 51 0 0 49 0 0 49 0 0 47 0 0 47 0 0 44 0 0 44 0 0 41 0 0 41 0 0 39 0 0 39 0 0 37 0 0 37 0 0 34 0 0 34 0 0 32 0 0 32 0 0 30 0 0 30 0 0 29 0 0 29 0 0 28 0 0 28 0 0 29 0 0 29 0 0 35 0 0 35 0 0 29 0 7 255 0 39 0 0 40 0 0 40 0 0 41 0 0 41 0 0 40 0 0 40 0 0 40 0 0 40 0 0 39 0 0 39 0 0 33 0 7 255 0 31 0 0 36 0 7 255 0 50 0 0 52 0 0 52 0 0 52 0 0 52 0 0 52 0 7 255 0 51 0 0 32 0 0 32 0 0 29 0 0 29 0 0 30 0 0 30 0 0 32 0 7 255 0 40 0 0 42 0 0 42 0 0 42 0 0 42 0 0 42 0 7 255 0 49 0 0 48 0 0 48 0 0 43 0 7 255 0 48 0 0 45 0 0 45 0 0 43 0 7 255 0 45 0 0 43 0 0 43 0 0 42 0 7 255 0 46 0 0 45 0 0 45 0 0 41 0 7 255 0 38 0 0 37 0 0 37 0 0 36 0 7 255 0 52 0 0 51 0 0 51 0 0 51 0 0 51 0 0 45 0 0 45 0 0 42 0 0 42 0 0 41 0 0 41 0 0 39 0 0 39 0 0 37 0 0 37 0 0 36 0 0 36 0 0 34 0 0 34 0 0 33 0 0 33 0 0 31 0 0 31 0 0 30 0 7 255 0 52 0 0 49 0 0 49 0 0 42 0 0 42 0 0 43 0 0 43 0 0 44 0 0 44 0 0 44 0 0 44 0 0 51 0 0 51 0 0 50 0 0 50 0 0 49 0 7 255 0 46 0 0 47 0 7 255 0 40 0 0 41 0 0 41 0 0 41 0 0 41 0 0 41 0 7 255 0 40 0 0 29 0 0 29 0 0 30 0 0 30 0 0 32 0 7 255 0 36 0 0 37 0 7 255 0 52 0 0 50 0 0 50 0 0 45 0 0 45 0 0 43 0 0 43 0 0 41 0 7 255 0 47 0 0 48 0 7 255 0 44 0 0 42 0 7 255 0 43 0 0 32 0 0 32 0 0 32 0 0 32 0 0 35 0 7 255 0 40 0 0 38 0 7 255 0 49 0 0 47 0 0 47 0 0 29 0 0 29 0 0 31 0 0 31 0 0 33 0 7 255 0 47 0 0 49 0 0 49 0 0 49 0 0 49 0 0 48 0 0 48 0 0 31 0 0 31 0 0 30 0 0 30 0 0 29 0 0 29 0 0 32 0 0 32 0 0 30 0 7 255 0 45 0 0 39 0 0 39 0 0 37 0 0 37 0 0 35 0 0 35 0 0 34 0 7 255 0 45 0 0 44 0 0 44 0 0 41 0 0 41 0 0 37 0 0 37 0 0 34 0 7 255 5 1 50 0 5 1 49 0 5 1 49 0 4 1 45 0 4 1 45 0 3 1 44 0 7 255 5 1 47 0 12 1 47 0 7 255 1 1 42 0 14 1 44 0 14 1 44 0 13 1 44 0 13 1 44 0 12 1 43 0 7 255 8 1 52 0 8 1 51 0 8 1 51 0 8 1 29 0 8 1 29 0 8 1 30 0 8 1 30 0 8 1 31 0 7 255 4 1 41 0 4 1 38 0 4 1 38 0 5 1 32 0 5 1 32 0 4 1 33 0 4 1 33 0 5 1 34 0 7 255 5 1 39 0 13 1 40 0 13 1 40 0 13 1 41 0 13 1 41 0 12 1 39 0 12 1 39 0 12 1 37 0 12 1 37 0 12 1 35 0 12 1 35 0 12 1 34 0 12 1 34 0 11 1 33 0 11 1 33 0 9 1 35 0 9 1 35 0 11 1 33 0 7 255 15 1 47 0 15 1 46 0 15 1 46 0 15 1 36 0 15 1 36 0 15 1 38 0 15 1 38 0 15 1 39 0 7 255 18 1 52 0 19 1 51 0 19 1 51 0 19 1 33 0 19 1 33 0 19 1 31 0 19 1 31 0 18 1 30 0 18 1 30 0 15 1 33 0 15 1 33 0 18 1 30 0 7 255 38 1 52 0 38 1 51 0 38 1 51 0 37 1 49 0 37 1 49 0 35 1 47 0 35 1 47 0 35 1 45 0 7 255 36 1 48 0 43 1 49 0 7 255 38 1 48 0 39 1 46 0 39 1 46 0 39 1 45 0 7 255 31 1 52 0 31 1 51 0 31 1 51 0 29 1 48 0 29 1 48 0 28 1 46 0 28 1 46 0 26 1 45 0 26 1 45 0 25 1 44 0 7 255 29 1 48 0 34 1 49 0 7 255 30 1 48 0 31 1 46 0 31 1 46 0 31 1 45 0 7 255 34 1 45 0 34 1 44 0 34 1 44 0 34 1 43 0 7 255 27 1 44 0 27 1 42 0 27 1 42 0 27 1 41 0 27 1 41 0 26 1 40 0 26 1 40 0 26 1 39 0 7 255 27 1 42 0 43 1 43 0 43 1 43 0 43 1 44 0 43 1 44 0 41 1 41 0 7 255 30 1 41 0 30 1 40 0 30 1 40 0 31 1 35 0 31 1 35 0 30 1 29 0 30 1 29 0 30 1 30 0 30 1 30 0 30 1 32 0 7 255 31 1 40 0 39 1 40 0 39 1 40 0 39 1 41 0 39 1 41 0 38 1 37 0 38 1 37 0 31 1 37 0 7 255 31 1 34 0 39 1 35 0 39 1 35 0 38 1 31 0 38 1 31 0 39 1 31 0 39 1 31 0 30 1 30 0 7 255 51 1 49 0 53 1 48 0 53 1 48 0 54 1 47 0 7 255 48 1 43 0 50 1 41 0 50 1 41 0 51 1 40 0 7 255 49 1 32 0 51 1 29 0 51 1 29 0 54 1 43 0 7 255 56 1 43 0 67 1 44 0 67 1 44 0 67 1 45 0 67 1 45 0 65 1 44 0 7 255 61 1 52 0 61 1 50 0 61 1 50 0 61 1 38 0 61 1 38 0 61 1 37 0 61 1 37 0 56 1 29 0 56 1 29 0 55 1 30 0 55 1 30 0 66 1 31 0 66 1 31 0 63 1 35 0 63 1 35 0 66 1 31 0 66 1 31 0 67 1 29 0 7 255 54 1 38 0 69 1 39 0 69 1 39 0 68 1 39 0 68 1 39 0 66 1 39 0 7 255 78 1 50 0 79 1 48 0 79 1 48 0 80 1 47 0 80 1 47 0 80 1 45 0 7 255 86 1 51 0 86 1 50 0 86 1 50 0 84 1 43 0 7 255 76 1 43 0 90 1 44 0 90 1 44 0 89 1 44 0 89 1 44 0 88 1 44 0 7 255 78 1 37 0 88 1 38 0 88 1 38 0 87 1 38 0 87 1 38 0 85 1 38 0 7 255 73 1 30 0 92 1 32 0 92 1 32 0 91 1 32 0 91 1 32 0 89 1 31 0 0)


then,i used
(_writestream "d:\\new.sld" (vl-list->string aaa) "w")    ----->

16

opend the file (new.sld)  with the notepad,i just got like this,

AutoCAD Slide


can you tell me ,why??????????????????????

i view this link that you gived,http://www.theswamp.org/index.php?topic=29889.0,you can do very well ,hepl me ,where is wrong



;;;(defun _ReadStream ( path len / fso file stream result )
    ;;  If the file is successful read the data is returned as
    ;;  a string. Won't be tripped up by nulls, control chars
    ;;  including ctrl z (eof marker). Pretty fast (feel free
    ;;  to bench mark / compare to alternates).
    ;;
    ;;  If the caller wants the result as a list of byte values
    ;;  simply use vl-string->list on the result:
    ;;
    ;;      (setq bytes
    ;;          (if (setq stream (_ReadStream path len))
    ;;              (vl-string->list stream)
    ;;          )
    ;;      )
    ;;
    ;;  Arguments:
    ;;
    ;;      path  <duh>
    ;;      len   Number of bytes to read. If non numeric, less
    ;;            than 1 or greater than the number of bytes in
    ;;            the file everything is returned.
    (vl-catch-all-apply
       '(lambda ( / iomode format size )
            (setq
                iomode  1 ;; 1 = read,   2 = write,    8 = append
                format  0 ;; 0 = ascii, -1 = unicode, -2 = system default
                fso     (vlax-create-object "Scripting.FileSystemObject")
                file    (vlax-invoke fso 'GetFile path)
                stream  (vlax-invoke fso 'OpenTextFile path iomode format)
                size    (vlax-get file 'Size)
                len     (if (and (numberp len) (< 0 len size)) (fix len) size)
                result  (vlax-invoke stream 'read len)
            )
            (vlax-invoke stream 'Close)
        )
    )
    (if stream (vlax-release-object stream))
    (if file (vlax-release-object file))
    (if fso (vlax-release-object fso))
    result
)

;;(defun _WriteStream ( path text mode / fso stream file result )

    ;;  Return the file size if the file is successfully written
    ;;  to, otherwise nil. Will write all ascii chars to file
    ;;  including nulls. If the caller wants to pass a list of
    ;;  byte values to the function just call it like so:
    ;;
    ;;      (_WriteStream
    ;;          path
    ;;          (vl-list->string '(87 111 111 116 33))
    ;;          mode
    ;;      )
    ;;
    ;;  Arguments:
    ;;
    ;;      path  <duh>
    ;;      text  <duh>
    ;;      mode  "a" to create/append,
    ;;            "w" to create/overwrite (default)
   
    (setq mode (if (member mode '("a" "A")) "a" "w"))
   
    (vl-catch-all-apply
       '(lambda ( / format )
            (setq fso (vlax-create-object "Scripting.FileSystemObject"))
            (cond
                (   (or (null (findfile path)) (eq "w" mode))
                    (setq stream
                        (vlax-invoke-method
                            fso
                           'CreateTextFile
                            path
                           -1 ;; 0 (false) = don't overwrite , -1 (true) = overwrite
                            0 ;; 0 (false) = ascii, -1 (true) = unicode
                        )
                    )
                    (setq file (vlax-invoke-method fso 'GetFile path))
                )
                (   (setq file (vlax-invoke-method fso 'GetFile path))
                    (setq stream
                        (vlax-invoke-method
                            file
                           'OpenAsTextStream
                            8 ;; 1 = read, 2 = write, 8 = append
                            0 ;; 0 = ascii, -1 = unicode, -2 system default
                        )
                    )       
                )
            )
            (vlax-invoke-method stream 'Write text)
            (vlax-invoke-method stream 'Close)
            (setq result (vlax-get file 'Size))
        )
    )

    (if file (vlax-release-object file))
    (if stream (vlax-release-object stream))
    (if fso (vlax-release-object fso))
   
    result
   
)



Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: hepl me ,Daniel
« Reply #1 on: January 05, 2010, 02:54:40 AM »

what happens when you
(command "._VSLIDE" "d:\\new.sld")


This works for me ..
Code: [Select]
(setq SlideText (vl-string->list (_readstream "K:\\Drawing1.sld" t)))

(_writestream "K:\\new.sld" (vl-list->string SlideText) "w")   

(command "._VSLIDE" "K:\\new.sld")
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: hepl me ,Daniel
« Reply #2 on: January 05, 2010, 02:57:52 AM »

 Can you attach “d:\bsph.sld” in a ZIP or RAR file
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #3 on: January 05, 2010, 03:14:13 AM »
when i used (command "._vslide" "d:\\new.sld")

autocad noticed like this:read sld file error!

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: hepl me ,Daniel
« Reply #4 on: January 05, 2010, 03:17:55 AM »


What happens when you

(command "._VSLIDE" "d:\\bsph.sld")

kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #5 on: January 05, 2010, 03:19:13 AM »
the sld file

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: hepl me ,Daniel
« Reply #6 on: January 05, 2010, 03:27:29 AM »

works for me.

See attachment
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #7 on: January 05, 2010, 06:04:30 AM »
i done it as well as you,but i can't get the file (new.sld),it seems only 0kb!

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #8 on: January 05, 2010, 06:21:22 AM »
perhaps,there is something wrong in the "_writestream" and "_readstream",can you upload these files?


CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: hepl me ,Daniel
« Reply #9 on: January 05, 2010, 08:58:29 AM »
Look here for "_writestream" and "_readstream":
http://www.theswamp.org/index.php?topic=17465.0
I've reached the age where the happy hour is a nap. (°¿°)
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #10 on: January 05, 2010, 07:24:00 PM »
i also download from there(http://www.theswamp.org/index.php?topic=17465.0),but it does not work very well...

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: hepl me ,Daniel
« Reply #11 on: January 05, 2010, 07:27:07 PM »
i also download from there(http://www.theswamp.org/index.php?topic=17465.0),but it does not work very well...


As I said, works perfectly for me.


ALSO :

What happens when you

(command "._VSLIDE" "d:\\bsph.sld")

kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

It's Alive!

  • Retired
  • Needs a day job
  • Posts: 8920
  • AKA Daniel
Re: hepl me ,Daniel
« Reply #12 on: January 05, 2010, 07:28:03 PM »
These do work on my machine, what version of autocad are you using?

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #13 on: January 05, 2010, 07:35:23 PM »
I USED WINDOWS XP ,AUTOCAD 2004,

WHEN I USED (COMMAND ._VSLIDE "D:\\BSPH.SLD") ,IT WORKS WELL!!!

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #14 on: January 05, 2010, 07:41:42 PM »
ONCE I USED AUTOCAD2008 TO RUN IT , IT ALSO FAILED!!!!!!!!


It's Alive!

  • Retired
  • Needs a day job
  • Posts: 8920
  • AKA Daniel
Re: hepl me ,Daniel
« Reply #15 on: January 05, 2010, 07:46:43 PM »
I honestly don't know what the problem would be. I have an ARX routine that you might try but it's for acad 2007-2009 wanna try it?

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: hepl me ,Daniel
« Reply #16 on: January 05, 2010, 07:54:45 PM »
ONCE I USED AUTOCAD2008 TO RUN IT , IT ALSO FAILED!!!!!!!!



Both the VSLIDE and _readstream -> _writestream conversion work for me in AC2010 and AC2008
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #17 on: January 05, 2010, 07:57:47 PM »
WELL,THANK YOU!

IN THIS CASE,I THINK THE PROBLEM MAY BE IN THE "_WRITESTREAM",BECAUSE IT CREATED NEW FILE IS ONLY 0 KB! SO I THINK IT WIRTED INTO THE NEW FILE NOTHING!CAN YOU HELP ME CHECK IT (_WRITESTREAM)!!!

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: hepl me ,Daniel
« Reply #18 on: January 05, 2010, 08:09:40 PM »
My readstream result is different to yours.
the first 18 values are the same,  after is different.
yours is 5792  characters
Mine is 7003 characters

Yours writes 16 characters.
Mine writes 7003 characters.

Try this :

(setq SlideText (vl-string->list (_readstream "D:\\bsph.sld" t)))

(_writestream "D:\\new.sld" (vl-list->string SlideText) "w")    

(command "._VSLIDE" "D:\\new.sld")

and reload the functions
Code: [Select]
;;; CodeHimBelonga MP fromTheSwamp
(defun _ReadStream ( path len / fso file stream result )

    ;;  If the file is successful read the data is returned as
    ;;  a string. Won't be tripped up by nulls, control chars
    ;;  including ctrl z (eof marker). Pretty fast (feel free
    ;;  to bench mark / compare to alternates).
    ;;
    ;;  If the caller wants the result as a list of byte values
    ;;  simply use vl-string->list on the result:
    ;;
    ;;      (setq bytes
    ;;          (if (setq stream (_ReadStream path len))
    ;;              (vl-string->list stream)
    ;;          )
    ;;      )            
    ;;
    ;;  Arguments:
    ;;
    ;;      path  <duh>
    ;;      len   Number of bytes to read. If non numeric, less
    ;;            than 1 or greater than the number of bytes in
    ;;            the file everything is returned.
    
    (vl-catch-all-apply
       '(lambda ( / iomode format size )
            (setq
                iomode   1 ;; 1 = read, 2 = write, 8 = append
                format   0 ;; 0 = ascii, -1 = unicode, -2 = system default
                fso      (vlax-create-object "Scripting.FileSystemObject")
                file     (vlax-invoke fso 'GetFile path)
                stream   (vlax-invoke fso 'OpenTextFile path iomode format)
                size     (vlax-get file 'Size)
                len      (if (and (numberp len) (< 0 len size)) (fix len) size)
                result   (vlax-invoke stream 'read len)
            )
            (vlax-invoke stream 'Close)
        )
    )
    
    (if stream (vlax-release-object stream))
    (if file (vlax-release-object file))
    (if fso (vlax-release-object fso))
    
    result

)


;;; CodeHimBelonga MP fromTheSwamp
(defun _WriteStream ( path text mode / fso stream file result )

    ;;  Return the file size if the file is successfully written
    ;;  to, otherwise nil. Will write all ascii chars to file
    ;;  including nulls. If the caller wants to pass a list of
    ;;  byte values to the function just call it like so:
    ;;
    ;;      (_WriteStream
    ;;          path
    ;;          (vl-list->string '(87 111 111 116 33))
    ;;          mode
    ;;      )
    ;;
    ;;  Arguments:
    ;;
    ;;      path  <duh>
    ;;      text  <duh>
    ;;      mode  "a" to create/append,
    ;;            "w" to create/overwrite (default)
    
    (setq mode (if (member mode '("a" "A")) "a" "w"))
    
    (vl-catch-all-apply
       '(lambda ( / format )
            (setq fso (vlax-create-object "Scripting.FileSystemObject"))
            (cond
                (   (or (null (findfile path)) (eq "w" mode))
                    (setq stream
                        (vlax-invoke
                            fso
                           'CreateTextFile
                            path
                           -1 ;; 0 (false) = don't overwrite , -1 (true) = overwrite
                            0 ;; 0 (false) = ascii, -1 (true) = unicode
                        )
                    )
                    (setq file (vlax-invoke fso 'GetFile path))
                )
                (   (setq file (vlax-invoke fso 'GetFile path))
                    (setq stream
                        (vlax-invoke
                            file
                           'OpenAsTextStream
                            8 ;; 1 = read, 2 = write, 8 = append
                            0 ;; 0 = ascii, -1 = unicode, -2 system default
                        )
                    )      
                )
            )
            (vlax-invoke stream 'Write text)
            (vlax-invoke stream 'Close)
            (setq result (vlax-get file 'Size))
        )
    )

    (if file (vlax-release-object file))
    (if stream (vlax-release-object stream))
    (if fso (vlax-release-object fso))
    
    result
    
)
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #19 on: January 05, 2010, 08:30:23 PM »
_$ (setq SlideText (vl-string->list (_readstream "D:\\bsph.sld" t)))

(_writestream "D:\\new.sld" (vl-list->string SlideText) "w") (command "._vslide" "d:\\new.sld")
;;ERROR, function canceled

what version of cad are you useing?

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: hepl me ,Daniel
« Reply #20 on: January 05, 2010, 08:40:08 PM »
_$ (setq SlideText (vl-string->list (_readstream "D:\\bsph.sld" t)))

(_writestream "D:\\new.sld" (vl-list->string SlideText) "w") (command "._vslide" "d:\\new.sld")
;;ERROR, function canceled

what version of cad are you useing?


Both the VSLIDE and _readstream -> _writestream conversion work for me in AC2010 and AC2008


At the moment I can't think of any cause for your problem.
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #21 on: January 05, 2010, 08:44:33 PM »
anyway,thank you for your help!

can you show your readstream result ?

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: hepl me ,Daniel
« Reply #22 on: January 05, 2010, 08:50:27 PM »
anyway,thank you for your help!

can you show your readstream result ?

sure !

See attached :
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #23 on: January 05, 2010, 09:12:42 PM »
i try use your readstream result to set a list like this:
(setq aaa '(your result))
and _writestream ,the new.sld also 0kb!

i found my readstream different from yours,why ,didn't know!!!hoho!!!
may be the readstream and writestream is not work well on my machine!

CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: hepl me ,Daniel
« Reply #24 on: January 05, 2010, 09:27:23 PM »
Wild guess, could the language be affecting this?
Could the operating system play a role?
I've reached the age where the happy hour is a nap. (°¿°)
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #25 on: January 05, 2010, 09:30:34 PM »
cab, i think so

It's Alive!

  • Retired
  • Needs a day job
  • Posts: 8920
  • AKA Daniel
Re: hepl me ,Daniel
« Reply #26 on: January 05, 2010, 09:30:53 PM »
Try this

Download the MyTools.zip from this post
http://www.theswamp.org/index.php?topic=21875.msg264050#msg264050
load the ARX for your cad version i.e CrpARX16.arx
then test


(defun c:test ( /  a)
 (setq a (crpbinget "c:\\Drawing1.sld" ))
 (crpbinput "c:\\New.sld" a )
)

CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: hepl me ,Daniel
« Reply #27 on: January 05, 2010, 09:39:12 PM »
Might want to give another format type a try. -1 or -2
Code: [Select]
format   0 ;; 0 = ascii, -1 = unicode, -2 = system default
It is hard coded in the _WriteStream
I've reached the age where the happy hour is a nap. (°¿°)
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #28 on: January 05, 2010, 09:45:32 PM »
daniel,i try the test,it work very well,

but i want pack the arx into lisp,

first,I want lisp created new file ,example ,"111.arx"
AND (ARXLOAD "111.ARX")
then,used binget and binput function,how can i do?

so i think the readstream and writesteam fit me!!!HOHO!!!

It's Alive!

  • Retired
  • Needs a day job
  • Posts: 8920
  • AKA Daniel
Re: hepl me ,Daniel
« Reply #29 on: January 05, 2010, 09:48:23 PM »
Sorry, I don't know  :|

aicr317

  • Guest
Re: hepl me ,Daniel
« Reply #30 on: January 05, 2010, 10:04:05 PM »
CAB,I TRY -1 OR -2 IT ALSO FAILED

cjw

  • Guest
Re: hepl me ,Daniel
« Reply #31 on: January 06, 2010, 02:45:01 AM »
daniel,i try the test,it work very well,

but i want pack the arx into lisp,

first,I want lisp created new file ,example ,"111.arx"
AND (ARXLOAD "111.ARX")
then,used binget and binput function,how can i do?

so i think the readstream and writesteam fit me!!!HOHO!!!

I have the same idea for a long time.
But I can't make it work.
If succeed,it can pack all type files into lisp.
Just like Daydreaming.

cjw

  • Guest
Re: hepl me ,Daniel
« Reply #32 on: January 06, 2010, 02:48:34 AM »
Using "ADODB.Stream" Read/Write stream

http://www.theswamp.org/index.php?topic=30779.0

I have given up.

Maybe the chinese OS and english OS is something different.