[编程交流] 实体“Layer”属性不存在

Sub GRA1A()
Dim aLayer As AcadLayer
Dim Ent, EntCopy As AcadEntity
Dim SSet As AcadSelectionSet
Dim aPoly As AcadLWPolyline
  
   Set SSet = ThisDrawing.SelectionSets.Add("sset")
   SSet.SelectOnScreen
   
   Set aLayer = ThisDrawing.Layers.Add("N_GRA1A")
   Set aLayer = ThisDrawing.Layers.Add("N_GRA1GBA")
   For Each Ent In SSet
       If TypeOf Ent Is AcadLWPolyline Then
           Set aPoly = Ent
           aPoly.Closed = True
       End If
       Set EntCopy = Ent.Copy
       If Ent.layer = "N_GVL1" Or "N_GBG1" Or "N_GBG2" Or "N_GBG3" Then
           EntCopy.layer = "N_GRA1A"
       ElseIf Ent.layer = "N_GBA" & "#" Then
           EntCopy.layer = "N_GRA1GBA"
       Else
           EntCopy.layer = "N_GRA1A"
           MsgBox "Blahblah"
       End If
   Next
   ThisDrawing.SelectionSets.Item("sset").Delete
      
End Sub

Dim Ent, EntCopy As AcadEntity

Dim Ent as [b][color=red]Variant[/color][/b], EntCopy As AcadEntity

Dim Ent as AcadEntity, EntCopy As AcadEntity

 
If UCase(a)=Ucase(b) then
Lucky you
End if