老大，为什么我以下的代码会提示”未找到主键"?

h_lon

为什么我以下的代码会提示”未找到主键"?也没有创建新层
环境：ACAD2004

Sub aaa()
   
    Dim a As AcadText
    Dim p As Variant
   
    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

efan2000

没有添加错误转向语句，怎么能够处理错误。

2. 
   
3. Public Function CreateLayer(ssLayerName As String) As AcadLayer
   
4.     [color=#DC143C]on error resume next[/color]
   
5.     Set CreateLayer = ThisDrawing.Layers(ssLayerName)
   
6.     If Err Then
   
7.         Err.Clear
   
8.         Set CreateLayer = ThisDrawing.Layers.Add(ssLayerName)
   
9.     End If
   
10. 
    
11. End Function
    

<br /> Public Function CreateLayer(ssLayerName As String) As AcadLayer<br />     [color=#DC143C]on error resume next[/color]<br />     Set CreateLayer = ThisDrawing.Layers(ssLayerName)<br />     If Err Then<br />         Err.Clear<br />         Set CreateLayer = ThisDrawing.Layers.Add(ssLayerName)<br />     End If<br /> <br /> End Function<br />

h_lon

我重写了更改图层的函数,问题得以解决!
Sub aaa()
   
    Dim a As AcadText
    Dim p As Variant
   
    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

h_lon

明老大的函数更为简洁,佩服佩服.
------------------------------------------------
努力努力,再加把劲

兰州人

简单明了,我编的程序更复杂