分享个找颜色代码

qwh923820

采用VB编程如果不引用CAD的库，那acred\cagreen等颜色符号就没法用，只能输入编号，以下简单的代码就能查看全部颜色。

2. Sub 找颜色()
   
3. Dim i&, x As Object
   
4. Dim p1(0 To 2) As Double, p2(0 To 2) As Double
   
5. For i = 0 To 256
   
6.     If i / 16 = i \ 16 Then
   
7.         p1(0) = p1(0) + 100: p1(1) = 0
   
8.     Else
   
9.         p1(1) = p1(1) + 70
   
10.     End If
    
11. Set x = ThisDrawing.ModelSpace.AddText(i, p1, 30)
    
12.     x.Color = i
    
13. Next i
    
14. End Sub
    

Sub 找颜色()<br /> Dim i&, x As Object<br /> Dim p1(0 To 2) As Double, p2(0 To 2) As Double<br /> For i = 0 To 256<br />     If i / 16 = i \ 16 Then<br />         p1(0) = p1(0) + 100: p1(1) = 0<br />     Else<br />         p1(1) = p1(1) + 70<br />     End If<br /> Set x = ThisDrawing.ModelSpace.AddText(i, p1, 30)<br />     x.Color = i<br /> Next i<br /> End Sub<br />

zzyong00

有意思！

oistre

下载试试，谢谢源码！