在各位大佬的帮助下，做了个简单的提取颜色的子程序

WWYYBB1015

;;框选对象获得选集图元颜色列表
(defun getcolor(ss_ents / lst_col i obj_col obj_color lst_col)
(setq lst_col nil i 0)
(repeat (sslength ss_ents)
  (setq obj_col (vla-get-color (vlax-ename->vla-object (ssname ss_ents i))))
  (if (= obj_col 256)
    (setq obj_color
         (cdr (assoc 62 (entget
                          (tblobjname "layer"
                            (vla-get-layer (vlax-ename->vla-object (ssname ss_ents i))
                              )
                            )
                          )
                     )
              ))
    (setq obj_color obj_col)
)
  (setq i (+ i 1))
  (setq lst_col (cons obj_color lst_col))
  ))
以上是子程序代码,LSP文件中加了个命令。
还是新手，正在慢慢变强大。。。

WWYYBB1015

这个暂时还真不知道区别，不过加个判断语句应该可以

he378980280

试试看 谢谢