q076800 发表于 2006-7-23 15:02:00

[求助]怎样设置才能在键盘上改ＣＡＤ线的颜色

　　　请问各位高手：怎样才能在键盘修改ＣＡＤ图中线的颜色？例如：我要把线变成红是的话，就在键盘上按哪个数字就行了，各高手帮帮忙啦．

xcajcj 发表于 2006-7-23 15:57:00

<P>仅供参考：</P>
<P>;;数字1<BR>(defun C:1 ( / gp)<BR>(setvar "cmdecho" 0)<BR>(princ "\n★改变对象颜色为红色★")<BR>(setq gp (ssget))<BR>(if (/= gp nil) (command ".change" gp "" "p" "c" "1" ""))<BR>(princ "\nOK")<BR>(princ)<BR>);end (defun C:1<BR>;;数字2</P>

q076800 发表于 2006-7-23 21:49:00

<P>谢啦。但我不知道在哪里输入这些资料</P>

九天上的鸿鹄 发表于 2012-2-25 08:23:25

顶，不错，再加上其他颜色进去就好了。

panzhongw 发表于 2012-2-25 11:00:08

q076800 发表于 2006-7-23 21:49 static/image/common/back.gif
谢啦。但我不知道在哪里输入这些资料

将楼上仁兄的 东东 复制到一个新建的文本文件中 ，保存后将该文本文件的后缀改为.lsp 在CAD中用AP加载该文件

另类思维 发表于 2012-3-7 13:37:24

q076800 发表于 2006-7-23 21:49 static/image/common/back.gif
谢啦。但我不知道在哪里输入这些资料

ap加载一下。当然要把文本格式改好了在加载

mokson 发表于 2012-3-7 13:51:36

你至少要用鼠标选中线呀,完全用键盘操作是办不到的.
页: [1]
查看完整版本: [求助]怎样设置才能在键盘上改ＣＡＤ线的颜色