【已解决】图层问题

lslsq

工作中经常会用到UG导出CAD图档，图档里面有写层颜色是255,255,255（透明图层）打印的时候不显示，每次打印前都得修改，想彻底解决这个问题。大概是这样，
1.遍履历图层，
2.找出图层中含有255,255,255,颜色的图层，
3.把该图层颜色改为7（白色）。
自己不会弄，求大家帮帮忙

puqing

Sub changlayscolor()
For Each lay In ThisDrawing.Layers '在所有的图层中进行循环
  Set retcolor = lay.TrueColor '读取真彩值
  If retcolor.Red + retcolor.Green + retcolor.Blue = 255 * 3 Then lay.color = 7 '根据要求改色
Next
End Sub

newer

XDRX API

1. (defun c:tt ()
   
2.   (xdrx-begin)
   
3.   (setq db (xdrx-database-select))
   
4.   (setq lyrtbl (xdrx-getpropertyvalue db "layertable"))
   
5.   (setq lyrs (xdrx-getpropertyvalue lyrtbl "get"))
   
6.   (mapcar '(lambda (x)
   
7.              (setq clr (xdrx-getpropertyvalue x "color"))
   
8.              (if (equal clr '(255 255 255))
   
9.                (xdrx-setpropertyvalue x "color" 7))
   
10.            )
    
11.           lyrs
    
12.   )
    
13.   (xdrx-end)
    
14.   (princ)
    
15. )
    

(defun c:tt ()<br />   (xdrx-begin)<br />   (setq db (xdrx-database-select))<br />   (setq lyrtbl (xdrx-getpropertyvalue db "layertable"))<br />   (setq lyrs (xdrx-getpropertyvalue lyrtbl "get"))<br />   (mapcar '(lambda (x)<br />              (setq clr (xdrx-getpropertyvalue x "color"))<br />              (if (equal clr '(255 255 255))<br />                (xdrx-setpropertyvalue x "color" 7))<br />            )<br />           lyrs<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br />

a117034423

entmake entmod

lslsq

newer 发表于 2020-12-25 02:50
XDRX API

非常感谢，程序很好

lslsq

puqing 发表于 2020-12-25 20:59
Sub changlayscolor()
For Each lay In ThisDrawing.Layers '在所有的图层中进行循环
  Set retcolor = l ...

非常的简洁，我还特地cad挂载了vb试了一下，挺不错的