★飞飛★ 发表于 2018-3-17 12:00:52

请教老师如何查图层默认颜色组码？

本帖最后由 ★飞飛★ 于 2018-3-17 12:05 编辑

就是用Lisp代码查图层的ByLayer颜色组码？谢谢！
我的目的就是想做颜色筛选，但现在只能选到改了图层颜色的图元。附代码，供指导或分享。
(defun c:sxs () ;;筛选相同颜色(★飞飛★)
(if (setq s1 (car (entsel "\n相同颜色亮显，请点选颜色对象: ")))
    (progn
      (princ "\n请框选范围或 <全选>:")
      (setq en (ssget (list (assoc 62 (cdr (entget s1))))))
      (sssetfirst nil nil)
      (sssetfirst nil en )
      (if (= en nil)
      (sssetfirst nil (ssget "x" (list (assoc 62 (cdr (entget s1))))))
      )
    )
)
(princ)
)

renhaitao_nice 发表于 2018-3-18 08:05:40

随层的颜色，似乎只能通过对象属性获取，不能通过图元名获取

Andyhon 发表于 2018-3-18 08:34:15

Ref:
http://bbs.mjtd.com/thread-176789-1-1.html

★飞飛★ 发表于 2018-3-19 15:55:57

Andyhon 发表于 2018-3-18 08:34
Ref:
http://bbs.mjtd.com/thread-176789-1-1.html

感谢老师提供的帮助！
页: [1]
查看完整版本: 请教老师如何查图层默认颜色组码？