Autolisp基础教程

xujing · 发表于 2005-7-5 19:35:00

顶顶顶

xairui · 发表于 2005-7-6 09:10:00

新来咋到，给点掌声。

xialiang · 发表于 2005-7-7 17:08:00

东西是好东西！就是看的时候总显示运行时间错误

而且是繁体字！！不知道怎么办？？

userzhl · 发表于 2005-7-9 13:22:00

本帖最后由作者于 2005-7-12 0:38:52 编辑

15楼楼主说：
楼上的朋友，你看我的这样，怎么不行呀？
可不可以帮我改一下再发上来？谢了！！！
(DEFUN C:y(/)
(SETQ DCL_ID (LOAD_DIALOG "zz.DCL") )
(NEW_DIALOG "zz" DCL_ID)
(actIon_tile "RECT_A" "(setq next 1)")
(actIon_tile "RECT_B" "(setq next 2)")
(actIon_tile "RECT_C" "(setq next 3)")
(actIon_tile "RECT_D" "(setq next 4)")
(START_DIALOG) (UNLOAD_DIALOG DCL_ID)
(if (= next 1) (C:xx))
(if (= next 2) (C:cc))
(if (= next 3) (C:g1))
(if (= next 4) (C:g2))
(defun c:xx () (command "xline" "v"))
(defun c:cc () (command "xline" "h"))
(DEFUN C:G1 () (command ".LAYER" "Off" "1" pause "" "" ""))
(DEFUN C:G2 () (command ".LAYER" "Off" "2" pause "" "" ""))
(PRINC))
我总是要把对话框关掉才能执行，要在中间加什么，对话框能自动关掉？

xzf1977 · 发表于 2005-7-18 10:49:00

的确还可以,书上的还没有这么完整呢！顶

five_1972 · 发表于 2005-7-18 15:47:00

还不错！！！！

xufulai · 发表于 2005-7-19 11:18:00

谢谢！

winggun · 发表于 2005-7-19 17:02:00

好东西

顶一下

liu22737 · 发表于 2005-9-5 23:23:00

P5188 · 发表于 2005-9-6 10:47:00

多谢！要是简体的就更好！

账号		自动登录	找回密码
密码			注册

[LISP资料] Autolisp基础教程