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

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

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

yerqe0hgqfq.png

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)))
  )
  )
)