[aspid132]

Здравствуйте. У меня проблема с таблицами.
Есть таблица с забитыми в нее формулами. Если поменять числа в таблице, то формула итоговый результат не пересчитывает. Причем, иногда бывают удачные дни, когда все-таки подсчет происходит, но это бывает редко. Скорее всего проблема не с автокадом, т.к. на разных компах результат один и тот же. Таблица была создана в автокаде, но побывала в файле, который изначально был создан в zwcad. Может быть проблема в файле?
Есть еще одна небольшая проблемка: однострочный текст выделяется, когда захочет, ведет себя так же, как растровое изображение при значении переменной imageframe=0. Подскажите, пожалуйста, что делать.

[МишаИнженер]

doctorraz,
Исправил программу: отключил регенерацию таблиц и потом снова включил, сделал передачу фокуса программам, фильтр выбора настроить не удалось
Добавил таймер подсчёта времени в функцию
Поменял название файла. Проверьте работу программы. Всё ли нормально?

[Сергей812]

Зачем в файле экселя листы с какими то расчетами?

[Klo]

МишаИнженер, спасибо за скрипт, надеюсь пригодится!
Протестировать сложно в связи с тем, что этот долбаный глюк с не обновляющимися формулами появляется в самый неподходящий момент...
У меня acad2018x64, поэтому пришлось немного исправить объявление переменных и функций на ptrsafe и LongPtr. Может я там чего и нахимичил, но, вроде, работает.
Выкладываю для тех, кто в vba ещё бо'льший ламер, чем я.

[DMS-chiii]

А есть такое обновление таблиц на чистом автокаде 2018 и выше? А увидел чуть выше

[DMS-chiii]

Так так так скрипт по ведомому ему желанию меняет буквы ячеек в формулах (было например A10 после обработки A19) проверить такое становиться еще сложнее чем знать, что формулы просто не пересчитаны. И два он меняет цифровые значения ( было видимая часть число 90, после входа в ячейку с этим числом 90.99999 ). Закономерность проявления багов не проследилась Версия лиспа из 50 поста.

[Bumbastic85]

