WWYYBB1015 发表于 2019-7-8 22:20:56

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

;;框选对象获得选集图元颜色列表
(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 发表于 2019-7-9 21:00:43

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

he378980280 发表于 2019-8-19 15:56:16

试试看 谢谢
页: [1]
查看完整版本: 在各位大佬的帮助下，做了个简单的提取颜色的子程序