麻烦高手看一下这个LISP程序有什么问题？-盖德化工问答

纯情轰炸

，销售 2018-08-03回答

(defun c:cz(/sad ss ) (setq sad(getstring "\n改变对象颜色\n请输入对象颜色或弹出颜色对话框(c):[红(1)/黄(2)/绿(3)/青(4)/蓝(5)/品红(6)/白(7)] <7>:")) (if (= sad "")(setq sad "7")) (setq ss(ssget))----- 少了个括号 (command "change" ss "" "p" "c" sad "") (princ) ) 加上那个后，能加载，但是运行显示：参数太少是那个sad 要用函数获取吗？请问帮忙修改下！

2 0条评论举报收起

确认修改取消

玄策，守约

，销售经理 2018-08-03回答

你的程序是有漏洞的，比如要求输入 (setq sad(getstring 的时候，我输入字母：addse，那你的程序就出错了。而且你的程序功能简单，另外弹出颜色对话框(c)也没有实现。 defun c:cz(/sad ss ) 这里可以改成 defun c:cz( / sad ss ) 加个空格即可。慢慢学吧。

9 0条评论举报收起

确认修改取消

青珂

，给排水工程师 2018-08-03回答

(defun c:cz(/sad ss ) (setq sad(getstring "\n改变对象颜色\n请输入对象颜色或弹出颜色对话框(c):[红(1)/黄(2)/绿(3)/青(4)/蓝(5)/品红(6)/白(7)] <7>:")) (if (= sad "")(setq sad "7")) (setq ss(ssget))----- 少了个括号 (command "change" ss "" "p" "c" sad "") (princ) ) 加上那个后，能加载，但是运行显示：参数太少是那个sad 要用函数获取吗？请问帮忙修改下！

3 0条评论举报收起

确认修改取消

十一

，化工研发 2018-08-03回答

(defun c:cz(/sad ss ) (setq sad(getstring "\n改变对象颜色\n请输入对象颜色或弹出颜色对话框(c):[红(1)/黄(2)/绿(3)/青(4)/蓝(5)/品红(6)/白(7)] <7>:")) (if (= sad "")(setq sad "7")) (setq ss(ssget) (command "change" ss "" "p" "c" sad "") (princ) ) 加载后显示输入列表有缺陷，麻烦帮我看一下，最近刚学，语法有点不对，估计！

9 0条评论举报收起

确认修改取消

余笙

，销售 2018-08-03回答

你的程序是有漏洞的，比如要求输入 (setq sad(getstring 的时候，我输入字母：addse，那你的程序就出错了。而且你的程序功能简单，另外弹出颜色对话框(c)也没有实现。 defun c:cz(/sad ss ) 这里可以改成 defun c:cz( / sad ss ) 加个空格即可。慢慢学吧。

8 0条评论举报收起

确认修改取消

爱我别走那行

，设备工程师 2018-08-03回答

(defun c:cz() ;(princ "\n改变对象颜色") (setq sad(getstring "\n改变对象颜色\n请输入对象颜色或弹出颜色对话框(c):[红(1)/黄(2)/绿(3)/青(4)/蓝(5)/品红(6)/白(7)] <7>:")) (if (= sad "")(setq sad "7")) (setq ss(ssget)) (command "change" ss "" "p" "color" sad "") (princ) ) 改好了，原来c:cz()这句话的问题

6 0条评论举报收起

确认修改取消

纯情轰炸

，销售 2018-08-03回答

(defun c:cz() ;(princ "\n改变对象颜色") (setq sad(getstring "\n改变对象颜色\n请输入对象颜色或弹出颜色对话框(c):[红(1)/黄(2)/绿(3)/青(4)/蓝(5)/品红(6)/白(7)] <7>:")) (if (= sad "")(setq sad "7")) (setq ss(ssget)) (command "change" ss "" "p" "color" sad "") (princ) ) 改好了，原来c:cz()这句话的问题

1 0条评论举报收起

确认修改取消