[求助]：怎样改线的颜色

hxdnzhf

我用ＣＡＤ已有六七年了，但有一个问题没解决就是改线的颜色．比如输入Ｃ１为红色，Ｃ２为黄色，Ｃ３为绿色．．．
哪位高手帮帮忙

hxdnzhf

有更快的方法，想请教，我们用ＣＡＤ从来不用菜单和工具栏，否则速度太慢，所有操作用两个以内快键．别造诉我修改＊．ＰＧＰ文件．我试了Ｎ次，行不通！

ganok

以前编程申请论坛上有现成的程序，你搜索一下。

shiyangaosong

楼主用了这么多年CAD，还这样改线的颜色吗？通过图层控制颜色才便于管理，是正路。

jbgs

问快捷键问题的一般都是刚刚学的人（刚学六七天），你 用ＣＡＤ已有六七年了 [/COLOR] ，怎么还这样？这六七年是怎么用的？

dengdinghui

解决一楼的问题很简单：在命令行打change命令，按提示选择对象，输入P参数回车，再输入C参数回车，这时输入1打两次回车，就改为红色了。
同上操作，如果输入2打两次回车，就改为黄色了。
同上操作，如果输入3打两次回车，就改为绿色了。
其它颜色的代号请打color命令，去查看就知道了。

风云

我想楼主的意思是输入Ｃ１以后画直线就是红色的了，就是用Ｃ１这个命令改变当前颜色。这个应该简单吧

qjcpj

最初由 hxdnzhf 发布
[B]我用ＣＡＤ已有六七年了，但有一个问题没解决就是改线的颜色．比如输入Ｃ１为红色，Ｃ２为黄色，Ｃ３为绿色．．．
哪位高手帮帮忙 [/B]

试试我现编的这个小程序：
(defun change_corlor (corlor_num / ss)
        (setq ss (ssget))
        (if        ss
                (command "chprop" ss "" "c" corlor_num "")
                (princ "\n 未选中实体！")
        )
)

(defun c:c1        ()
        (change_corlor "1")
)
(defun c:c2        ()
        (change_corlor "2")
)
(defun c:c3        ()
        (change_corlor "3")
)
...

wengzhou1981

在图层里 把线、线型、颜色做成一个层！！！！在图层的工具条上就有

hxdnzhf

我发现初学者是没看明白我的提的问题,8楼的我谢了,我试试.作为一个用以CA作设计D吃饭的人永远想知道样用一种方法更快,常用的功能哪怕是0.1秒都是十分宝贵的,希望与初学CAD共免．当年的Ｒ１２用起来是怎样，为什么现在２０００不能完全取代Ｒ１４，２０００作为一个经典版为什么到现在的２００６都没有太多重大突破，就是讲它作作图的捷度没有太大的突破点.