Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Geometry
Imports ZwSoft.ZwCAD.EditorInput
Imports ZwSoft.ZwCAD.ApplicationServices
Public Class Commands
<CommandMethod("WblockClone")> _
Public Shared Sub WblockClone()
Dim ZwDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ZwDb As Database = ZwDoc.Database
Dim ed As Editor = ZwDoc.Editor
Dim entity As Entity = Nothing
Dim entityCollection As New DBObjectCollection()
Dim ents As PromptSelectionResult = ed.GetSelection()
If ents.Status = PromptStatus.OK Then
Using transaction As Transaction = ZwDb.TransactionManager.StartTransaction()
Dim SS As SelectionSet = ents.Value
For Each i
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Geometry
Imports ZwSoft.ZwCAD.EditorInput
Imports ZwSoft.ZwCAD.ApplicationServices
Public Class Commands
<CommandMethod("WblockClone")> _
Public Shared Sub WblockClone()
Dim ZwDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ZwDb As Database = ZwDoc.Database
Dim ed As Editor = ZwDoc.Editor
Dim entity As Entity = Nothing
Dim entityCollection As New DBObjectCollection()
Dim ents As PromptSelectionResult = ed.GetSelection()
If ents.Status = PromptStatus.OK Then
Using transaction As Transaction = ZwDb.TransactionManager.StartTransaction()
Dim SS As SelectionSet = ents.Value
For Each i