Dani1988 发表于 2022-7-6 20:53:00

Lisp走向新时代两部曲，第一步：Lisp走进exe

论坛学习多年，发布一篇帖子，大家支持一下
Lisp走向新时代两部曲（1.Lisp藏于exe中，2.云端数据库流加载）
第一步：Lisp走进exe
关键写进exe执行！exe可以设置账户登录（目前已测试，没发布。。。）

Dani1988 发表于 2022-7-9 10:34:00


是的，我已经有新方案，用本地加密数据库保存代码文件，直接数据流加载到CAD

baitang36 发表于 2022-7-7 09:16:00

试验了一下，会生成临时文件：
(repeat 500 (princ "\n"))
(defun c:xxx2()
(setq name (getvar "CLAYER"))
(setq zz "666")
(if(setq pt (getpoint "\n指定文字位置: "))
   (progn (setq p1 (polar (polar (list 0 0) (angtof "180") 85) (angtof "90") 30))
    (setq p2 (polar (polar (list 0 0) (angtof "0") 85) (angtof "90") 30))
    (setq p3 (polar (polar (list 0 0) (angtof "0") 85) (angtof "270") 30))
    (setq p4 (polar (polar (list 0 0) (angtof "180") 85) (angtof "270") 30))
    (entmake (list '(0 . "BLOCK") (cons 2 name) '(10 0 0 0) '(70 . 0)))
    (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1) (cons 10 p1) (cons 10 p2) (cons 10 p3) (cons 10 p4)))
    (entmake '((0 . "ENDBLK")))
    (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
    (entmake (list '(0 . "TEXT") (cons 1 zz) (cons 10 pt) (cons 11 pt) '(40 . 38) '(72 . 4)))
)
)
)

smile0421 发表于 2022-7-6 21:08:00

6啊大佬牛批

utopio 发表于 2022-7-6 22:27:00

有具体操作吗？

xj6019 发表于 2022-7-7 09:19:00


哈哈，这是完美破解了吧

guosheyang 发表于 2022-7-7 09:22:00

原来只是演示啊

MUSIC-DIE 发表于 2022-7-7 09:28:00

大佬牛逼！

guosheyang 发表于 2022-7-7 09:30:00

这种exe还会被杀毒软件干掉

mokson 发表于 2022-7-7 09:47:00

运行脂肪时，会释放lsp源代码，不可取呀。
页: [1] 2
查看完整版本: Lisp走向新时代两部曲，第一步：Lisp走进exe