[求助]快速修改物体颜色和线形和图层
<p>能不能实现下面的功能（不需要考虑块，当然如果能把块考虑进去更好）……下面描述的键名其实可以更改为任意按键</p><p>1、快速修改物体的颜色：比如我选择物体（线、圆……）后，按8键，就自动把选择的物体改变为8号色……；按9键就更改物体的颜色为随层；当然可以以此类推。</p><p>2、快速修改物体的线形：比如我选择物体（线、圆……）后，按1键，就自动更改为HIDDEN2线形……；按2键就改变物体的线性为随层；以此类推。</p><p>3、快速改变物体的图层：比如我选择物体（线、圆……）后，按5键，就自动更改物体的层为0层……；按6键就自动改变物体的图层为DIM层；以此类推。</p> <p>怎么没人帮我解决这个问题啊……</p> <p>这样的程序论坛里面能抓出一大把会编的</p> <p>;;;改变线型为虚线<br/>(defun c:xf()<br/>(setvar "cmdecho" 0)<br/>(setq ss(ssget))<br/>(if ss<br/>(command "change" ss "" "p" "color" "252" "ltype" "DASHED2" "S" "18" "")<br/>)<br/>(princ)<br/>)</p><p></p><p></p><p>(DEFUN C:cvv() <br/>;(princ "\n改变对象颜色")<br/>(setq sad (getstring "\n改变对象颜色\n请输入对象颜色或弹出颜色对话框(c):[红(1)/黄(2)/绿(3)/青(4)/蓝(5)/品红(6)/白(7)] <7>:"))<br/> (if (= sad "") (setq sad "7") <br/> (SETQ SS(SSGET))<br/> (command "change" ss "" "p" "color" sad "")<br/> (princ))</p><p></p><p>;;;移动到0图层<br/>(DEFUN c:CY() (setq a (ssget))(command "chprop" a "" "la" 0 "")<br/> (princ))</p><p>以上程序请自已修为为自已习惯用的方式</p> 用chprop命令就好了.颜色256随层.不过线型就复杂一点，要自己加条件语句。 AMTONNY发表于2008-11-2 20:28:00static/image/common/back.gif;;;改变线型为虚线(defun c:xf()(setvar \"cmdecho\" 0)(setq ss(ssget))(if ss(command \"change\" ss \"\" \"p\" \"color\" \"252\" \"ltype\" \"DASHED2\" \"S\" \"18\" \"\"))(princ))(DEF<p></p><p>谢谢，不过和我设想的有点差别</p><p>我最要是对线形、颜色的随层用的比较多</p> lyd2003001发表于2008-11-3 8:27:00static/image/common/back.gif用chprop命令就好了.颜色256随层.不过线型就复杂一点，要自己加条件语句。
这个东西是不错，不过真正使用起来需要输入的东西太多了——谢谢
页:
[1]