隆重推出AutoLisp For Windows!

cnks

楼主还是先提供程序给大伙看看吧，你的东西我觉得确实不错，希望能支持的不仅是for windows，还有部分arx里面的，arx能干的lsp很难做到的东西如果能实现也不错。

aroom

计算机的发明建立在二进制算法之上，二进制的诞生地是屹立在东方的文明古国---中国。

“太极生两仪”，万物始于空。

在Lisp里，空就是nil 。 “两仪”即 nil 和 true

《老子》曰：无名天地之始。有名万物之母。

在Lisp里，“无名”可理解为符号尚未赋值之前，为nil 。 “有名”即符号，任何数据都被符号所指向，被参考和引用

Lisp语言含有丰富的东方哲学，这就是她的魅力所在。

计算机世界里，只有两大语言是恒久存在的，一个是C语言，还有一个是Lisp语言。值得庆幸的是来到这个板块里的人至少熟悉后者，坚持学习、掌握它。

需要澄清的一点是：AutoCAD不是CAD的全部，同样AutoLisp不是Lisp的全部。

Lisp包含但不限于AutoLisp， 实现的地方方言有: Common Lisp 、scheme 、算子....

27012701

高手中的高手呀,今天第一次听这样的老师说教,真是佩服呀，您懂的太多了，要是可以多听听你的说教就好啦？

aroom

回到Lisp的实质，list(列表)既是堆栈，也是队列。

(setq lst nil) ;在lst被赋值之前本来就是列表, :) 有画蛇添足之嫌

(cons 1 lst) => '(1) ; 将其理解为将1压入堆栈，返回堆栈包含的内容。行为动作很像push

lst  => nil 

push 后为什么不是'(1)?

对了，Autolisp 的参数代入，不是传址，而是传值。因此无法定义解构函数。lst 保持原来的值

(setq lst (cons 1 lst))  ;这下等同于push

lst  => '(1)  ;)

那么pop 等价什么呢？ 来看：

(car lst) => 1 ;弹出了 FILO--First Input Last Output 你可以 (cons 3 (cons 2 (cons 1 nil))) 用car测试结果

综述，Autolisp 不能传递指针，这是很大的遗憾。

aroom

西方人送给你礼物时，你应该当面打开它，并发自内心地赞美，客人欣然。

相反，东方人送给你礼物时，你应该在客人走后再打开它，含蓄显得有风度。

在Lisp中，她总是打开你送给她的盒子：

1   =>   1   ;Lisp说: 整数1，不错!

"abc"   =>   "abc"   ;Lisp说: 好漂亮的"abc"字符串也!

(strcat "a" "b")  =>   "abc"   ;Lisp打开盒子，并说:哇, 字符串"a" 和字符串"b"连起来成"ab"啦!

简单的数据原本简单，复杂的数通过剥去括号(打开盒子)，剥去符号(也是打开盒子)，化繁为简。这是我们处理数据的目标，不是吗？

Lisp打开盒子，我们称其为求值。

呵呵，东方人延迟打开盒子，我们称其为延迟求值(quote)。

(setq a 123)   ;将123赋值给符号a (装入盒子)，送给Lisp

a   =>   123    ;Lisp打开盒子，并告诉你她看到的一切

' a   =>   A     ;Lisp并没有打开它，含蓄地朝你笑了一笑 :)

aroom

在Lisp为我们打开盒子的率真本性感到高兴的同时，有时也为"囊中羞涩"感到困惑。

AutoLisp就是这么个任性的姑娘！

如果我们在参数中包含vb的语句，比如:

(defun vbs-run (statement) (...))  ;呵呵，给她送个装满水的金鱼缸

(vbs-run  : Set xl = CreateObject("Excel.Application")
               : xl.Visible = True)

......

果然，她打不开，搬来了"铁锤"，结果水洒了一地!

我想要的是statement，不要打开！可是没有通道告诉她。

上面我解释了宏的基本概念，defun 函数总是先对自变量进行从左到右地依次求值，而后进入函数体中对语句求值。

 Lisp中的宏可以保留自变量不被求值。

sailorcwx

浪费表情

aroom

图形用户界面(GUI)一直是困扰高级Lisper的问题，DOS时代使用命令行式的控制台界面，DCL算是先进的交互界面

随着时间地推移，DCL函数的不可扩充性已是"黔驴技穷"。人们在纷繁多样的界面元素中寻求一种平衡。要吸引用户的眼球，很多人选择了ARX，有所得必有所失，被"指针"扎得伤痕累累。得到的同时，也失去了Lisp特有的交互对话和灵活数据类型的方便。

windows的界面元素本质是RES， 虽然各种资源编辑器编辑了RC文件，最终将编译为二进制字节码的RES文件。二进制文件由各种字符值的字节符号组成，AutoLisp的open、 read-line...不能读取ascii<32的字符。这又是AutoLisp的遗憾。

说了这么多，你会急迫地想知道能否解决问题，如何来实现？