Сообщение от VVA Заметил одну особенность: Если скопировать значение ячейки с формулой в буфер, вбить туда просто текст, вновь зайти в редактор и вставить значение ячейки из буфера, то она начинает работать. Т.е нужно заменить значение ячейки текстом, а затем опять формулой Взял из этой темы LISP. Подготовка подосновы пару функций. Написал команду, которая в ячейках с формулами: - запоминает значение формулы ячейки - заполняет значение пустым текстом - заполняет значение запомненной формулой Вроде после этого формулы "оживают" (проверено на файлах в #15, #6, #4) [/color][/size]

спасибо за труды
но лисп работает на выбранном объекте (объектах)... можно ли сделать чтобы лисп по запуску обновлял все таблицы на разных листах (layout) ??? оченема надо

[zRaFiNaDz]

Всем доброго времени суток!
До сих пор борюсь с этой проблемой. Сделал КЖ, используя lisp "TCF", связи с экселем (в исходнике ("шаблоне") все работало). Когда делал - тоже все обновлялось в таблицах, на следующий день доделал проект и заметил, что не обновляется. Лечил lispом RETABLE - но сбивалось форматирование ячеек - что не есть хорошо - врукопашную много действий. Не смирился.
Открыл чистый файл - переносил из старого чертежа примитивы, таблицы, размеры, выноски делал заново, после каждого листа - бэкапил чертеж. Сегодня пришел - надо было изменить в проекте некоторые моменты. Хрясь и опять ни фига не работает. При этом на двух листах общих данных есть "МТЕКСТ", это "МТЕКСТ" был отформатирован под абзац 10 и междустрочный 1,4. Захожу на листы общих данных и вижу, что форматирование падлы МТЕКСТА слетело: междустрочный везде разный, поля со значениями на разной высоте с текстом. Как я понял после бага с "МТЕКСТОМ" - возникает баг с обновлением таблиц. В бэкапе все с форматированием хорошо и все работает.
Файл приложить не могу - конфиденциальность, но может кому-то хорошо понимающему в Ватокаде - эта подсказка поможет выявить проблему с "необновлением" полей в таблицах.

[DMS-chiii]

Люди добрые помогите для 2020 обновить обновлятор.

[Кулик Алексей aka kpblc]

Сообщение от DMS-chiii Люди добрые помогите для 2020 обновить обновлятор.

Чего??

[Александр Ривилис]

DMS-chiii,
Можно попробовать мой вариант пересчета таблиц. Команда RECALCTABLE.
(подразумевается, что командой _NETLOAD для загрузки dll-файла пользоваться умеешь и как разблокировать приложение, загруженное из интернета знаешь).
Должно работать начиная с AutoCAD 2013 (проверял только в 2017...2020)

[DMS-chiii]

2 kpblc про этот https://forum.dwg.ru/showpost.php?p=...0&postcount=63 файл.
2 Александр Ривилис большое спасибо в 2020 полёт нормальный

[Александр Ривилис]

Сообщение от DMS-chiii 2 Александр Ривилис большое спасибо в 2020 полёт нормальный

Отлично. Похоже вся проблема связана с тем, что в какой-то момент времени у полей устанавливается признак "Disable" вместо "Automatic". Моя программа рекурсивно находит все поля в таблице, меняет им признак на "Automatic" и обновляет их.
На AutoLisp/VBA это сделать нельзя. Только AutoCAD .NET API или ObjectARX. Я выбрал AutoCAD .NET API, чтобы не плодить кучу различных arx-файлов (версии и разрядность AutoCAD)

[Кулик Алексей aka kpblc]

Александр Ривилис, а исходник можно глянуть? Ну так, для понимания, насколько я в C# никакой

[Александр Ривилис]

Кулик Алексей aka kpblc,
Можно.

Код:

[Выделить все]

 // (C) Copyright 2019 by  
//
using System;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.EditorInput;

#pragma warning disable 0618

// This line is not mandatory, but improves loading performances
[assembly: CommandClass(typeof(Rivilis.ReCalcTable))]

namespace Rivilis
{
  public class ReCalcTable
  {
    [CommandMethod("ReCalcTable")]
    public void ReCalcTableHandler() // This method can have any name
    {
      int lcid = SystemObjects.DynamicLinker.ProductLcid; // Язык AutoCAD
      Document doc = Application.DocumentManager.MdiActiveDocument;
      if (doc == null)
        return;
      Editor ed = doc.Editor;
      Database db = doc.Database;
      PromptSelectionOptions prOpt = new PromptSelectionOptions();
      prOpt.MessageForAdding = (lcid == 0x419) ?
        "Выберите таблицы для пересчета полей" :
        "Select tables in order to recalculate fields";
      prOpt.MessageForRemoval = (lcid == 0x419) ?
        "Удалите таблицы из набора" :
        "Remove tables from selection";
      SelectionFilter sf = new SelectionFilter(
        new TypedValue[] {
          new TypedValue (0, "ACAD_TABLE")
        }
      );
      PromptSelectionResult rs = ed.GetSelection(prOpt, sf);
      if (rs.Status != PromptStatus.OK || rs.Value.GetObjectIds().Length == 0)
        return;
      ObjectId[] ids = rs.Value.GetObjectIds();
      foreach (ObjectId id in ids)
      {
        using (Table tab = id.Open(OpenMode.ForWrite) as Table)
        {
          for (int i = 0; i < tab.Rows.Count; i++)
          {
            for (int j = 0; j < tab.Columns.Count; j++)
            {
              ObjectId idField = tab.Cells[i, j].FieldId;
              if (!idField.IsNull && idField.IsValid)
              {
                using (Field fld = idField.Open(OpenMode.ForWrite) as Field)
                {
                  FieldEvalRecursive(fld);
                }
              }
            }
          }
          tab.RecomputeTableBlock(true);
          tab.RecordGraphicsModified(true);
        }
      }
      ed.Regen();
    }
    /// <summary>
    /// Функция рекурсивно обновляет связанные поля 
    /// </summary>
    /// <param name="fld"></param>
    public void FieldEvalRecursive(Field fld)
    {
      ObjectId[] idsChilds = fld.GetChildrenIds();
      foreach (ObjectId idChild in idsChilds)
      {
        using (Field fldChild = idChild.Open(OpenMode.ForWrite) as Field)
        {
          if (fldChild.EvaluationOption == FieldEvaluationOptions.Disable) {
            fldChild.EvaluationOption = FieldEvaluationOptions.Automatic;
          }
          FieldEvalRecursive(fldChild);
          fldChild.Evaluate();
        }
      }
      if (fld.EvaluationOption == FieldEvaluationOptions.Disable) {
        fld.EvaluationOption = FieldEvaluationOptions.Automatic;
      }
      fld.Evaluate();
    }
  }
}

[Евгений_22]

Александр Ривилис, Здравствуйте! Попробовал установить в 2019 автокад команду RECALCTABLE - не работает. После загрузки dll автокад выдает ошибку:

Не удалось загрузить сборку. Сведения об ошибке: System.IO.FileLoadException: Could not load file or assembly 'file:///C:\Program Files\Autodesk\1\ReCalcTable.dll' or one of its dependencies. Operation is not supported. (Exception from HRESULT: 0x80131515)
File name: 'file:///C:\Program Files\Autodesk\1\ReCalcTable.dll' ---> System.NotSupportedException: An attempt was made to load an assembly from a network location which would have caused the assembly to be sandboxed in previous versions of the .NET Framework. This release of the .NET Framework does not enable CAS policy by default, so this load may be dangerous. If this load is not intended to sandbox the assembly, please enable the loadFromRemoteSources switch. See http://go.microsoft.com/fwlink/?LinkId=155569 for more information.
at System.Reflection.RuntimeAssembly._nLoad(AssemblyName fileName, String codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
at System.Reflection.RuntimeAssembly.InternalLoadAssemblyName(AssemblyName assemblyRef, Evidence assemblySecurity, RuntimeAssembly reqAssembly, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
at System.Reflection.RuntimeAssembly.InternalLoadFrom(String assemblyFile, Evidence securityEvidence, Byte[] hashValue, AssemblyHashAlgorithm hashAlgorithm, Boolean forIntrospection, Boolean suppressSecurityChecks, StackCrawlMark& stackMark)
at System.Reflection.Assembly.LoadFrom(String assemblyFile)
at Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName)
at loadmgd()

Подскажите как это исправить?

[Александр Ривилис]

Сообщение от Евгений_22 Александр Ривилис, Здравствуйте! Попробовал установить в 2019 автокад команду RECALCTABLE - не работает. После загрузки dll автокад выдает ошибку: Не удалось загрузить сборку. Сведения об ошибке: System.IO.FileLoadException: Could not load file or assembly 'file:///C:\Program Files\Autodesk\1\ReCalcTable.dll' or one of its dependencies. Operation is not supported. (Exception from HRESULT: 0x80131515) File name: 'file:///C:\Program Files\Autodesk\1\ReCalcTable.dll' ---> System.NotSupportedException: An attempt was made to load an assembly from a network location which would have caused the assembly to be sandboxed in previous versions of the .NET Framework. This release of the .NET Framework does not enable CAS policy by default, so this load may be dangerous. If this load is not intended to sandbox the assembly, please enable the loadFromRemoteSources switch. See http://go.microsoft.com/fwlink/?LinkId=155569 for more information. at System.Reflection.RuntimeAssembly._nLoad(AssemblyName fileName, String codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks) at System.Reflection.RuntimeAssembly.InternalLoadAssemblyName(AssemblyName assemblyRef, Evidence assemblySecurity, RuntimeAssembly reqAssembly, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks) at System.Reflection.RuntimeAssembly.InternalLoadFrom(String assemblyFile, Evidence securityEvidence, Byte[] hashValue, AssemblyHashAlgorithm hashAlgorithm, Boolean forIntrospection, Boolean suppressSecurityChecks, StackCrawlMark& stackMark) at System.Reflection.Assembly.LoadFrom(String assemblyFile) at Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName) at loadmgd() Подскажите как это исправить?

Похоже вы не разблокировали файл, после скачивания его с сайта. Его нужно разблокировать:

[Darkside121]

Добрый вечер! возникла проблема, копирую две связанные таблицы из одного файла автокад 2019 в другой, связь в ячейках таблицы изменяется и мы видим ####, к тому же в редактировании формулы в поле ячейки вместо ссылки на таблицу с номером появляется =Table(0). Если править в каждой ячейке формулу руками, при сохранении всё слетает обратно к =Table(0). Может быть кто то сталкивался с таким и знает решение данной проблемы?

[Barmaley Bubusikin]

Сообщение от Darkside121 Добрый вечер! возникла проблема, копирую две связанные таблицы из одного файла автокад 2019 в другой, связь в ячейках таблицы изменяется и мы видим ####

А как копируешь? ctrl+c, ctrl+v? Попробуй копировать с базовой точкой

[DMSskop]

Если что в 2023 это повторяется из ранее созданных файлов и таблиц.

[Кулик Алексей aka kpblc]

https://autolisp.ru/2020/09/09/formulas-in-tables/ ?