Question

CAD中LISP的编程问题

(DEFUN C: 2CIRCLE () (SETQ CEN (LIST 0 0) RAD 50)
(COMMAND CIRCLE CEN RAD)
(COMMAND CIRCLE CEN (+ RAD 30)))
我在suport文件下存为text.lsp
在CAD加载后 命令行中输入2CIRCLE ，怎么还是提示未知命令“2CIRCLE”。按 F1 查看帮助。

Answer 1

未知命令“2CIRCLE”的原因:
程序的开头的后面不能接其他语句,(DEFUN C:2CIRCLE()
还有command函数后面的第一个参数,要加双引号..

正确代码如下:
(DEFUN C:2CIRCLE()
(SETQ CEN (LIST 0 0)
RAD 50
)
(COMMAND "CIRCLE" CEN RAD)
(COMMAND "CIRCLE" CEN (+ RAD 30))
(princ)
)

Answer 2

王熙凤

Answer 3

先输入:“load“textlsp”
在输入:2circle