« previous next »
Pages: [1] 2  All |   Go Down

Author Topic: QRCODE for Autocad  (Read 10183 times)

0 Members and 1 Guest are viewing this topic.

Sam

  • Bull Frog
  • Posts: 201
QRCODE for Autocad
« on: March 02, 2013, 01:49:51 AM »
QR CODE FOR AUTOCAD - TEST PAGE
QR code string Generator
This form will return a sequence of 0 and 1 representing each line of the QR code.
It can be easily used to create the QR code image in various applications.
The string always begins with 1111111, representing the upper black border of the upper-left square.

text to encode :     
QR code Block symbol
This is a Block sample generated in Autocad with a lisp routine.
It contains optimized Solids.
Cadorg_QRCode.dwg

Plan Sample with QR code
In my AutoCAD document management software, I have implemented QR codes in title blocks.
It has 2 functions :
- Check the validity of a specific plan by scanning its QR code, for example with an Iphone.
- The user will be instantly warned if the plan has been updated and redirected to the online set of PDF plans.

Check it out :

Code - Auto/Visual Lisp: [Select]
  1. ;*********************************************************************************
  2. ; QRCODE for Autocad
  3. ; © 2010 swisscad / Ian Vogel
  4. ; V 0.91 released 2010.08.22
  5. ;http://www.xcad.ch/tests/qrcode.html
  6. ;*********************************************************************************
  7. (defun c:QRcode ( / str)
  9. ((not (validstr (setq str (getstring "\nEnter Text to encode :" T))))
  10. (princ "\nNo text entered")
  11. )
  12. ((QRcode str (setq name "QRCode") 0)
  13. (command "_REGENALL")
  14. (command "_INSERT" name)
  15. )
  16. )
  18. )
  19. (defun QRcode (string ; string to encode
  20. blockname ; name of the block to create
  21. options ; options
  22. ; 1 = perform only if block already exists
  23. / QR x y startx row)
  26. ((not (validstr blockname)))
  27. ((or (zerop (logand 1 options))
  28. (tblsearch "BLOCK" blockname)
  29. )
  30. (setq baseurl "www.xcad.ch/tests/getqrcode.php")
  31. (setq QR (valstr (gethttp (strcat baseurl"%3Fstring=" (urlencode (urlencode string))) 0)))
  33. ((eq (substr QR 1 6) "111111");response OK
  34. (setq QR (split QR "-")
  35. y 0)
  36. ;create Qrcode block
  37. (entmake (list '(0 . "BLOCK")
  38. (cons 2 blockname)
  39. '(8 . "0")
  40. '(70 . 0)
  41. '(10 0.0 0.0 0.0)
  42. )
  43. )
  44. (foreach row QR
  45. (setq x 0)
  46. (while (< x (strlen row))
  48. ((eq (substr row (1+ x) 1) "1")
  49. ;memorize start of filled zone
  50. (if (not startx)(setq startx x))
  51. (if (not (eq (substr row (+ x 2) 1) "1"))
  53. ;draw filled zone
  54. (entmake (list (cons 0 "SOLID")
  55. (cons 8 "0")
  56. (cons 10 (list startx y))
  57. (cons 11 (list (1+ x) y))
  58. (cons 12 (list startx (1- y)))
  59. (cons 13 (list (1+ x)(1- y)))
  60. (cons 62 0)
  61. )
  62. )
  63. (setq startx nil)
  64. ))
  65. ))
  66. (setq x (1+ x))
  67. )
  68. (setq y (1- y))
  69. )
  70. ;end of block
  71. (setq bl_a (entmake '((0 . "ENDBLK"))))
  72. )
  73. )
  74. T
  75. ))
  76. )
  77. ;-------------------------------------------------------
  78. ; Get an URL
  79. ;-------------------------------------------------------
  80. (defun gethttp (lien
  81. opt
  82. / fi line tmp util content)
  85. )
  86. )
  87. (if (eq (vla-isurl util lien) :vlax-true)
  89. (vl-catch-all-apply
  91. (list util lien 'tmp :vlax-true)
  92. )
  93. )
  94. (princ "\nError getting http file.")
  96. (setq fi (open tmp "r")
  97. content "")
  98. (while (setq line (read-line fi))
  99. (setq content (strcat content line))
  100. )
  101. (close fi)
  102. )
  103. )
  104. )
  105. content
  106. )
  107. ;-------------------------------------------------------
  108. ; Turn any var to a string
  109. ;-------------------------------------------------------
  110. (defun valstr (val)
  112. ((eq (type val) 'STR) val)
  113. ((eq (type val) 'REAL) (rtos val))
  114. ((eq (type val) 'INT) (itoa val))
  115. (T "")
  116. ))
  117. ;-------------------------------------------------------
  118. ; Check that a string is not empty
  119. ;-------------------------------------------------------
  120. (defun validstr (str / tmp)
  121. (if (> (strlen (setq tmp (trim (valstr str)))) 0) tmp nil)
  122. )
  123. ;-------------------------------------------------------
  124. ; Remove blanks from a string
  125. ;-------------------------------------------------------
  126. (defun trim ( str / )
  127. (setq str (valstr str))
  128. (while (eq (substr str 1 1) " ")
  129. (setq str (substr str 2))
  130. )
  131. (while (and (> (strlen str) 1)
  132. (eq (substr str (strlen str) 1) " ")
  133. )
  134. (setq str (substr str 1 (- (strlen str) 1)))
  135. )
  136. str
  137. )
  138.  
  139. ;-------------------------------------------------------
  140. ; Split a string
  141. ;-------------------------------------------------------
  142. (defun split (str ; string to split
  143. cara ; separator
  144. / n portion xstring seqstart chrcode portion)
  146. ((and (= (type str)(type cara) 'STR)(eq (strlen cara) 1))
  147. (setq n -1 seqstart 1 chrcode (ascii cara))
  148. (while (setq n (vl-string-position chrcode str (+ n 1) nil))
  149. (setq xstring (append xstring (list (substr str seqstart (- n seqstart -1)))) seqstart (+ n 2) )
  150. )
  151. (setq xstring (append xstring (list (substr str seqstart))))
  152. (if xstring xstring (list str))
  153. )
  154. ((= (type str)(type cara) 'STR)
  155. (setq portion "" n 1)
  156. (if (<= (strlen cara) (strlen str))
  158. (while (<= n (strlen str))
  159. (if (eq (substr str n (strlen cara)) cara)
  160. (setq xstring (append xstring (list portion))
  161. portion ""
  162. n (+ n (strlen cara))
  163. )
  164. (setq portion (strcat portion (substr str n 1))
  165. n (+ 1 n)
  166. )
  167. )
  168. )
  169. (if (or (> (strlen portion) 0)
  170. (eq (substr str (abs (- (strlen str)(strlen cara) -1))) cara)
  171. )
  172. (setq xstring (append xstring (list portion)))
  173. )
  174. )
  175. (setq xstring (list str))
  176. )
  177. (if xstring xstring (list ""))
  178. )
  179. (T (list nil))
  180. )
  181. )
  182. ;----------------------------------------------------------
  183. ; See PHP function
  184. ; http://ch2.php.net/manual/fr/function.htmlentities.php
  185. ;----------------------------------------------------------
  186. (defun urlencode (str / result n len )
  187. (setq result ""
  188. n 1
  189. len (strlen str))
  190.  
  191. (while (<= n len)
  192. (setq result (strcat result (urlenc (substr str n 1)))
  193. n (+ 1 n))
  194. )
  195. result
  196. )
  197. (defun urlenc (ch)
  199. ((eq ch " ") " ");+
  200. ((eq ch "!") "%21")
  201. ((eq ch "\"") "%22")
  202. ((eq ch "#") "%23")
  203. ((eq ch "$") "%24")
  204. ((eq ch "%") "%25")
  205. ((eq ch "&") "%26")
  206. ((eq ch "'") "%27")
  207. ((eq ch "(") "%28")
  208. ((eq ch ")") "%29")
  209. ((eq ch "*") "%2A")
  210. ((eq ch "+") "%2B")
  211. ((eq ch ",") "%2C")
  212. ((eq ch "/") "%2F")
  213. ((eq ch ":") "%3A")
  214. ((eq ch ";") "%3B")
  215. ((eq ch "<") "%3C")
  216. ((eq ch "=") "%3D")
  217. ((eq ch ">") "%3E")
  218. ((eq ch "?") "%3F")
  219. ((eq ch "@") "%40")
  220. ((eq ch "[") "%5B")
  221. ((eq ch "\\") "%5C")
  222. ((eq ch "]") "%5D")
  223. ((eq ch "^") "%5E")
  224. ((eq ch "`") "%60")
  225. ((eq ch "{") "%7B")
  226. ((eq ch "|") "%7C")
  227. ((eq ch "}") "%7D")
  228. ((eq ch "~") "%7E")
  229. ((eq ch "‘") "%91")
  230. ((eq ch "’") "%92")
  231. ((eq ch "ˇ") "%A1")
  232. ((eq ch "˘") "%A2")
  233. ((eq ch "Ł") "%A3")
  234. ((eq ch "¤") "%A4")
  235. ((eq ch "Ą") "%A5")
  236. ((eq ch "¦") "%A6")
  237. ((eq ch "§") "%A7")
  238. ((eq ch "¨") "%A8")
  239. ((eq ch "©") "%A9")
  240. ((eq ch "Ş") "%AA")
  241. ((eq ch "«") "%AB")
  242. ((eq ch "¬") "%AC")
  243. ((eq ch "­") "%AD")
  244. ((eq ch "®") "%AE")
  245. ((eq ch "Ż") "%AF")
  246. ((eq ch "°") "%B0")
  247. ((eq ch "±") "%B1")
  248. ((eq ch "˛") "%B2")
  249. ((eq ch "ł") "%B3")
  250. ((eq ch "´") "%B4")
  251. ((eq ch "µ") "%B5")
  252. ((eq ch "¶") "%B6")
  253. ((eq ch "·") "%B7")
  254. ((eq ch "¸") "%B8")
  255. ((eq ch "ą") "%B9")
  256. ((eq ch "ş") "%BA")
  257. ((eq ch "»") "%BB")
  258. ((eq ch "Ľ") "%BC")
  259. ((eq ch "˝") "%BD")
  260. ((eq ch "ľ") "%BE")
  261. ((eq ch "ż") "%BF")
  262. ((eq ch "Ŕ") "%C0")
  263. ((eq ch "Á") "%C1")
  264. ((eq ch "Â") "%C2")
  265. ((eq ch "Ă") "%C3")
  266. ((eq ch "Ä") "%C4")
  267. ((eq ch "Ĺ") "%C5")
  268. ((eq ch "Ć") "%C6")
  269. ((eq ch "Ç") "%C7")
  270. ((eq ch "Č") "%C8")
  271. ((eq ch "É") "%C9")
  272. ((eq ch "Ę") "%CA")
  273. ((eq ch "Ë") "%CB")
  274. ((eq ch "Ě") "%CC")
  275. ((eq ch "Í") "%CD")
  276. ((eq ch "Î") "%CE")
  277. ((eq ch "Ď") "%CF")
  278. ((eq ch "Đ") "%D0")
  279. ((eq ch "Ń") "%D1")
  280. ((eq ch "Ň") "%D2")
  281. ((eq ch "Ó") "%D3")
  282. ((eq ch "Ô") "%D4")
  283. ((eq ch "Ő") "%D5")
  284. ((eq ch "Ö") "%D6")
  285. ((eq ch "×") "%D7")
  286. ((eq ch "Ř") "%D8")
  287. ((eq ch "Ů") "%D9")
  288. ((eq ch "Ú") "%DA")
  289. ((eq ch "Ű") "%DB")
  290. ((eq ch "Ü") "%DC")
  291. ((eq ch "Ý") "%DD")
  292. ((eq ch "Ţ") "%DE")
  293. ((eq ch "ß") "%DF")
  294. ((eq ch "ŕ") "%E0")
  295. ((eq ch "á") "%E1")
  296. ((eq ch "â") "%E2")
  297. ((eq ch "ă") "%E3")
  298. ((eq ch "ä") "%E4")
  299. ((eq ch "ĺ") "%E5")
  300. ((eq ch "ć") "%E6")
  301. ((eq ch "ç") "%E7")
  302. ((eq ch "č") "%E8")
  303. ((eq ch "é") "%E9")
  304. ((eq ch "ę") "%EA")
  305. ((eq ch "ë") "%EB")
  306. ((eq ch "ě") "%EC")
  307. ((eq ch "í") "%ED")
  308. ((eq ch "î") "%EE")
  309. ((eq ch "ď") "%EF")
  310. ((eq ch "đ") "%F0")
  311. ((eq ch "ń") "%F1")
  312. ((eq ch "ň") "%F2")
  313. ((eq ch "ó") "%F3")
  314. ((eq ch "ô") "%F4")
  315. ((eq ch "ő") "%F5")
  316. ((eq ch "ö") "%F6")
  317. ((eq ch "÷") "%F7")
  318. ((eq ch "ř") "%F8")
  319. ((eq ch "ů") "%F9")
  320. ((eq ch "ú") "%FA")
  321. ((eq ch "ű") "%FB")
  322. ((eq ch "ü") "%FC")
  323. ((eq ch "ý") "%FD")
  324. ((eq ch "ţ") "%FE")
  325. ((eq ch "˙") "%FF")
  326. (T ch)
  327. )
  328. )
  329. (princ "\nType QRCODE")
  331. ;*********************************************************************************
Logged
Every time we waste electricity, we put our planet's future in the dark. Let's turn around our attiude and start saving power and our planet, before it's too late
http://www.theswamp.org/donate.html

pBe

  • Bull Frog
  • Posts: 402
Re: QRCODE for Autocad
« Reply #1 on: March 02, 2013, 06:06:41 AM »
Have not tested the result yet, but i like the  idea Sam. Nice  :)
Thank you for sharing



Logged

Sam

  • Bull Frog
  • Posts: 201
Re: QRCODE for Autocad
« Reply #2 on: March 02, 2013, 06:26:57 AM »
Quote from: pBe on March 02, 2013, 06:06:41 AM
Have not tested the result yet, but i like the  idea Sam. Nice  :)
Thank you for sharing
dear sir,

this lisp not written me. ( and i am not lisp programmer  i am just user)
thx for original writer.
i am just sharing this lisp

Logged
Every time we waste electricity, we put our planet's future in the dark. Let's turn around our attiude and start saving power and our planet, before it's too late
http://www.theswamp.org/donate.html

irneb

  • Water Moccasin
  • Posts: 1794
  • ACad R9-2016, Revit Arch 6-2016
Re: QRCODE for Autocad
« Reply #3 on: March 02, 2013, 06:43:38 AM »
A slightly optimized set of helper functions:
Code - Auto/Visual Lisp: [Select]
  1. (defun valstr  (Val)
  2.   (cond
  3.     ((listp Val)
  4.      (strcat
  5.        "("
  6.        (substr (apply 'strcat
  7.                       (mapcar '(lambda (v) (strcat " " (valstr v))) Val))
  8.                2)
  9.        ")"))
  10.     ((= (type Val) 'Real) (rtos Val 2 16))
  11.     ((= (type Val) 'Str) (vl-prin1-to-string Val))
  12.     (t (vl-princ-to-string Val))))
  13.  
  14. (defun trim (source) (vl-string-trim " " source))
  15.  
  16. (defun split  (source chars)
  17.   (mapcar (function (lambda (m n) (substr source (+ 2 m) (- n m 1))))
  18.           (cons -1
  19.                 (setq chars
  20.                        (vl-sort
  21.                          (apply
  22.                            'append
  23.                            (mapcar
  24.                              (function (lambda (code / result n)
  25.                                          (setq n -1)
  26.                                          (while (setq n (vl-string-position
  27.                                                           code
  28.                                                           source
  29.                                                           (1+ n)))
  30.                                            (setq result (cons n result)))
  31.                                          result))
  32.                              (vl-string->list chars)))
  33.                          '<)))
  34.           (append chars (list (strlen source)))))
  35.  
  36. (defun urlencode  (source / codes)
  37.   (setq codes (mapcar 'cons
  38.                       '(33   34   35   36   37   38   39   40   41   42
  39.                         43   44   47   58   59   60   61   62   63   64
  40.                         91   92   93   94   96   123  124  125  126  145
  41.                         146  161  162  163  164  165  166  167  168  169
  42.                         170  171  172  173  174  175  176  177  178  179
  43.                         180  181  182  183  184  185  186  187  188  189
  44.                         190  191  192  193  194  195  196  197  198  199
  45.                         200  201  202  203  204  205  206  207  208  209
  46.                         210  211  212  213  214  215  216  217  218  219
  47.                         220  221  222  223  224  225  226  227  228  229
  48.                         230  231  232  233  234  235  236  237  238  239
  49.                         240  241  242  243  244  245  246  247  248  249
  50.                         250  251  252  253  254  255)
  51.                       '("%21"    "%22"    "%23"    "%24"    "%25"
  52.                         "%26"    "%27"    "%28"    "%29"    "%2A"
  53.                         "%2B"    "%2C"    "%2F"    "%3A"    "%3B"
  54.                         "%3C"    "%3D"    "%3E"    "%3F"    "%40"
  55.                         "%5B"    "%5C"    "%5D"    "%5E"    "%60"
  56.                         "%7B"    "%7C"    "%7D"    "%7E"    "%91"
  57.                         "%92"    "%A1"    "%A2"    "%A3"    "%A4"
  58.                         "%A5"    "%A6"    "%A7"    "%A8"    "%A9"
  59.                         "%AA"    "%AB"    "%AC"    "%AD"    "%AE"
  60.                         "%AF"    "%B0"    "%B1"    "%B2"    "%B3"
  61.                         "%B4"    "%B5"    "%B6"    "%B7"    "%B8"
  62.                         "%B9"    "%BA"    "%BB"    "%BC"    "%BD"
  63.                         "%BE"    "%BF"    "%C0"    "%C1"    "%C2"
  64.                         "%C3"    "%C4"    "%C5"    "%C6"    "%C7"
  65.                         "%C8"    "%C9"    "%CA"    "%CB"    "%CC"
  66.                         "%CD"    "%CE"    "%CF"    "%D0"    "%D1"
  67.                         "%D2"    "%D3"    "%D4"    "%D5"    "%D6"
  68.                         "%D7"    "%D8"    "%D9"    "%DA"    "%DB"
  69.                         "%DC"    "%DD"    "%DE"    "%DF"    "%E0"
  70.                         "%E1"    "%E2"    "%E3"    "%E4"    "%E5"
  71.                         "%E6"    "%E7"    "%E8"    "%E9"    "%EA"
  72.                         "%EB"    "%EC"    "%ED"    "%EE"    "%EF"
  73.                         "%F0"    "%F1"    "%F2"    "%F3"    "%F4"
  74.                         "%F5"    "%F6"    "%F7"    "%F8"    "%F9"
  75.                         "%FA"    "%FB"    "%FC"    "%FD"    "%FE"
  76.                         "%FF")))
  77.   (apply
  78.     'strcat
  79.     (mapcar
  80.       (function (lambda (elt / found)
  81.                   (cond ((setq found (assoc elt codes)) (cdr found))
  82.                         (t (chr elt)))))
  83.       (vl-string->list source))))
A bit less code  ;) , and in some cases should run faster.
« Last Edit: March 02, 2013, 06:47:58 AM by irneb »
Logged
Common sense - the curse in disguise. Because if you have it, you have to live with those that don't.

owenwengerd

  • Bull Frog
  • Posts: 451
Re: QRCODE for Autocad
« Reply #4 on: March 02, 2013, 11:18:57 AM »
Quote from: Sam on March 02, 2013, 06:26:57 AM
this lisp not written me. ( and i am not lisp programmer  i am just user)
thx for original writer.

Did the copyright owner give you permission to post this?
Logged

VovKa

  • Water Moccasin
  • Posts: 1628
  • Ukraine
Re: QRCODE for Autocad
« Reply #5 on: March 02, 2013, 01:17:24 PM »
having seen the topic subject i thought it would be the original QR generator. sad...
some time ago i even tried to write my own, but quit
Logged

pBe

  • Bull Frog
  • Posts: 402
Re: QRCODE for Autocad
« Reply #6 on: March 03, 2013, 07:38:33 AM »

Quote from: Sam on March 02, 2013, 06:26:57 AM
this lisp not written me. ( and i am not lisp programmer  i am just user)
thx for original writer.
i am just sharing this lisp

Quote from: VovKa on March 02, 2013, 01:17:24 PM
.....i thought it would be the original QR generator. sad...
I see, now is there a QRCODE reader program for cad?  :laugh:

Quote from: irneb on March 02, 2013, 06:43:38 AM
A slightly optimized set of helper functions:
...... A bit less code  ;) , and in some cases should run faster.

Nice, i'm almost tempted to write one myself but it would be somewhat similar with what you have.
Logged

Lee Mac

  • Seagull
  • Posts: 12912
  • London, England
Re: QRCODE for Autocad
« Reply #7 on: March 03, 2013, 07:51:30 AM »
Quote from: VovKa on March 02, 2013, 01:17:24 PM
having seen the topic subject i thought it would be the original QR generator. sad...

I was also quite disappointed to see that the AutoLISP code is simply retrieving the QR code data using a php script.  :|
Logged

irneb

  • Water Moccasin
  • Posts: 1794
  • ACad R9-2016, Revit Arch 6-2016
Re: QRCODE for Autocad
« Reply #8 on: March 03, 2013, 12:27:42 PM »
Quote from: Lee Mac on March 03, 2013, 07:51:30 AM
I was also quite disappointed to see that the AutoLISP code is simply retrieving the QR code data using a php script.  :|
Same here. At least the author made his own custom PHP to return a text file containing 0's and 1's so the lisp can figure out where to place the 2d solids.

Then I thought, what if one of those online QR generators could save to WMF instead? But no, there is none - at least none that I can find. They all save to raster images, mostly PNG. The closest I came to was saving to SVG, but only through post codes in a html form, so no way of lisp sending the requirements through a url.

Looks like the whole QR system needs re-implementing inside lisp. Or possibly use one of the API libraries and add it to DotNet/ObjectARX.

Anyhow, I've actually optimized the urlencoding of UTF8 even more  ;)
Code - Auto/Visual Lisp: [Select]
  1. (defun int2hex2 (int / result mod)
  2.   (while (> int 0)
  3.     (setq result (cons (cond ((< (setq mod (rem int 16)) 10) (+ mod 48))
  4.                              (t (+ mod 55)))
  5.                        result)
  6.           int (/ int 16)))
  7.   (while (< (length result) 2) (setq result (cons 48 result)))
  8.   (vl-list->string result))
  9.  
  10. (defun str->url (source)
  12.                                      (cond ((or (<= 65 elt 90) (<= 97 elt 122) (member elt '(45 46 95 126))) (chr elt))
  13.                                            ((= elt 32) "+")
  14.                                            (t (strcat "%" (int2hex2 elt))))))
  15.                          (vl-string->list source))))
Should perform a lot faster and use less RAM
Logged
Common sense - the curse in disguise. Because if you have it, you have to live with those that don't.

Lee Mac

  • Seagull
  • Posts: 12912
  • London, England
Re: QRCODE for Autocad
« Reply #9 on: March 03, 2013, 04:29:09 PM »
Nice one Irné!

I couldn't resist joining in - here is my variation of your str->url function (using some of your code)  :-)
Code - Auto/Visual Lisp: [Select]
  1. (defun int2hex ( n )
  2.     (cond
  3.         (   (< n 10) (chr (+ n 48)))
  4.         (   (< n 16) (chr (+ n 55)))
  5.         (   (strcat (int2hex (/ n 16)) (int2hex (rem n 16))))
  6.     )
  7. )
  8.  
  9. (defun str->url ( s )
  10.     (apply 'strcat
  11.         (mapcar
  12.             (function
  13.                 (lambda ( a )
  14.                     (cond
  15.                         (   (or (<= 65 a 90) (<= 97 a 122) (member a '(45 46 95 126))) (chr a))
  16.                         (   (= a 32) "+")
  17.                         (   (< a 16) (strcat "%0" (int2hex a)))
  18.                         (   (strcat "%" (int2hex a)))
  19.                     )
  20.                 )
  21.             )
  22.             (vl-string->list s)
  23.         )
  24.     )
  25. )
Logged

irneb

  • Water Moccasin
  • Posts: 1794
  • ACad R9-2016, Revit Arch 6-2016
Re: QRCODE for Autocad
« Reply #10 on: March 04, 2013, 05:46:46 AM »
Thanks Lee! And as usual your recursive routines are awesome!
Logged
Common sense - the curse in disguise. Because if you have it, you have to live with those that don't.

Lee Mac

  • Seagull
  • Posts: 12912
  • London, England
Re: QRCODE for Autocad
« Reply #11 on: March 04, 2013, 07:45:47 AM »
Thanks Irné!  8-)
Logged

dgorsman

  • Water Moccasin
  • Posts: 2437
Re: QRCODE for Autocad
« Reply #12 on: March 04, 2013, 10:31:17 AM »
From what I can tell, the QR code is generated in bit-blocks, depending on the style, density, etc.  Maybe somebody could create a series of dynamic blocks to represent the different configurations, since dynamic blocks can be programmatically manipulated?
Logged
If you are going to fly by the seat of your pants, expect friction burns.

try {GreatPower;}
   catch (notResponsible)
      {NextTime(PlanAhead);}
   finally
      {MasterBasics;}

AIberto

  • Guest
Re: QRCODE for Autocad
« Reply #13 on: January 27, 2015, 08:58:38 AM »
 I use SAM' code can generate  Qr code , I use mobile scan ,It's unreadable codes.


Quote from: Lee Mac on March 03, 2013, 04:29:09 PM
Nice one Irné!

I couldn't resist joining in - here is my variation of your str->url function (using some of your code)  :-)
Code - Auto/Visual Lisp: [Select]
  1. (defun int2hex ( n )
  2.     (cond
  3.         (   (< n 10) (chr (+ n 48)))
  4.         (   (< n 16) (chr (+ n 55)))
  5.         (   (strcat (int2hex (/ n 16)) (int2hex (rem n 16))))
  6.     )
  7. )
  8.  
  9. (defun str->url ( s )
  10.     (apply 'strcat
  11.         (mapcar
  12.             (function
  13.                 (lambda ( a )
  14.                     (cond
  15.                         (   (or (<= 65 a 90) (<= 97 a 122) (member a '(45 46 95 126))) (chr a))
  16.                         (   (= a 32) "+")
  17.                         (   (< a 16) (strcat "%0" (int2hex a)))
  18.                         (   (strcat "%" (int2hex a)))
  19.                     )
  20.                 )
  21.             )
  22.             (vl-string->list s)
  23.         )
  24.     )
  25. )

Lee, Can you give me a complete routine ? Many Thanks!
Logged

snownut2

  • Swamp Rat
  • Posts: 971
  • Bricscad 22 Ultimate
Re: QRCODE for Autocad
« Reply #14 on: January 27, 2015, 10:23:36 AM »
See this topic, a bit more updated.


http://www.theswamp.org/index.php?topic=48557.0
Logged
Pages: [1] 2  All |   Go Up
« previous next »