topic Iterating trough items in block in .NET Forum

Iterating trough items in block

wbdehaan — Thu, 16 Feb 2012 09:56:05 GMT

Hi,

at multiple places i have drawn the same block in a drawing, and i would like select one block in the drawing, then iterate through the items in the block, and find the actual coordinates of a 3d-polyline (that is drawn in that block) in modelspace. How can I do this?

kind regards,

Wouter de Haan

the Netherlands

Re: Iterating trough items in block

Hallex — Thu, 16 Feb 2012 10:26:10 GMT

Take a look at GetNestedEntity method of Document Editor

What is the language you prefer C# / VB.NET?

~'J'~

Re: Iterating trough items in block

wbdehaan — Thu, 16 Feb 2012 11:29:50 GMT

Thanks for your reply,

where can I find the 'document editor' ? I use Visual Studio 2008 (vb.net)

Wouter

Re: Iterating trough items in block

Alfred.NESWADBA — Thu, 16 Feb 2012 11:49:46 GMT

Hi,

for your currentlyy opened DWG:

Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MDIActiveDocument.Editor

- alfred -

Re: Iterating trough items in block

Hallex — Thu, 16 Feb 2012 14:05:11 GMT

Here you go, tested on A2009 only

{code}

  Public Shared Function GetAllVertices(ent As Polyline) As Point3dCollection
   Dim points As New Point3dCollection()
   Dim pt As New Point3d()
   Dim i As Integer = 0
   For i = 0 To ent.NumberOfVertices - 1
    pt = ent.GetPoint3dAt(i)
    points.Add(pt)
   Next
   Return points
  End Function

  <CommandMethod("Gnp")> _
  Public Shared Sub TestSubEntity()
   Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument

Dim db As Database = doc.Database

Dim ed As Editor = doc.Editor

Dim ucs As Matrix3d = ed.CurrentUserCoordinateSystem

Dim tr As Transaction = db.TransactionManager.StartTransaction()
Try

Using tr

Dim pno As New PromptNestedEntityOptions(vbLf & "Select Nested Polyline >>")

pno.AllowNone = False

Dim rs As PromptNestedEntityResult = ed.GetNestedEntity(pno)

If rs.Status <> PromptStatus.OK Then

Return
End If

Dim entId As ObjectId = rs.ObjectId

Dim selent As Entity = TryCast(tr.GetObject(entId, OpenMode.ForWrite), Entity)

Dim ids As ObjectId() = rs.GetContainers()
Dim blkId As ObjectId = ids(0)

If blkId.IsNull Then

Return
End If

Dim blkEnt As Entity = TryCast(tr.GetObject(blkId, OpenMode.ForRead), Entity)
If blkEnt Is Nothing Then

Return
End If

Dim bref As BlockReference = TryCast(blkEnt, BlockReference)

If bref Is Nothing Then

Return
End If

Dim mat As Matrix3d = bref.BlockTransform

Dim btrec As BlockTableRecord = TryCast(tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)

Dim pline As Polyline = TryCast(selent, Polyline)

If pline Is Nothing Then

Return
End If

Dim circ As Circle

Dim points As Point3dCollection = GetAllVertices(pline)

For i As Integer = 0 To points.Count - 1
Dim p As Point3d = points(i)

circ = New Circle(p.TransformBy(mat), Vector3d.ZAxis, 0.1)

btrec.AppendEntity(circ)

tr.AddNewlyCreatedDBObject(circ, True)
Next

tr.Commit()

End Using
Catch ex As Autodesk.AutoCAD.Runtime.Exception

ed.WriteMessage(ex.Message + vbLf + ex.StackTrace)

   Finally
   End Try
  End Sub

{code}

~'J'~

Re: Iterating trough items in block

wbdehaan — Fri, 17 Feb 2012 15:18:46 GMT

Thank you very much for this code, it works!

kind regards

Wouter

Re: Iterating trough items in block

Hallex — Fri, 17 Feb 2012 17:45:11 GMT

You're welcome, Wouter

Cheers 🙂

~'J'~

Re: Iterating trough items in block

wbdehaan — Mon, 20 Feb 2012 09:27:42 GMT

In addition, i have another question.

i want to make an adjustment to the supplied code, and therefore i need to step through all objects in the block, but since i am new to .net i cannot get it to work. How can i step through all the objects in the selected block?

Wouter

Re: Iterating trough items in block

Hallex — Mon, 20 Feb 2012 14:30:20 GMT

Wouter,

Here ya go

This crappy code of mine is based on Tony Tanzillo's idea that I did find on this forum

ss give that a try

{code}

_______________________________________

        <CommandMethod("GAS")> _
        Public Shared Sub GetAllSubentitiesTest()
            Dim sb As New StringBuilder
            Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
            Dim db As Database = doc.Database
            Dim ed As Editor = doc.Editor
            Dim ucs As Matrix3d = ed.CurrentUserCoordinateSystem
            Try
                Dim pso As New PromptEntityOptions(vbCr & "Select a Block Reference: ")
                pso.SetRejectMessage(vbLf & " Select a Block Reference only!")
                pso.AddAllowedClass(GetType(BlockReference), False)
                Dim psr As PromptEntityResult = ed.GetEntity(pso)
                If psr.Status <> PromptStatus.OK Then
                    Return
                End If
                Using tr As Transaction = db.TransactionManager.StartTransaction
                    Dim ent As Entity = DirectCast(tr.GetObject(psr.ObjectId, OpenMode.ForRead), Entity)
                    Dim bref As BlockReference = DirectCast(ent, BlockReference)
                    If bref Is Nothing Then
                        Return
                    Else
                        bref.UpgradeOpen()
                    End If

                    Dim btr As BlockTableRecord = TryCast(tr.GetObject(bref.BlockTableRecord, OpenMode.ForRead, False), BlockTableRecord)
                    If btr Is Nothing Then
                        Return
                    End If

                    Dim expIds As New DBObjectCollection
                    bref.Explode(expIds)
                    If expIds.Count > 0 Then
                        For i As Integer = 0 To expIds.Count - 1
                            Dim obj As Entity = TryCast(expIds(i), Entity)
                            If obj IsNot Nothing Then
                                If Not obj.IsWriteEnabled Then
                                    obj.UpgradeOpen()
                                    obj.TransformBy(bref.BlockTransform) '<-- to get right geometric properties
                                End If

sb.AppendLine(String.Format("{0}" + vbTab + "{1}" + vbLf, obj.GetRXClass().Name, obj.GetRXClass().DxfName))

                                obj.Dispose()
                            End If
                        Next
                    End If
                    bref.DowngradeOpen()
                End Using

            Catch ex As System.Exception
                Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(ex.Message & vbCr & ex.StackTrace)
            Finally
                If sb.ToString <> String.Empty Then
                    MsgBox(sb.ToString)
                End If
            End Try
        End Sub

_______________________

{code}

~'J'~