Question

LISP画圆程序（defun x()(setq cen (list 0 0)) (command "circle" 5))；编辑好了，如何在CAD中实现？谢！

Answer 1

你这个命令没有变量，可以直接复制程序的部分代码就可以实现你想要的功能。复制代码(setq cen (list 0 0)) (command "circle" cen 5)到cad的输入行，回车即可。

Answer 2

1、所有的括弧要用半角的字符。
2、复制(defun c:xx()(setq cen (list 0 0)) (command "circle" cen 5))到命令行，回车。
3、执行xx。
OK！

追问

您好！我复制回车了命令，然后出现了NiL ,我还想问问，为什么函数名要加"C："？我在visual编辑器里面编程序，然后上面一排哪个是加载？麻烦告诉我详细步骤，非常感谢你！

追答

加c:才能在命令行直接调用。
这个界面没用过。可以在命令行load：
命令:(load"xx.lsp")

追问

(defun c:xx()
(setq cen (list 0 0))
(command "circle" cen 5)
)请问您QQ是多少啊？我的是275988139这个问题困扰了好久，盼望您能够解答！！

Answer 3

（defun x()(setq cen (list 0 0)) (command "circle" 5))
你直接defun C:x()就好了嘛 然后再命令行输入X就可以了 不过建议不用X ，可能跟原有快捷键冲突

Answer 4

把文件保存为.lsp格式，appload 加载，不过你定义的X命令会和系统的X命令冲突，建议改一下，比如xx，然后在命令行输入XX 即可

看不懂你要画的这个圆究竟是 0 0圆心 还是直径 5？