CADSoftTools

Code: Select all

CADEntity ent;
...

if (ent.EntType == EntityType.Text)
  CADImage.Selector.DoSelectEntity(ent);

Code: Select all

public static void ChangeBlockColor(CADImage drawing, string blockName, Color newColor)
{
    CADBlock block = drawing.Converter.BlockByName(blockName);
    if (block != null)
    {
        block.Entities.ForEach(entity => entity.Color = CADConst.clByBlock);
        drawing.Converter.Loads(block);

        List<CADEntity> inserts = drawing.CurrentLayout.Entities.FindAll(ent => ent.EntType == EntityType.Insert);
        List<CADEntity> blockInserts = inserts.FindAll(ent => (ent as CADInsert).Block.Name == blockName);

        foreach (CADEntity insert in blockInserts)
        {
            insert.Color = newColor;
            drawing.Converter.Loads(insert);
        }
    }
}

Code: Select all

Shared Function ChangeColorByText(cadImage As CADImage, objType As EntityType, _text As String, newColor As Color) As Boolean
        If cadImage Is Nothing Then Return False
        For i As Integer = 0 To cadImage.CurrentLayout.Entities.Count - 1
            If cadImage.CurrentLayout.Entities(i).EntType = objType Then
                Dim entity As CADEntity = cadImage.CurrentLayout.Entities(i)
                Select Case entity.EntType
                    Case EntityType.Text
                        Dim cadText As CADText = CType(entity, CADText)
                        If cadText.Text.ToLower = _text.ToLower Then
                            cadText.Color = newColor
                            Return True
                        End If
                    Case EntityType.MText
                        Dim cadMText As CADMText = CType(entity, CADMText)
                        If cadMText.Text.ToLower = _text.ToLower Then
                            cadMText.Color = newColor
                            Return True
                        End If
                End Select
            End If
        Next
        Return False
    End Function

Code: Select all

cadImage.Converter.Loads(cadText)

Code: Select all

cadImage.Converter.Loads(cadMText)