[密技]：★一个超级好的东西！14到2006的各个版本都能用！

2247700

今天给大家介绍的是去了新公司发现的好东西！
这个小程序可以加载也可以直接拷贝到CAD的根目录下，以后就不用每次都加载啦！（不过考到根目录下的话，每次启动CAD都要让你输入制图比例，不过不用管它EXC取消就行了）而且我已经实验过！从R14到2006都可以用！
它的作用很方便，就是画线或者填充之类的东西，选中它，如果想让它变成红色，那么就直接在命令行输入 1 （即红色的线号） 然后空格确认，它的颜色就改变了！设置其它颜色的方法不用我说聪明的你也知道啦！是不是很方便呢？但这个文件还不完善，只能改1--17号线！希望坛子里的长老在给改改！让255种颜色都能让数字代替，造福大家！
PS：我刚来论坛时间不长，不知道以前有没有人发过这样的东西，我也是最近换工作到了新单位才偶然间发现的，至于出处就无从知晓了！要是真冒犯了哪位的知识产权，这里先表示歉意！另外收一个币，原因是公司电脑U口全封，不能上网！我费劲周折才把它弄出来，实属不易，希望大家谅解！我想好东西它也值一个币！
废话不说了！大家使用中自己体会吧！

乐逍遥

论坛里有人发过，至于要“让255种颜色都能让数字代替”，
很简单只要将要增加的颜色按如下添加即可
(defun C:255( )
     (setq se1(ssget))
     (command "change" "si" se1 "p" "c" 255 "")
)

lxyljl

这个东西也收钱？不是吧。里面不只颜色设置功能那么单一的，还有好多。自己看看。
如果想要好多种颜色。在里面添加以下语句。**从1改到255就行了。
(defun C:**( )
     (setq se1(ssget))
     (command "change" "si" se1 "p" "c" ** "")

2247700

谢谢指点！我不知道啊！

sunny_258

这个好，简便快捷，谢谢

jsrlb

闲着没事干，加工啦一下，见笑啊，控制颜色在1～255之间。

(defun C:BGYS (/ s1 n1 a1 a2)
  (setq        s1 (ssget)
        n1 888
  )
  (if (= s1 nil)
    (exit)
    (progn
      (setq a1 (sslength s1))
      (while (= n1 888)
        (setq a2 (getint "\n指定新颜色编号"))
        (cond
          ((or (<= a2 0) (> a2 255))
           (progn
             (princ "\n无效颜色编号")
             (setq n1 888)
           )
          )
          (t (setq n1 886))
        )
      )
      (command "change" "si" s1 "p" "c" a2 "")
      (setq a1 (strcat "共" (rtos a1) "个对象改变颜色"))
      (princ "\n")
      (princ a1)
    )

  )
  (princ)
)

chenleming

第一次见到，谢谢楼主的热心。

yzh0524

这么多能人。

9701519

打开第一个图的时候是自动加载,可到了第二张图的时候就要手动加载,能不能改进一下!!!

hust_laohu

不知道这个程序有什么用
我作图都是由图层控制颜色和线宽的
一般情况是不用改变实体颜色的
再说，多加载一个程序
cad的速度也要减慢，
何苦呢！

llmin

我觉得这个程序用处不大。
用图层控制颜色和线宽，改变实体颜色也方便。多加载一个程序
cad的速度要减慢不少，何苦呢？

czad

从1～255号色全。

2247700

它还有别的功能！例如改变物体图层、线形等！都与原文件的.PGP中的命令不冲突！
我也在慢慢摸索，大家共同研究吧共同进步吧！

kongkongkong

直接给对象赋予颜色是一种相当不好的习惯，根本不应提倡。
编这样的程序，是ACAD初学者的标志。

chenwei_zj

对，有理，这样的程序简直是害了一代人：）