Комментарии

1. Елена пишет:

   16 Март 2021 в 15:38

   Код на C# тоже как лисп загружать? Че-то не работает. Пишет нет такой команды - kpblc-layer-erase
2. Кулик Алексей aka kpblc пишет:

   16 Март 2021 в 15:51

   Код надо компилировать в dll, а потом уже загружать через netload.
3. doctorraz пишет:

   22 Июль 2021 в 11:10

   Только начинаю разбираться с C#
   Если не затруднит дай пожалуйста пример вызова, не знаю, как получить входной параметр типа ResultBuffer
4. Кулик Алексей aka kpblc пишет:

   23 Июль 2021 в 12:02

   Вызов из-под лиспа (при условии, что dll скомпилирована и загружена в ACAD):
   [cc lang="cadlisp"](_kpblc-layer-erase "ИмяСлояДляУдаления")[/cc]

   Или вопрос был в том, как в C# обработать переданные параметры?

   Другой вопрос, что Дима Загорулькин показал мне другой, более правильный вариант C#-кода (который, я надеюсь, он как-нибудь где-нибудь опубликует).
5. doctorraz пишет:

   23 Июль 2021 в 13:27

   Спасибо!
   Думал, что то не так делаю...
   крашится автокад 2021, надо по шагам отладку запускать.
   --------------
   Конечная цель не удаление а laymrg
   Разбираюсь
6. Кулик Алексей aka kpblc пишет:

   23 Июль 2021 в 13:30

   ИМХО технология примерно такая же - пройтись по всем примитивам, проверить старый слой, установить новый. Потом попробовать удалить запись о старом слое в таблице слоев
7. doctorraz пишет:

   23 Июль 2021 в 13:38

   Вот и взял твой код за образец (списать)
   Лисп попробовал весьма шустро работает!!!
   Net то же домучу.
   Кстати, а чего ты не проверяешь в начале слой на purge, а сразу идешь перебирать объекты?
   Мож на слое ничего и нету, и его можно сразу удалять
8. Кулик Алексей aka kpblc пишет:

   23 Июль 2021 в 13:43

   Можно, конечно, но 2 года назад не сообразил
9. doctorraz пишет:

   24 Июль 2021 в 13:07

   поменял
   LayerTableRecord layer = (LayerTableRecord)tr.GetObject(idLayerDelete, OpenMode.ForWrite); //было ForRead

   layer.IsFrozen = false; //иначе на этой строчке фаталил автокад 2021
   ------------
   действительно работает очень шустро.
   Надо в конце еще реген добавить
