[求助]关于颜色的几个问题？

xujianf

针对问题一：

比如说：我执行命令 C1  被选物体颜色直接就变成 黄色，我执行命令 C2 被选物体颜色直接就变成 蓝色....以此类推..

针对问题一：

比如说：我选中一条线段 执行命令 DDD  时 只要与被选线段连在一起的所有线段的颜色都会跟被选线段的颜色相同。

（附带问题三：如何将实心字体变成空心字体，就是变成双线的可以炸开的那种）

以上2问题是我这经常用到的，特别浪费我不少作图时间，急盼望各位高手帮忙写个LISP程序，小弟先谢谢了。

liu_kunlun

;;实体改颜色
 (mapcar '(lambda (x) (eval (read (strcat "(defun "   (strcat "c:c" x)    " ( ) "
            "(command \"change\" (ssget) \"\"  \"p\" \"c\" "   x    "\"\")) "
      )
   )           )     )    
  '("1" "2" "3" "4" "5" "6" "7" "8" "9")
 )

啵浪鼓

2楼的程序真够简短的,没有写出错等程序

按Esc键提示 ; 错误: 函数被取消,需再按一次Esc键程序才结束

按空回车键:

命令: c1 change
选择对象:
选择对象:
命令: C1 未知命令“C1”。按 F1 查看帮助。

命令: p 未知命令“P”。按 F1 查看帮助。

命令: c 未知命令“C”。按 F1 查看帮助。

命令: 1

命令: C1 未知命令“C1”。按 F1 查看帮助。

命令: nil

看来还是中规中矩的程序安逸,就是程序比较长点

(DEFUN C:C1 ()
        (setq m:err *error* *error* *merr*)
 (PRINC "SELECT Obj. Color be 1#: ")
        (setvar "cmdecho" 0) 
 (SETQ SS(SSGET))
        (if ss
 (COMMAND "CHANGE" SS "" "PROPERTIES" "C" "1" ""))
        (setq *error* m:err m:err nil)
        (PRINC))

xujianf

谢谢了！

但第二个问题有待解决!!