Linhay 发表于 2015-2-5 18:01:02

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

初级学徒,对lisp挺感兴趣,自己试着编了个简单的小程序,但是随之而来的也有了新的问题,请各位指导。
想实现下面的效果:1.程序运行后,可以直接选择对象并且改色为当前使用颜色;2.如果我输入了颜色号,可以选择对象并按该色号更改颜色.
只是突然间冒出来的想法，不知道能不能实现，先谢过了。;;;改变对象颜色
(defun c:tt (/ cl nc)
(setq nc (getstring "\n请输入新色<当前使用色>: "))
(cond
    ((= nc "")
    (setq cl (getvar "cecolor") )
    )
    (t   
   (setq cl nc )
    )
   )
    (command "change" (ssget) "" "p" "c"cl "")
    (princ)
)

ysq101 发表于 2015-2-5 22:17:27

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

Linhay 发表于 2015-2-6 07:39:36

ysq101 发表于 2015-2-5 22:17 static/image/common/back.gif
可以实现。。或可以直接用ma 来改色

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

fan_zh 发表于 2015-2-6 09:50:56

(defun c:tt (/ cl nc )
(setq nc (getint "\n请输入新色<当前使用色>: "))
(if (= nc nil)
(setq nc (getvar "cecolor"))
)
   (command "change" (ssget) "" "p" "c" nc "")
    (princ)
)
页: [1]
查看完整版本: [菜鸟提问]关于命令执行问题