[菜鸟提问]关于命令执行问题

Linhay

初级学徒,对lisp挺感兴趣,自己试着编了个简单的小程序,但是随之而来的也有了新的问题,请各位指导。
想实现下面的效果:1.程序运行后,可以直接选择对象并且改色为当前使用颜色;2.如果我输入了颜色号,可以选择对象并按该色号更改颜色.
只是突然间冒出来的想法，不知道能不能实现，先谢过了。

2. ;;;改变对象颜色
   
3. (defun c:tt (/ cl nc)
   
4.   (setq nc (getstring "\n请输入新色<当前使用色>: "))
   
5.   (cond
   
6.     ((= nc "")
   
7.     (setq cl (getvar "cecolor") )
   
8.     )
   
9.     (t   
   
10.      (setq cl nc )
    
11.     )
    
12.    )
    
13.     (command "change" (ssget) "" "p" "c"  cl "")
    
14.     (princ)
    
15. )

;;;改变对象颜色<br /> (defun c:tt (/ cl nc)<br />   (setq nc (getstring "\n请输入新色<当前使用色>: "))<br />   (cond<br />     ((= nc "")<br />     (setq cl (getvar "cecolor") ) <br />     )<br />     (t   <br />      (setq cl nc ) <br />     )<br />    )<br />     (command "change" (ssget) "" "p" "c"  cl "")<br />     (princ)<br /> )

ysq101

可以实现  。。或可以直接用ma 来改色

Linhay

ysq101 发表于 2015-2-5 22:17
可以实现  。。或可以直接用ma 来改色

啊,我就是试着玩一玩,这几句还冥思苦想试了一下午弄出来的.请问怎么实现啊?谢谢

fan_zh

2. (defun c:tt (/ cl nc )
   
3.   (setq nc (getint "\n请输入新色<当前使用色>: "))
   
4.   (if (= nc nil)
   
5.   (setq nc (getvar "cecolor"))
   
6.   )
   
7.    (command "change" (ssget) "" "p" "c" nc "")
   
8.     (princ)
   
9. )

(defun c:tt (/ cl nc )<br />   (setq nc (getint "\n请输入新色<当前使用色>: "))<br />   (if (= nc nil)<br />   (setq nc (getvar "cecolor"))<br />   )<br />    (command "change" (ssget) "" "p" "c" nc "")<br />     (princ)<br /> )