[求助]快速修改物体颜色和线形和图层

xotoo

能不能实现下面的功能（不需要考虑块，当然如果能把块考虑进去更好）……下面描述的键名其实可以更改为任意按键

1、快速修改物体的颜色：比如我选择物体（线、圆……）后，按8键，就自动把选择的物体改变为8号色……；按9键就更改物体的颜色为随层；当然可以以此类推。

2、快速修改物体的线形：比如我选择物体（线、圆……）后，按1键，就自动更改为HIDDEN2线形……；按2键就改变物体的线性为随层；以此类推。

3、快速改变物体的图层：比如我选择物体（线、圆……）后，按5键，就自动更改物体的层为0层……；按6键就自动改变物体的图层为DIM层；以此类推。

xotoo

怎么没人帮我解决这个问题啊……

cnks

这样的程序论坛里面能抓出一大把会编的

AMTONNY

;;;改变线型为虚线
(defun c:xf()
(setvar "cmdecho" 0)
(setq ss(ssget))
(if ss
(command "change" ss "" "p" "color" "252" "ltype" "DASHED2" "S" "18" "")
)
(princ)
)

(DEFUN C:cvv() 
;(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))

;;;移动到0图层
(DEFUN c:CY() (setq a (ssget))(command "chprop" a "" "la" 0 "")
  (princ))

以上程序请自已修为为自已习惯用的方式

lyd2003001

用chprop命令就好了.颜色256随层.不过线型就复杂一点，要自己加条件语句。

xotoo

AMTONNY发表于2008-11-2 20:28:00;;;改变线型为虚线(defun c:xf()(setvar \"cmdecho\" 0)(setq ss(ssget))(if ss(command \"change\" ss \"\" \"p\" \"color\" \"252\" \"ltype\" \"DASHED2\" \"S\" \"18\" \"\"))(princ))(DEF

谢谢，不过和我设想的有点差别

我最要是对线形、颜色的随层用的比较多

xotoo

lyd2003001发表于2008-11-3 8:27:00用chprop命令就好了.颜色256随层.不过线型就复杂一点，要自己加条件语句。

这个东西是不错，不过真正使用起来需要输入的东西太多了——谢谢