lanyuxiang 发表于 2007-5-24 14:12:00

[求助]如何设置转换线条颜色的快捷键?

大虾们,小弟曾经在广州集美组做过绘图员,它那里的CAD能够在画图时用快捷键转换线条的颜色.如选择了图形里的一条线条,然后按键盘上的数字1,就转成红色(CAD里相对的颜色),按2就转成了黄色....有人能告诉我这是怎么设置的吗?

phoenixdjq 发表于 2007-5-24 21:05:00

<p>用程序就很容易做到呀,先写一个,不知道能不能满足你的要求</p><p>(defun c:jj()<br/>(setq ss (ssget))<br/>(setq ys (getint "\n 请输入颜色号码:"))<br/>(command "chprop" ss "" "c" ys "" )<br/>(princ)<br/>)</p>

qyr_0_0 发表于 2007-5-25 09:58:00

不错,不错!---很方便!

guyuxian 发表于 2007-5-25 13:15:00

可惜我不懂程序~~~~

yujing_2526 发表于 2007-5-25 13:33:00

<p>我不懂程序</p><p></p>

yujing_2526 发表于 2007-5-25 13:42:00

可以说说从哪加进去啊?

phoenixdjq 发表于 2007-5-28 08:53:00

<p>把这几句话</p><p>(defun c:jj()<br/>(setq ss (ssget))<br/>(setq ys (getint "\n 请输入颜色号码:"))<br/>(command "chprop" ss "" "c" ys "" )<br/>(princ)<br/>)</p><p>放到任何一个新建的*.lsp中</p><p>用cad的appload命令加载</p><p>然后在cad的"command" 下输入jj，就可以用了</p>

nts888 发表于 2007-6-4 17:18:00

不错,我改成命令   YS了,比较好记
页: [1]
查看完整版本: [求助]如何设置转换线条颜色的快捷键?