2013-06-11 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch

water_system(924604042)于2013-06-11 10-17-22：
估计调白就OK了 当时整个调貌似不行 所以想调打印机

CCarch

仲文玉(411952877)于2013-06-11 10-18-27：
要么自己设置，要么用[qqimg]{EBD093BE-FE8F-2081-F052-2D01C2CC0590}.jpg[/qqimg]

CCarch

water_system(924604042)于2013-06-11 10-27-58：
[qqimg]{EBD093BE-FE8F-2081-F052-2D01C2CC0590}.jpg[/qqimg]是什么？

CCarch

water_system(924604042)于2013-06-11 10-28-07：
自己怎么设置？哪儿设置？

CCarch

water_system(924604042)于2013-06-11 10-29-39：
标注的 颜色群吗是那些？

炫翔

炫翔(2363673534)于2013-06-11 10-34-10：
差帮助

炫翔

炫翔(2363673534)于2013-06-11 10-34-12：
查

炫翔

炫翔(2363673534)于2013-06-11 10-34-56：
一般是62

CCarch

water_system(924604042)于2013-06-11 10-35-27：
标注没有62

炫翔

炫翔(2363673534)于2013-06-11 10-35-37：
有

炫翔

炫翔(2363673534)于2013-06-11 10-35-55：
随层的就没有

CCarch

water_system(924604042)于2013-06-11 10-37-12：
demension 里面还有好多对象 我就像取出颜色 改掉 重置  但是找不到颜色属性

炫翔

炫翔(2363673534)于2013-06-11 10-37-44：
vla-get-color
vla-put-color

炫翔

炫翔(2363673534)于2013-06-11 10-37-59：
[qqimg]{06F1384B-5139-FB42-C21A-CC256AE66AB3}.jpg[/qqimg]

炫翔

炫翔(2363673534)于2013-06-11 10-38-03：
;获取图元的颜色（含随层）
;(xx-en-color s1) s1为图元或VLA图元，(car(entsel "\n选择实体: "))
(defun xx-en-color (s1 / col en la la1 laname)
(cond ((= (type s1) 'ENAME)(setq en (vlax-ename->vla-object s1)))
       ((= (type s1) 'vla-object)(setq en s1))
       (t (princ "\n xx-en-color  错了！"))
)
   (if (or (= (vla-get-color en) 256)(= (vla-get-color en) 0))
    (progn
      (setq laname (cdr(assoc 8 (entget s1)));图层名
            la1    (tblnext "layer" t);当前层
             la    (cdr(assoc 2 la1));层名
      )
     (while (/= la laname)
       (setq la1 (tblnext "layer" nil)
             la  (cdr(assoc 2 la1))
       )
     )
     (setq col (cdr(assoc 62 la1)));取得随层的颜色
    )
    (setq col (cdr(assoc 62 (entget s1))));取得颜色
   )
  col
)