[求助]：请教 DXF的知识

shute05

我想建立一选择集，包含 颜色为蓝色和白色的文字，但是白色的文字颜色是随层的
用DXF (62 .  ) 没法选取？？？ 请教高手...

adisonmaster

颜色号（如果不是“随层”，则出现）；零表示“随块”（可变的）颜色；256 表示“随层”；负值表示层已关闭（可选）

shute05

楼上说的是空话呀，我也知道你说的，在DXF的参考里，
有人帮忙给出截取÷解决办法吗????

carrot1983

[php]
(defun getcolor_sslist (var colorlist / ss slen i ss_list na col)
  (setq ss (ssget (list (cons 0 var))))
  (setq slen (- (sslength ss) 1))
  (setq i 0)
  (setq ss_list (ssadd))
  (while (<= i slen)
    (setq na (ssname ss i))
    (setq ent (entget na))
    (cond
      ((setq col (cdr (assoc 62 ent))))
      ((setq
         col (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 ent)))))
       )
      )
    )
    (foreach n colorlist
      (if (= col (nth (1- n) colorlist))
        (ssadd na ss_list)
      )
    )
    (setq i (+ i 1))
  )
  ss_list
)



(defun c:test ()
  (setq var "*text")
  (setq colorlist (list 1 2))
  (setq ss (getcolor_sslist var colorlist))
  (command "._move" ss "")
  (princ)
)
[/php]