[编程交流] VBA更改图层

 
Public Sub MISKO()
Dim ACAD As AcadApplication 
On Error Resume Next 
Set ACAD = GetObject(, "AutoCAD.Application") 
Call ACAD_SELECT_LAYER("BIBI")
End Sub
Public Sub ACAD_SELECT_LAYER(A$)
Dim ACAD As AcadApplication Dim objLayer As AcadLayer
Dim acadDoc As AcadDocument
Set ACAD = GetObject(, "AutoCAD.Application") 'Get a running instance of the class AutoCAD.Application
Set acadDoc = ACAD.ActiveDocument
Set objLayer = acadDoc.Layers(A$) ‘ < supposed to select this layer passed by A$
End Sub

Dim newlayer As AcadLayer
Set newlayer = ThisDrawing.Layers.Add("LAYER1")
ThisDrawing.ActiveLayer = newlayer