紫苏炒黄瓜 发表于 2022-9-13 12:14:37

刚看到，学习一下

happyboy75 发表于 2022-9-13 14:58:39

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

wosiguwozai0830 发表于 2022-10-25 15:41:43

感谢长老共享资料！

呼呼se 发表于 2022-11-3 15:54:07

支持定制开发吗？？

cq4920 发表于 2022-11-4 14:31:59

本帖最后由 cq4920 于 2022-11-4 14:49 编辑

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

chenweibin86 发表于 2022-11-8 15:26:40

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

chenweibin86 发表于 2022-11-8 15:49:45

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

可以了可以了

cq4920 发表于 2022-11-9 02:07:32

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

(defun c:rrt (/ xlien util str strlst )
        (vl-load-com)
        (setq str (cdr (assoc 1 (entget (car(entsel"点击文本"))))))
        (setq WScript (vlax-get-or-create-object "WScript.Shell"))
(setq WSreturn (vlax-invoke WScript 'exec (strcat "\"QRencodeForLisp.exe\" \"" str "\"")))
(setq stdout (vlax-get WSreturn 'StdOut))
(setq outstr (vlax-invoke stdout 'Readall))
    (setq strlst (read outstr))
(setq x (length strlst))
(setqlw 1 ll lw pt (getpoint"指定插入点"))
(repeat x
   (setq xlist (car strlst))
       (setq n x)
                (repeat x
                        (setq ptn (polar pt 0 (* lw n)))
                        (setq n (1- n))
                        (setq ptx (rtos (nth n xlist) 2 0 ))
                (if (= ptx "1") (Mc:pl1-1fk ptn lw ll))
        )
        (setq pt (polar pt (* pi 1.5) lw))
        (setq strlst (vl-remove (car strlst) strlst))
)
(redraw)
)



;;(Mc:pl1-1fk pt1 lw ll) 多义线起点 宽度 长度
(defun Mc:pl1-1fk (pt lw ll / pta)
(setq pta (polar pt 0 ll))
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 43LW)(cons 90 2) (cons 10 pt) (cons 10 pta)))
        )

阳阳阳 发表于 2022-11-30 08:51:31

好东西！谢谢分享！！

ZYX2129 发表于 2022-12-3 20:09:54

学习到了，不错好东西！谢谢分享！
页: 1 2 3 [4] 5
查看完整版本: 也谈Lisp生成二维码之调用命令行exe版