Générer des QR Code

[jms]

Bonjour,

 

J'essaye d'afficher dans un plan d'étage d'immeuble de bureaux, des QR Code équivalents au n° des locaux. Evidemment, j'aimerais pouvoir les générer facilement mais ces QR Codes ne sont pas une simple police qu'on ajoute aux autres. Et à moins de passer par un générateur de QR Code en ligne, qui me retourne une image, à copier/coller dans le plan, je ne vois pas encore de méthode plus rapide...(c'est lourd !!!)

Quelqu'un a-t-il déjà utilisé ces codes dans des dessins ?

Un conseil ?

 

Grand merci d'avance

 

Jean-Michel

[Invité Patrick]

J'avais posté une discussion à ce sujet il y a quelques années... avec un programme LISP je crois qui générait des QRcodes...

[jms]

Merci Patrick.

J'avais fait une recherche dans le forum, sans résultat. Je réessaye...

[thierry.garré]

Bonjour,

 

avec une rapide recherche sur Google on trouve ccela:

 

Qr codes

 

Non testé toutefois.

 

cordialement

[jms]

Génial...très efficace, mais Autocad plante dès que j'ai terminé la commande !

:(

[thierry.garré]

Surement un problème dans le lisp.

 

Il ne te reste plus qu'a exposer ton soucis dans le forum adequat de Cadxp.

 

Pour ma part mes compétences s’arrête ici.

 

Cordialement

[jms]

Néanmoins un grand merci pour cette piste.

[Steven]

Salut à tous,

 

Ce lisp est pas mal mais le soucis est que l'on ne peut pas insérer plusieurs QRCodes avec un texte différents.

En effet, lorsqu"on insère un premier QRCode, le bloc s'apelle QRCode. Ce qu ifait que si j'insère à nouveau un QRCode via le lisp et que j'entre un autre texte, tous les QRCodes du dessin auront le même texte.

J'ai voulu faire un essai pour faire du réferencement de mobilier mais ça ne s'y prête malheureusement pas vraiment.

N'y aurait-il pas un moyen d'avoir un QRCopde différent à chaque fois qu'on en insère un?

[vincentp010]

Salut,

 

sur la page du projet, il y a un exemple qui dit que tu peut changer le nom du bloc

LISP syntax

 

(qrcode msg name option)

 

msg

string to encode

 

name

name of block to create

 

option

if 1, just update block (if present in the drawing)

[Steven]

Salut vincentp010,

 

J'ai bien vu, mais lorsqu'on insère le QRCode, il n'y a pas d'options :unsure:

Je pensais qu'il fallait changer la valeu 1, dans le lisp, par une autre valeur mais je ne vois pas laquelle.

[Georges2]

salut à tous

 

tu renommes le QRcode avant d'insérer un nouveau, je crois que ça marche

 

à tester

 

@+

[Steven]

salut à tous

 

tu renommes le QRcode avant d'insérer un nouveau, je crois que ça marche

 

à tester

 

@+

 

Bonjour Georges2,

 

Si je souhaite référencer 300 mobiliers sur un étage, par exemple, je ne vais sûrement pas renommer un QRCode manuellement avant d'en insérer un nouveau.

 

Je pense que le lisp peut le faire mais je n'ai pas bien compris le système.

[(gile)]

Salut,

 

Ajouter ce bout de code a QRcode.lsp et utiliser la commande MQRCODE pour insertions multiples (le nom du bloc est incrémenté).

 

(defun c:mQRcode (/ incrName str i name)
 (setq i 0)
 (while (tblsearch "block" (setq name (strcat "QRCode_" (itoa (setq i (1+ i)))))))
 (cond
   ((not (validstr (setq str (getstring "\nEnter Text to encode :" T))))
    (princ "\nNo text entered")
   )
   ((QRcode str name 0)
    (command "_REGENALL")
    (command "_INSERT" name)
   )
 )
 (princ)
)

[Steven]

Une fois de plus, Gile a encore fait très fort. Tout simplement génial.

 

http://smiley-online.com/images/gif/bravo/vignette/thumbnails/1036947074_gif.gif

[Invité Patrick]

J'ai retrouvé la discussion, c'était il y a 5 ans... http://www.exmateria.com/index.php?topic=1501.0

[nG! Hebus]

<3 Gile

[Fundream]

Merci pour ce post, ça va donner une petite touche technologique à mes plans !!!

[kluna]

Une autre solution ici:

 

https://cadxp.com/topic/43921-qrcode/

 

Thierry