10. Кулик Алексей aka kpblc пишет:

    25 Июль 2021 в 15:13

    Дима дал разрешение на публикацию, чем я и воспользуюсь

    
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Runtime;
// Комментарии и разбор - Загорулькин Дмитрий https://www.youtube.com/channel/UCZqgdyZEplDlXagGv6OlmdA
namespace NetToLisp
{
public class LayerErase
{
[LispFunction("_kpblc-layer-erase")]
public static bool LispEraseLayer(ResultBuffer arguments)
{
//Array args = arguments.AsArray();
TypedValue[] args = arguments.AsArray();
bool res = false;
if (args.Length == 1 && args[0].TypeCode == (int)LispDataType.Text)
{
//string sLayerName = ((TypedValue)(args.GetValue(0))).Value.ToString();
string sLayerName = args[0].Value.ToString();

    // Тут ещё добавил проверку на пустоту строки на всякий случай - не знаю,
    // как поведёт себя layerTable.Has, если ему сунуть пустую строку... Может и зря паникую
    if (!string.IsNullOrEmpty(sLayerName) && sLayerName != "0")
    {
    Document doc = Application.DocumentManager.MdiActiveDocument;
    Database db = doc.Database;

    using (Transaction tr = db.TransactionManager.StartTransaction())
    {
    LayerTable layerTable = (LayerTable)tr.GetObject(db.LayerTableId, OpenMode.ForRead);
    if (layerTable.Has(sLayerName))
    {
    ObjectId idLayerDelete = layerTable[sLayerName];
    ObjectId idCurrentLayer = db.Clayer;

    if (idCurrentLayer == idLayerDelete)
    {
    //db.Clayer = layerTable["0"];
    db.Clayer = db.LayerZero;
    }

    // Здесь слой открывать не нужно, сделаем это перед удалением
    //LayerTableRecord layer = (LayerTableRecord)tr.GetObject(idLayerDelete, OpenMode.ForRead);
    BlockTable blockTable = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);

    //layer.IsLocked = false; // < - Вот тут, по идее, должно упасть. Объект layer открыт на чтение.
    //layer.IsFrozen = false; // <- Вот тут, по идее, должно упасть. Объект layer открыт на чтение.
    // Вообще, в .NET API об этом можно не париться. Достаточно использовать перегрузку метода открытия объекта:
    // tr.GetObject(id, OpenMode.ForWrite, false, true) <- последняя true - это разрешить оперировать объектами на блокированных слоях
    // а то что слой выключен или заморожен, вроде как, .NETу фиолетово (хотя, могу ошибаться - лучше перепроверить)

    foreach (ObjectId btrId in blockTable)
    {
    BlockTableRecord blockTableRecord = (BlockTableRecord)tr.GetObject(btrId, OpenMode.ForRead);
    if (!blockTableRecord.IsFromExternalReference)
    {
    foreach (ObjectId entId in blockTableRecord)
    {
    //Entity ent = (Entity)tr.GetObject(entId, OpenMode.ForRead);
    // Использовать преобразование через as безопаснее. Если объект не того типа - то будет просто null.
    // А если использовать преобразование типа через скобочки спереди (Entity), то если объект вдруг окажется не Entity,
    // то будет исключение и сбой. В этом случае такое маловероятно, но в других - вполне возможно
    Entity ent = tr.GetObject(entId, OpenMode.ForRead, false, true) as Entity;

    //if (ent.Layer.ToUpper() == sLayerName.ToUpper())
    if (ent.LayerId.Equals(idLayerDelete))
    {
    // У транзакций есть один косяк - не любят этот метод
    // Я не ловил с этим пролем, но вроде как они есть
    // Исправлять не буду, если интересно - почитай: https://adn-cis.org/v-autocad-2018.1-metod-upgradeopen-privodit-k-fatalnoj-oshibke-vnutri-tranzakczii.html
    ent.UpgradeOpen();
    ent.Erase();
    }
    //else

    // Можно одним выражением "убить двух зайцев" - и проверить что это блок и сохранить его в переменной
    else if (ent is BlockReference blkRef)
    {
    //BlockReference blkRef = ent as BlockReference;
    //if (blkRef != null)
    //{
    // Что-то мне кажется это неправильно - удалять атрибуты блока, оставляя при этом сам блок...
    // Может, лучше их на другой слой кидать?
    foreach (ObjectId attId in blkRef.AttributeCollection)
    {
    //AttributeReference att = (AttributeReference)tr.GetObject(attId, OpenMode.ForRead);
    AttributeReference att = tr.GetObject(attId, OpenMode.ForRead, false, true) as AttributeReference;
    //if (att.Layer.ToUpper() == sLayerName.ToUpper())
    // Добавил проверку на null на всякий случай
    if (att != null && att.LayerId.Equals(idLayerDelete))
    {
    att.UpgradeOpen();
    att.Erase();
    }
    }
    //}
    }
    }
    }
    }

    LayerTableRecord layer = (LayerTableRecord)tr.GetObject(idLayerDelete, OpenMode.ForWrite);
    //layer.UpgradeOpen();
    layer.Erase();

    res = true;
}
tr.Commit();
}
}
}
return res;
}
}
}

11. Кулик Алексей aka kpblc пишет:

    25 Июль 2021 в 15:26

    И я очень сильно подозреваю, что вариант Димы будет как минимум а) быстрее и б) устойчивее.