求助! vb.net怎样实现cad新建图层?

haifeng

怎样在vb.net下实现cad新建图层.


帮忙介绍详细点!


谢谢!!!

jszfsoft

Public Sub createNewLayer()
Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database
Dim tm As DBTransMan = db.TransactionManager
Dim ta As Transaction = tm.StartTransaction()
Try
Dim LT As LayerTable = tm.GetObject(db.LayerTableId, OpenMode.ForWrite, False)
Dim LTRec As New LayerTableRecord 'LTRec.Name = "ASDK_MYLAYER" LT.Add(LTRec)
tm.AddNewlyCreatedDBObject(LTRec, True)
ta.Commit()
Finally
ta.Dispose()
End Try
End Sub

haifeng

[glow=255,red,2]非常谢谢[/glow]