请问如何用vba将图层颜色设置为RGB(106,240,250)?着急啊

Real_King

请问如何用vba将图层颜色设置为RGB(106,240,250)?着急啊，求教大家！

wylong

2. Sub SetTrueColor()
   
3.     Dim MyColor As AcadAcCmColor
   
4.     Set MyColor = New AcadAcCmColor
   
5.     MyColor.SetRGB 106, 240, 250
   
6. 
   
7.     ThisDrawing.ActiveLayer.TrueColor = MyColor
   
8.    
   
9.     Set MyColor = Nothing
   
10. End Sub

Sub SetTrueColor()<br />     Dim MyColor As AcadAcCmColor<br />     Set MyColor = New AcadAcCmColor<br />     MyColor.SetRGB 106, 240, 250<br /> <br />     ThisDrawing.ActiveLayer.TrueColor = MyColor<br />     <br />     Set MyColor = Nothing<br /> End Sub

Real_King

wylong 发表于 2013-5-28 21:28

太感谢了！简直为工作带来了福音啊！！！