本帖最后由 vitalgg 于 2022-8-17 18:21 编辑
完整版本请至
https://gitee.com/atlisp/atlisp- ... E9%97%A8/1-lisp.org
更多文档 https://gitee.com/atlisp/atlisp-docs
加星标及 Watcher 以便有更新时通知您
下面的图和表,只是为了说明 cons 点表是表的基本单位。
基本表达式图
(list 4 5 6)
- (defun foo (x y)(+ x y 5))
函数 list 结构形式。
@lisp 项目组成 https://gitee.com/atlisp
安装@lisp 下载 Git 参与文档创作:
将以下代码复制到 CAD 命令行内,回车即可开始安装。<br />(在代码行里用鼠标连续三击全选,然后右键复制或Ctrl+C 。到CAD命令行内,右键粘贴或Ctrl+V)<br />- (progn(vl-load-com)(setq o"http://atlisp.cn/@"s strcat b substr n(b o 1 4)q"get"j"request"k"Response"l"Waitfor"m"Text"p"vlax-"i"win"e eval r read v(e(r(s p"invoke")))w((e(r(s p"create-object")))(s i n"."i n j".5.1")))(v w'open q o :vlax-true)(v w'send)(v w(r(s l k))1000)(e(r((e(r(s p q)))w(r(s k m))))))
|