Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Geometry
Imports ZwSoft.ZwCAD.EditorInput
Public Class ZwApps
<CommandMethod("vbatest")> _
Public Shared Sub CreateTable()
Dim ZwDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ZwDb As Database = ZwDoc.Database
Using ZcTran As Transaction = ZwDb.TransactionManager.StartTransaction
Dim ZcBLT As BlockTable = ZcTran.GetObject(ZwDb.BlockTableId, OpenMode.ForRead)
Dim ZcBLTR As BlockTableRecord = ZcTran.GetObject(ZcBLT(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
Dim pl As Polyline = New Polyline()
pl.AddVertexAt(0, New Point2d(0, 0), 0, 0, 0)
pl.AddVertexAt(1, Ne
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Geometry
Imports ZwSoft.ZwCAD.EditorInput
Public Class ZwApps
<CommandMethod("vbatest")> _
Public Shared Sub CreateTable()
Dim ZwDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ZwDb As Database = ZwDoc.Database
Using ZcTran As Transaction = ZwDb.TransactionManager.StartTransaction
Dim ZcBLT As BlockTable = ZcTran.GetObject(ZwDb.BlockTableId, OpenMode.ForRead)
Dim ZcBLTR As BlockTableRecord = ZcTran.GetObject(ZcBLT(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
Dim pl As Polyline = New Polyline()
pl.AddVertexAt(0, New Point2d(0, 0), 0, 0, 0)
pl.AddVertexAt(1, Ne