求助大佬

ocoipw

求助大佬，在CAD中如何生成二维码

飞雪神光

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=184334&highlight=%B6%FE%CE%AC%C2%EB
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=180071&highlight=%B6%FE%CE%AC%C2%EB
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=102187&highlight=%B6%FE%CE%AC%C2%EB

ocoipw

飞雪神光 发表于 2025-1-23 22:52
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=184334&highlight=%B6%FE%CE%AC%C2%EB
http://bbs.mjt ...

谢谢

tranque

赫思cad助手好像有这个功能

ocoipw

(defun QrBarCode(str inp / dll lists m basex basey oldPlineWid oldosmode oldcmdecho tmp n basex basey tmpstr)
  (setq dll(vlax-get-or-create-object "QrBarCode.QRCode"))
  (setq lists(vlax-invoke dll 'getarray str))
  (setq m -1)
  (setq basex -1
        basey 0)
  (setq oldPlineWid (getvar "PLINEWID")
        oldosmode(getvar "osmode")
        oldcmdecho(getvar "cmdecho")
  )
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setvar "PLINEWID" 1)
  (command "_undo" "be")
  (repeat (length lists)
    (setq tmp(read(strcat "(" (nth (setq m(1+ m)) lists) ")")))
    (setq n -1)
    (setq basex (1+ basex))
    (setq basey 0)
    (repeat (length tmp)
      (setq tmpstr(nth (setq n(1+ n)) tmp))
      (setq basey(1- basey))
      (if (= 1 tmpstr)
        (command "pline" (mapcar '+ inp (list basex basey)) (mapcar '+ inp (list basex (1+ basey))) "")
      )
    )
  )
  (command "_undo" "e")
  (vlax-release-object dll)  
  (setvar "PLINEWID" oldPlineWid)
  (setvar "osmode" oldosmode)
  (setvar "cmdecho" oldcmdecho)
  (princ)
)

此程序不知怎么用，请大佬不吝指教