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
页:
[1]