Code Red > AutoLISP (Vanilla / Visual)

Numeric text lisp

(1/6) > >>

pedroantonio:
Hi i have to decride with numbers multiple big areas like this


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

--- End code ---

The problem is that i have to write  all this numers.

Is it possible to write them with a lisp
for examle

1. Give the first mumber :
2)Give the last number :

if the first number is 92 and the last is 194  write  a  mtext like this

--- Code: ---92 - 93 - 94 - 95 - 96 - 97 - 98 - 99 - 100 - 101 - 102 - 103 - 104 - 105 - 106 - 107 - 108 - 109 - 110 - 111 - 112 - 113 - 114 - 115 - 116 - 117 - 118 - 119 - 120 - 121 - 122 - 123 - 124 - 125 - 126 - 127 - 128 - 129 - 130 - 131 - 132 - 133 - 134 - 135 - 136 - 137 - 138 - 139 - 140 - 141 - 142 - 143 - 144 - 145 - 146 - 147 - 148 - 149 - 150 - 151 - 152 - 153 - 154 - 155 - 156 - 157 - 158 - 159 - 160 - 161 - 162 - 163 - 164 - 165 - 166 - 167 - 168 - 169 - 170 - 171 - 172 - 173 - 174 - 175 - 176 - 177 - 178 - 179 - 180 - 181 - 182 - 183 - 184 - 185 - 186 - 187 - 188 - 189 - 190 - 191 - 192 - 193 - 194 - 92

--- End code ---

Thanks

Dlanor:
Pretty basic, but works.


--- Code - Auto/Visual Lisp: ---(defun rh:get_int (msg / no)  (initget 7)  (setq no (getint (strcat "\nEnter " msg " No : "))));end_defun   (defun c:numtext ( / c_doc ms s_no e_no str)   (setq c_doc (vla-get-activedocument (vlax-get-acad-object))        ms (vla-get-modelspace c_doc)        s_no (rh:get_int "Start")        e_no (rh:get_int "End")        str (strcat (itoa e_no) " - " (itoa s_no))        cnt (1- e_no)  );end_setq  (while (< (1- s_no) cnt e_no)    (setq str (strcat (itoa cnt) " - " str)          cnt (1- cnt)    );end_setq  );end_while  (vla-addmtext ms (vlax-3d-point (getpoint "\nSelect Insertion Point : ")) 0 str) );end_defun  

BIGAL:
Dlanor maybe an extra question 1 line or column if column add the \\p can just see that being next question.

Have a look at this for multiple entry

kirby:
BigAl - Very nice, efficient method of collecting a lot of data.

pedroantonio:
Thank you Dlanor

Navigation

[0] Message Index

[#] Next page