aroom

答案是：

创新，发明出另一种语言，她叫“算子”。

下载附件，解压缩，运行szIDE。

将第一楼的代码贴入贴入，按F5， 你会看到结果。

aroom

;;;这里提供OpenGL的例子供你学习

2. (importDLL-ALL "opengl32.dll")
3. (importDLL-ALL "freeglut.dll")
4. (setq GL_COLOR_BUFFER_BIT  0x00004000
5.       GL_TRIANGLES         0x0004
6.       GLUT_DOUBLE 0x0002
7.       GLUT_SINGLE 0x0000
8.       GLUT_RGB 0x0000
9.       GLUT_RGBA 0x0000      
10.   rotx 0.0 roty 0.0)
11. (defun draw ()
12. (glClear GL_COLOR_BUFFER_BIT )
13. (glRotated rotx 0.0 1.0 0.0)
14. (glRotated roty 1.0 0.0 0.0)
15. (glutWireTeapot 0.5)
16. (glutSwapBuffers)
17. )
18. (defun rotation ()
19. (setq rotx (% (- (float rotx) .01) PI)
20.          roty (% (- (float roty) .012) PI))
21. (sleep 30)
22. (glutPostRedisplay)
23. )
24. (defun keyboard (key x y)
25. (if (= (& key 0xFF) 27) (exit))
26. (println "key:" (& key 0xFF) " x:" x  " y:" y)
27. (Speak "you press a key")
28. )
29. (defun mouse (button state x y)
30. (if (= state 0)
31.   (glutIdleFunc 0)
32.   (progn
33.    (Speak "you click mouse button")
34.    (glutIdleFunc (callback 'rotation)))
35. )
36. (println "button: " button " state:" state " x:" x " y:" y)
37. )
38. (defun motion (x y)
39. (setq rotx (* (/ 200.0 x) PI)
40.        roty (* (/ 150.0 y) PI))
41. (glutPostRedisplay)
42. (println "x:" x  " y:" y))
43. (defun main (argc argv)
44. (glutInit (address argc) (address argv))
45. (glutInitDisplayMode (| GLUT_RGB GLUT_DOUBLE ))
46. (glutInitWindowSize 800 600)
47. (glutInitWindowPosition 80 80)
48. (setq id (glutCreateWindow "算子语言调用OpenGL示例"))
49. (glClearColor (flt 0.5) (flt 0.3) (flt 0.3) (flt 0.0))
50. (glColor3d 1.0 0.85 0.35)
51. (glutDisplayFunc (callback 'draw))
52. (glutKeyboardFunc (callback 'keyboard))
53. (glutMouseFunc (callback 'mouse))
54. (glutMotionFunc (callback 'motion))
55. (glutIdleFunc (callback 'rotation))
56. (glutMainLoop)
57. )
58. (main 0 "")

(importDLL-ALL "opengl32.dll") (importDLL-ALL "freeglut.dll") (setq GL_COLOR_BUFFER_BIT  0x00004000       GL_TRIANGLES         0x0004       GLUT_DOUBLE 0x0002       GLUT_SINGLE 0x0000       GLUT_RGB 0x0000       GLUT_RGBA 0x0000         rotx 0.0 roty 0.0) (defun draw () (glClear GL_COLOR_BUFFER_BIT ) (glRotated rotx 0.0 1.0 0.0) (glRotated roty 1.0 0.0 0.0) (glutWireTeapot 0.5) (glutSwapBuffers) ) (defun rotation () (setq rotx (% (- (float rotx) .01) PI)          roty (% (- (float roty) .012) PI)) (sleep 30) (glutPostRedisplay) ) (defun keyboard (key x y) (if (= (& key 0xFF) 27) (exit)) (println "key:" (& key 0xFF) " x:" x  " y:" y) (Speak "you press a key") ) (defun mouse (button state x y) (if (= state 0)   (glutIdleFunc 0)   (progn    (Speak "you click mouse button")    (glutIdleFunc (callback 'rotation))) ) (println "button: " button " state:" state " x:" x " y:" y) ) (defun motion (x y) (setq rotx (* (/ 200.0 x) PI)        roty (* (/ 150.0 y) PI)) (glutPostRedisplay) (println "x:" x  " y:" y)) (defun main (argc argv) (glutInit (address argc) (address argv)) (glutInitDisplayMode (| GLUT_RGB GLUT_DOUBLE )) (glutInitWindowSize 800 600) (glutInitWindowPosition 80 80) (setq id (glutCreateWindow "算子语言调用OpenGL示例")) (glClearColor (flt 0.5) (flt 0.3) (flt 0.3) (flt 0.0)) (glColor3d 1.0 0.85 0.35) (glutDisplayFunc (callback 'draw)) (glutKeyboardFunc (callback 'keyboard)) (glutMouseFunc (callback 'mouse)) (glutMotionFunc (callback 'motion)) (glutIdleFunc (callback 'rotation)) (glutMainLoop) ) (main 0 "")