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

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

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

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

用程序就很容易做到呀,先写一个,不知道能不能满足你的要求

(defun c:jj()
(setq ss (ssget))
(setq ys (getint "\n 请输入颜色号码:"))
(command "chprop" ss "" "c" ys "" )
(princ)
)

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

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

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

可惜我不懂程序~~~~

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

我不懂程序

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

可以说说从哪加进去啊?

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

把这几句话

(defun c:jj()
(setq ss (ssget))
(setq ys (getint "\n 请输入颜色号码:"))
(command "chprop" ss "" "c" ys "" )
(princ)
)

放到任何一个新建的*.lsp中

用cad的appload命令加载

然后在cad的"command" 下输入jj，就可以用了

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

不错,我改成命令 YS了 ,比较好记

账号		自动登录	找回密码
密码			注册