也谈Lisp生成二维码之调用命令行exe版

紫苏炒黄瓜

刚看到，学习一下

happyboy75

学习到了，不错，够我用了

wosiguwozai0830

感谢长老共享资料！

呼呼se

支持定制开发吗？？

cq4920

厉害 支持厉害 支持厉害 支持厉害 支持厉害 支持厉害 支持厉害 支持厉害 支持厉害 支持厉害 支持

chenweibin86

请问是否可实现直接扫码打开一个网址，谢谢

chenweibin86

chenweibin86 发表于 2022-11-8 15:26
请问是否可实现直接扫码打开一个网址，谢谢

可以了可以了

cq4920

自贡黄明儒 发表于 2022-5-20 11:03
等你发个应用示例，我等好照虎画猫。

2. (defun c:rrt (/ x  lien util str strlst )
   
3.         (vl-load-com)
   
4.         (setq str (cdr (assoc 1 (entget (car(entsel"点击文本"))))))
   
5.         (setq WScript (vlax-get-or-create-object "WScript.Shell"))
   
6.   (setq WSreturn (vlax-invoke WScript 'exec (strcat ""QRencodeForLisp.exe" "" str """)))
   
7.   (setq stdout (vlax-get WSreturn 'StdOut))
   
8.   (setq outstr (vlax-invoke stdout 'Readall))
   
9.     (setq strlst (read outstr))
   
10. (setq x (length strlst))
    
11. (setq  lw 1 ll lw pt (getpoint"指定插入点"))
    
12. (repeat x  
    
13.    (setq xlist (car strlst))
    
14.          (setq n x)
    
15.                 (repeat x  
    
16.                         (setq ptn (polar pt 0 (* lw n)))
    
17.                         (setq n (1- n))
    
18.                         (setq ptx (rtos (nth n xlist) 2 0 ))
    
19.                 (if (= ptx "1") (Mc:pl1-1fk ptn lw ll))
    
20.         )
    
21.         (setq pt (polar pt (* pi 1.5) lw))
    
22.         (setq strlst (vl-remove (car strlst) strlst))
    
23. )
    
24.   (redraw)
    
25. )
    
26. 
    
27. 
    
28. 
    
29. ;;(Mc:pl1-1fk pt1 lw ll) 多义线起点 宽度 长度
    
30. (defun Mc:pl1-1fk (pt lw ll / pta)
    
31. (setq pta (polar pt 0 ll))
    
32. (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 43  LW)(cons 90 2) (cons 10 pt) (cons 10 pta)))
    
33.         )
    

(defun c:rrt (/ x  lien util str strlst )<br />         (vl-load-com)<br />         (setq str (cdr (assoc 1 (entget (car(entsel"点击文本"))))))<br />         (setq WScript (vlax-get-or-create-object "WScript.Shell"))<br />   (setq WSreturn (vlax-invoke WScript 'exec (strcat ""QRencodeForLisp.exe" "" str """)))<br />   (setq stdout (vlax-get WSreturn 'StdOut))<br />   (setq outstr (vlax-invoke stdout 'Readall))<br />     (setq strlst (read outstr))<br /> (setq x (length strlst))<br /> (setq  lw 1 ll lw pt (getpoint"指定插入点"))<br /> (repeat x  <br />    (setq xlist (car strlst))<br />          (setq n x)<br />                 (repeat x  <br />                         (setq ptn (polar pt 0 (* lw n))) <br />                         (setq n (1- n))<br />                         (setq ptx (rtos (nth n xlist) 2 0 ))<br />                 (if (= ptx "1") (Mc:pl1-1fk ptn lw ll))<br />         )<br />         (setq pt (polar pt (* pi 1.5) lw))<br />         (setq strlst (vl-remove (car strlst) strlst)) <br /> )<br />   (redraw)<br /> )<br /> <br /> <br /> <br /> ;;(Mc:pl1-1fk pt1 lw ll) 多义线起点 宽度 长度<br /> (defun Mc:pl1-1fk (pt lw ll / pta)<br /> (setq pta (polar pt 0 ll))<br /> (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 43  LW)(cons 90 2) (cons 10 pt) (cons 10 pta)))<br />         )<br />

阳阳阳

好东西！谢谢分享！！

ZYX2129

学习到了，不错好东西！谢谢分享！