Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.DatabaseServices Public Class prmrClass ' Define command 'Asdkcmd1' Public Class class1 _ Public Sub eras() Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor Dim db As Database = HostApplicationServices.WorkingDatabase Try Using trans As Transaction = db.TransactionManager.StartTransaction() Dim values() As TypedValue = {New TypedValue(0, "Text")} Dim sfilter As New SelectionFilter(values) Dim res As PromptSelectionResult = ed.SelectAll(sfilter) Dim i As Integer Dim SS As Autodesk.AutoCAD.EditorInput.SelectionSet = res.Value Dim idarray As ObjectId() = SS.GetObjectIds() Dim objIdColl As New ObjectIdCollection For i = 0 To idarray.Length - 1 Dim text As DBText text = DirectCast((trans.GetObject(idarray(i), OpenMode.ForRead, False)), DBText) ed.WriteMessage(text.Position.ToString()) Next End Using Catch ex As Exception Finally End Try End Sub End Class End Class