p = ThisDrawing.Utility.GetPoint(, "pack a point")
Set a = ThisDrawing.ModelSpace.AddText("新年好", p, 1)
a.Layer = CreateLayer("123")
ThisDrawing.Regen acActiveViewport
End Sub
Public Function CreateLayer(ssLayerName As String) As AcadLayer
Set CreateLayer = ThisDrawing.Layers(ssLayerName)
If Err Then
Err.Clear
Set CreateLayer = ThisDrawing.Layers.Add(ssLayerName)
End If
End Function
p = ThisDrawing.Utility.GetPoint(, "pack a point")
Set a = ThisDrawing.ModelSpace.AddText("新年好", p, 1)
a.Layer = CreateLayer("456").Name
ThisDrawing.Regen acActiveViewport
End Sub
Public Function CreateLayer(ssLayerName As String) As AcadLayer
Dim i As Integer
For i = 0 To ThisDrawing.Layers.Count - 1
If ThisDrawing.Layers.Item(i).Name = ssLayerName Then
CreateLayer = ThisDrawing.Layers(ssLayerName)
Exit For
Else
Set CreateLayer = ThisDrawing.Layers.Add(ssLayerName)
Exit For
End If
Next i
End Function