分享个找颜色代码

qwh923820 发表于 2018-8-3 17:47:39

采用VB编程如果不引用CAD的库，那acred\cagreen等颜色符号就没法用，只能输入编号，以下简单的代码就能查看全部颜色。
Sub 找颜色()
Dim i&, x As Object
Dim p1(0 To 2) As Double, p2(0 To 2) As Double
For i = 0 To 256
If i / 16 = i \ 16 Then
p1(0) = p1(0) + 100: p1(1) = 0
Else
p1(1) = p1(1) + 70
End If
Set x = ThisDrawing.ModelSpace.AddText(i, p1, 30)
x.Color = i
Next i
End Sub

zzyong00 发表于 2018-8-5 14:21:30