图层颜色随图元，

357785513 · 发表于 2014-4-3 23:52:50

各位，我一张图里有N多图元，N多图元都有它各自的图层，各图元的颜色不随图层，我想把图层的颜色改为图元的颜色，有无办法，
如果图元随层有办法，图层随图元还没办法

Andyhon · 发表于 2014-4-4 10:11:55

我想把图层的颜色改为图元的颜色...

图层A的某图元的颜色4
图层A的某图元的颜色6
....

图层B的某图元的颜色4
图层B的某图元的颜色6
....

怎个处理法?

程序是在实现理念,您得先有手动执行的模式

香田里浪人 · 发表于 2014-4-4 10:38:26

颜色随层
(defun C:ccc (/ )
  (vl-load-com)
  (setq ModelSpace (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for obj ModelSpace
(if (/= (vla-get-color obj) 256)
   (vla-put-color obj 256)
)
  )
)

kwok · 发表于 2014-4-4 10:54:32

(defun C:tt(/ ss)
  (SETQ SS (SSGET ":L"))
  (vl-cmdf ".setbylayer" ss "" "y" "y")
  (princ)
)

357785513 · 发表于 2014-4-4 12:28:09

试了一下,非常不错,高人啦

357785513 · 发表于 2014-4-4 12:44:56

都是改为随图层色的,不可以把层改为随图元色

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

[基础] 图层颜色随图元，

点评

浏览过的版块