UserControl butten that is assign to ToolPalette
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Me.RadioButton1.Checked Then
SetActiveLayer("Layer5")
End If
End Sub
Module Module1
Public Sub SetActiveLayer(ByVal LayerName As String, Optional ByVal Fleg As Boolean = True)
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim ed As Autodesk.AutoCAD.EditorInput.Editor
ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
Dim tm As Autodesk.AutoCAD.DatabaseServices.TransactionManager = db.TransactionManager
Dim tr As Autodesk.AutoCAD.DatabaseServices.Transaction = tm.StartTransaction
Try
Dim tbl As LayerTable = _
CType(tr.GetObject(db.LayerTableId, OpenMode.ForRead), LayerTable)
If tbl.Has(LayerName) Then
db.Clayer = tbl.Item(LayerName)
tr.Commit()
Else
If Fleg Then
Dim NewLayer As LayerTableRecord = AddNewLayer(LayerName)
tbl.UpgradeOpen()
tbl.Add(NewLayer)
tm.AddNewlyCreatedDBObject(NewLayer, True)
tr.Commit()
'db.Clayer = tbl.Item(LayerName)
'tr.Commit()
End If
End If
Catch e As System.Exception
ed.WriteMessage(e.Message)
tr.Abort()
Finally
tr.Dispose()
End Try
If Fleg Then
SetActiveLayer(LayerName, False)
End If
End Sub
Private Function AddNewLayer(ByVal LayerName As String) As LayerTableRecord
AddNewLayer = New LayerTableRecord With {.Name = LayerName, .Color = Autodesk.AutoCAD.Colors.Color.FromColor(Drawing.Color.Red), .LineWeight = LineWeight.LineWeight120, .IsPlottable = True, .Description = "Layer test1"}
End Function
End Module
thank you, danny
