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

答案:4 悬赏:70 手机版

解决时间 2021-11-29 17:28

提问者网友：放下
2021-11-29 00:48

最佳答案

五星知识达人网友：洒脱疯子
2021-11-29 01:49

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这个问题困扰了好久，盼望您能够解答！！

全部回答

1楼网友：轮獄道
2021-11-29 04:38

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

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

2楼网友：罪歌
2021-11-29 04:06

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

3楼网友：鸠书
2021-11-29 02:38

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息