Public Sub ShowAllLayerList()
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Try
If ps Is Nothing Then
ps = New Autodesk.AutoCAD.Windows.PaletteSet("GilSeoRin")
Dim myForm As Modelessform = New Modelessform()
ps.Add("GilSeoRin", myForm)
ps.MinimumSize = New System.Drawing.Size(300, 300)
ps.Visible = True
End If
Dim curdb As Database = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database
Dim tm As Autodesk.AutoCAD.DatabaseServices.TransactionManager = curdb.TransactionManager
Dim myT As Transaction = tm.StartTransaction()
Dim lt As LayerTable = CType((tm.GetObject(curdb.LayerTableId, OpenMode.ForRead, False, True)), LayerTable)
For Each id As Object In lt
Dim ltr As LayerTableRecord = (CType(tm.GetObject(id, OpenMode.ForRead, False, True), LayerTableRecord))
Me.FromLayerList.Items.Add(ltr.Name)
Me.ToLayerList.Items.Add(ltr.Name)
Next
myT.Commit()
myT.Dispose()
Catch ex As System.Exception
ed.WriteMessage("Error Creating Palette: " + ex.Message)
End Try
End Sub