CADSoftTools

Code: Select all

    Private Sub btnGetBlocksFromInserts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetBlocksFromInserts.Click
        Dim i, j, entCounts As Integer
        Dim entBlock As CADBlock
        Dim entInsert As CADInsert
        Dim BlockName As String
        Dim insertPoint As DPoint
        Dim attributes As CADEntityCollection
        Dim Attrib As CADAttrib

        If Me.cadImage Is Nothing Then
            Me.cadImage = New CADImage
            Me.cadImage.InitialNewImage()
            Me.cadImage.UseDoubleBuffering = False
        End If

        'Get all blocks:
        For i = 0 To Me.cadImage.Converter.Blocks.Count - 1
            entBlock = Me.cadImage.Converter.Blocks(i)            
        Next i

        'Get blocks from inserts:
        entCounts = Me.cadImage.Converter.GetCounts(ConvSection.Entities)
        For i = 0 To entCounts - 1
            If (TypeOf Me.cadImage.Converter.GetSection(ConvSection.Entities).Entities(i) Is CADInsert) Then
                entInsert = Me.cadImage.Converter.GetSection(ConvSection.Entities).Entities(i)

               'Get all attributes from the current insert
                attributes = entInsert.Attribs
                If Not (attributes Is Nothing) Then
                    For j = 0 To attributes.Count - 1
                        Attrib = attributes.Item(j)                        
                    Next j                    
                End If
                
                'Get block name and insert point
                entBlock = entInsert.Block
                BlockName = entBlock.Name
                insertPoint = entInsert.Point
            End If
        Next i
    End Sub