vb.net&cad二开自学笔记7：绘图命令的改进与扩展

1、在笔记6中创建了一个绘制直线的命令，若其他基本绘图命令都按那个写法会麻烦得要死，所以要总结其中的公共复用部分包封到一个统一的类中，这样在以后使用起来，特别是移植VBA代码时更方便，代码如下：

Public Class AcModelSpace

Public Shared Function Addline(Starpoint As Point3d, Endpoint As Point3d) As ObjectId

Dim Ent As New Line(Starpoint, Endpoint)

Dim EntID As ObjectId = AppendEnt(Ent)

Return EntID

End Function

Public Shared Function AppendEnt(Ent As Entity) As ObjectId

Dim db As Database = HostApplicationServices.WorkingDatabase

Dim EntID As ObjectId

Using Trans As Transaction = db.TransactionManager.StartTransaction()

Dim Bt As BlockTable = Trans.GetObject(db.BlockTableId, OpenMode.ForRead)

Dim Btr As BlockTableRecord = Trans.GetObject(Bt.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite)

EntID = Btr.AppendEntity(Ent)

Trans.AddNewlyCreatedDBObject(Ent, True)

Trans.Commit()

End Using

Return EntID

End Function

End Class

2、myline命令中的代码也要做出对应的改变，是不是比之前简洁多了？

<CommandMethod("MyLineNew")>

Public Sub MyLineNew()

Dim db As Database = HostApplicationServices.WorkingDatabase

Dim Pt1 As New Point3d(0, 0, 0)

Dim Pt2 As New Point3d(100, 100, 0)

AcModelSpace.Addline(Pt1, Pt2)

End Sub

3、按此思路框架，扩展类AcModelSpace，添加一系列的AddXXX方法，便可轻松的清晰的扩展绘图命令的内容