【已解决】lisp新手 defun函数问题 求高手解答
本帖最后由 小子蚊 于 2013-6-9 11:48 编辑新手
使用cad2012
设计函数画两个圆如下：
(DEFUN C:2CIRCLE()
(SETQ CEN (LIST 0 0) RAD 50)
(COMMAND CIRCLE CEN RAD)
(COMMAND CIRCLE CEN (+ RAD 30))
)
存为“123.lsp”
调用如下：
命令: (LOAD "D:/autocad/DEMO/123")
C:2CIRCLE
命令: 2circle
*取消*
命令:
命令: 50
命令:
命令:
命令: 80
命令: nil
为啥出现“取消”
还输出50 80
而且圆没有被画出来
问题出在哪里
望高手指点
(COMMAND "CIRCLE" CEN RAD)
(COMMAND "CIRCLE" CEN (+ RAD 30)) lijiao 发表于 2013-6-9 11:36 static/image/common/back.gif
(COMMAND "CIRCLE" CEN RAD)
(COMMAND "CIRCLE" CEN (+ RAD 30))
好了 谢谢 看来有些教程有问题 呵呵
页:
[1]