CAD设置VB字体颜色

归来

Sub d1()
Dim a1 As String
Dim a2 As String
Dim a3(0 To 2) As Double
Dim a4 As AcadText

a3(2) = 0
For i = 0 To 99
If i < 10 Then
a1 = "00"
Else
a1 = "0"
End If
a2 = a1 & CStr(i)
a3(0) = i * 10
a3(1) = i * 10
Set a4 = ThisDrawing.ModelSpace.AddText(a2, a3, 4)
a4.color = acCyan
Next i
End Sub
注意：字体颜色设置a4.color = acCyan

739480322

看看是什么.......

suihan001

过来学习学习，查漏补缺一下

fidyzhang

感谢分享！！

ziranl

谢谢分享！

cjsky45

辛苦了，感谢分享