在 AutoCAD 中, 如何转换颜色?

jmch · 发表于 2003-12-11 18:43:00

在中, 如何将有同一颜色的物件(例如: Line, Text, Circle 等, 这些物件可能在多个层上)一次性转换为另外一种颜色?
而不用一个一个的去选? 是不是要用到二次开发? 若是, 各位可否提供原程序给我? 谢谢各位前辈指点一二

meflying · 发表于 2003-12-11 18:54:00


(defun c:setcolor( / ss color sinf sname i)
  (prompt "选择要改变颜色的对象...")
  (setq ss (ssget))
  (initget 5)
  (setq color (getint "输入颜色值:"))
  (setq i 0)
  (repeat (sslength ss)
    (setq sname (ssname ss i))
    (setq sinf (entget sname))
    (if (assoc 62 sinf)
      (setq sinf (subst (cons 62 color) (assoc 62 sinf) sinf))
      (setq sinf (append sinf (list (cons 62 color))))
    )
    (entmod sinf)
    (setq i (1+ i))
  )  
  (princ)
)

BDYCAD · 发表于 2003-12-11 21:16:00

我也依樓主的意思寫個給大家. 呵呵: D
            好簡單的哦．　寫的不好還望Meflying兄多多指點．
Program make by  ＢＤＹＣＡＤ
Date : 2003-12-10
(DEFUN C:cc()
  (princ "\n請選擇要更改顏色的對象...")
  (command "chprop" (ssget) "" "co" (getint "\n請輸入更改后的顏色值:") "" )
  (princ))

lockmyeye · 发表于 2003-12-11 23:28:00

to BDYCAD:
(SSGET)时还是加入匹配比较好。
还有，我觉得成了程序，应该进行一些强壮性处理。
像上例中ssget得到的结果为空，或者getint得到的数值不在颜色表范围时，都会导致程序错误。
如果我们经常用的，对LISP了解还没有什么。其它不熟悉的人用到的时候，出问题就不好了。
听说部队的软件中，部分测试报告和操作手册是不会计算机的人来进行的。当时听到的时候，觉得是个好办法。也不知道是不是真的这样：）

在 AutoCAD 中, 如何转换颜色?

发表回复

精选推荐