【已解决】lisp新手 defun函数问题 求高手解答

小子蚊

新手

使用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
而且圆没有被画出来

问题出在哪里
望高手指点

lijiao

(COMMAND "CIRCLE" CEN RAD)
  (COMMAND "CIRCLE" CEN (+ RAD 30))

小子蚊

lijiao 发表于 2013-6-9 11:36
(COMMAND "CIRCLE" CEN RAD)
  (COMMAND "CIRCLE" CEN (+ RAD 30))

好了 谢谢 看来有些教程有问题 呵呵