AutoCAD 二次开发 （VBA） 怎样将某一图层，比如图层名为“Brick”的图层，通过vba代码设置为当前图层？

Dim currLayer As AcadLayer

Set currLayer = ThisDrawing.Layers.Add("Brick")

ThisDrawing.ActiveLayer = currLayer

你没有对layer0赋值.

请使用layer0=ThisDrawing.Layers.Add("New_Layer")(建立一个新的层)

或使用layer0=AcadLayers.Item(--)方法(取得已经存在的层.)

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Target.Address = "$A$1" Then Exit Sub

If Target = 0 Then

ActiveSheet.Shapes.Range(Array("图片 2")).Visible = msoFalse

ElseIf Target = 1 Then

ActiveSheet.Shapes.Range(Array("图片 2")).Visible = msoTrue

End If

End Sub

代码贴在本表的代码窗中，不是模块中。图片 2的名称请按实际名称修改，选中图片，看下地址栏中显示的名称是啥就改成啥，比如”图片 10”

---