属性改色

newer · 发表于 2016-12-8 11:07:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[sell]

(defun C:XDTB_ATTCHGCOLOR (/ atts ss x)
  (defun _keyword (key)
    (cond
      ((= key "CO")
        (if (setq clr (xdrx_color_select))
          (setq #global_var_color clr)
        )
      )
    )
    (xdrx_prompt "\n当前设置： 颜色(" (if (= (type #global_var_color) 'LIST)
                                        (xdrx_prompt "R=" (car #global_var_color)
                                                     " G=" (cadr #global_var_color)
                                                     " B=" (last #global_var_color)
                                                     t
                                        )
                                        #global_var_color
                                      ) ")" t
    )
  )
  (if (not #global_var_color)
    (setq #global_var_color (getvar "cecolor"))
  )
  (xdrx_prompt "\n当前设置： 颜色(" (if (= (type #global_var_color) 'LIST)
                                      (xdrx_prompt "R=" (car #global_var_color)
                                                   " G=" (cadr #global_var_color)
                                                   " B=" (last #global_var_color)
                                                   t
                                      )
                                      #global_var_color
                                    ) ")" 
  )
  (xdrx_initssget "\n选取要修改颜色的属性[设置(CO)]<退出>:" "CO" ""
                  "_keyword"
  )
  (if (setq ss (xdrx_ssget '((0 . "INSERT") (66 . 1))))
    (progn
      (mapcar
        '(lambda (x)
           (setq atts (xdrx_getpropertyvalue x "attributeentities"))
           (xdrx_entity_setproperty atts "color" #global_var_color)
         )
        (xdrx_pickset->ents ss)
      )
    )
  )
  (princ)
)

[/sell]

yoyoho · 发表于 2016-12-8 11:48:09

啥也不说了，感谢 N版分享哇！

qqqincccken · 发表于 2016-12-8 19:12:52

谢谢提供,有空来学习一下

forb0217 · 发表于 2016-12-9 08:30:24

看看怎么说的呀！

爱死泥凌 · 发表于 2017-2-14 16:44:53

万欧元才能解决

ming1789 · 发表于 2017-2-15 06:51:01

啥也不说了，感谢楼主分享哇！

iceteaer · 发表于 2019-2-1 08:55:09

请问属性改层改如何实现？

iceteaer · 发表于 2019-2-1 08:56:31

大佬，请问属性改层该如何实现

sicky111 · 发表于 2019-2-3 08:25:09

属性改色？

香远益清 · 发表于 2019-11-25 19:30:54

效果不咋滴

alnhny · 发表于 2019-12-21 00:47:48

购买支持一个，偶尔会用到这功能。

feeling_chin · 发表于 2021-2-2 17:28:12

啥也不说，先收下，谢谢啦。有用！

13174545660 · 发表于 2023-8-3 17:52:41

好东西先收藏

账号		自动登录	找回密码
密码			立即注册

[属性] 属性改色

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。