保存当前图纸（SaveAs）

Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Geometry


Public Class TextTools_ExplodeText
    <CommandMethod("SaveAsDWG")> _
    Public Sub SaveAsDWG()
        Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim ZcDB As Database = ZcDoc.Database


        Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction()
            Dim ZcBLT As BlockTable = ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead)
            Dim ZcBLTR As BlockTableRecord = ZcTran.GetObject(ZcBLT(BlockTableRecord.ModelSpace), OpenMode.ForWrite)


            Dim lineEnt As Line = New Line(New Point3d(0, 0, 0), New Point3d(10, 10, 0))


            ZcBLTR.AppendEntity(lineEnt)
            ZcTran.AddNewlyCreatedDBObject(lineEnt, True)
            ZcTran.Commit()
        End Using


        ZcDoc.SendStringToExecute("_.ZOOM _E ", True, False, False)


        ZcDB.SaveAs("E:/123test.dwg", ZcDB.SecurityParameters)


    End Sub
End Class