Добавить новые сущности TEXT/MTEXT справа от существующих

Как добавить новые сущности TEXT/MTEXT справа от существующих

Проблема: Как добавить новые сущности TEXT/MTEXT справа от существующих (CADNET-8172).

Советы: Для этого создайте объект CadBaseEntity, создайте CadMText или CadText с текстом, в новом объекте в поле SoftOwner добавьте cadImage.Layouts[“Model”].BlockTableRecordHandle из чертежа и добавьте его в блок cadImage.BlockEntities[" *MODEL_SPACE"] и добавьте новый объект в сущности чертежа.

Пример:

List<CadBaseEntity> entities = new List<CadBaseEntity>(cadImage.Entities);

List<CadBaseEntity> addedEntities = new List<CadBaseEntity>();

foreach (CadBaseEntity baseEntity in entities)
{
    if (baseEntity.TypeName != CadEntityTypeName.MTEXT)
    {
        continue;
    }
    else
    {
        CadMText mtext = (CadMText)baseEntity;
      
        if (mtext.FullClearText == "Known text")
        {
            CadMText design = CreateMTextToTheRight(mtext, "Design");
           // CadText design = CreateTextToTheRight(mtext, "Design");
            addedEntities.Add(design);
        }
    }
}

foreach (CadBaseEntity addedEntity in addedEntities)
{
    addedEntity.SoftOwner = cadImage.Layouts["Model"].BlockTableRecordHandle;
    cadImage.BlockEntities["*MODEL_SPACE"].AddEntity(addedEntity);
}

entities.AddRange(addedEntities);
cadImage.Entities = new List<CadBaseEntity>(entities).ToArray();

private static CadMText CreateMTextToTheRight(CadMText mtext, string value)
{
    CadMText newMText = new CadMText();
    newMText.Text = value;
    newMText.InitialTextHeight = mtext.InitialTextHeight;

    // mtext.HorizontalWidth may be useful too to get the width of the mtext
    newMText.InsertionPoint = new Cad3DPoint(mtext.InsertionPoint.X + mtext.ReferenceRectangleWidth, mtext.InsertionPoint.Y);
    newMText.LayerName = mtext.LayerName;
    return newMText;
}

private static CadText CreateTextToTheRight(CadMText mtext, string value)
{
    CadText text = new CadText();
    text.DefaultValue = value;
    text.TextHeight = mtext.InitialTextHeight;
    text.FirstAlignment = new Cad3DPoint(mtext.InsertionPoint.X + mtext.ReferenceRectangleWidth, mtext.InsertionPoint.Y - text.TextHeight);
    text.LayerName = mtext.LayerName;
    return text;
}