屬性 ActiveLayer 範例

Sub Example_ActiveLayer()     ' 本範例將會傳回目前的圖層，再增加一個新的圖層並將新增的圖層     '設為「使用中的圖層」，最後會將「使用中的圖層」設為原本的圖層     Dim currLayer As AcadLayer     Dim newLayer As AcadLayer         ' 傳回目前文件內「使用中的圖層」     Set currLayer = ThisDrawing.ActiveLayer     MsgBox "The current layer is " & currLayer.name, vbInformation, "ActiveLayer Example"         ' 建立一個新的圖層並將它設為「使用中的圖層」     Set newLayer = ThisDrawing.Layers.Add("TestLayer")     ThisDrawing.ActiveLayer = newLayer     MsgBox "The new layer is " & newLayer.name, vbInformation, "ActiveLayer Example"     ' 回復「使用中的圖層」為原本的圖層     ThisDrawing.ActiveLayer = currLayer     MsgBox "The active layer is reset to " & currLayer.name, vbInformation, "ActiveLayer Example" End Sub