CAD中仅显示当前激活图层的VBA宏代码

清风明月名字

CAD中仅显示当前激活图层的VBA宏代码

Sub 仅显示当前激活图层()
      ' 这个范例返回目前的图层
      ' 接着添加新的图层。
      ' 最后，将图层恢复为原来的设定值.
      ThisDrawing.SendCommand "-LAYER" & vbCr
       ThisDrawing.SendCommand "OFF" & vbCr
       ThisDrawing.SendCommand "*" & vbCr & vbCr & vbCr
      Dim currLayer As AcadLayer
      Dim objLayer As AcadLayer

      ' 返回作用中的文件的目前图层
      Set currLayer = ThisDrawing.ActiveLayer
   

      ' 将图层重设为原来的设定值
      ThisDrawing.ActiveLayer = currLayer
     
currLayer.LayerOn = True
  End Sub