[aspid132]

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

[zenon]

У тебя практически во всех ячейках текстовый формат данных, вот и не считает

[aspid132]

Менял формат данных, все равно не пересчитывает

[zenon]

Создавай заново, и на будущее используй шрифты SHX, а не TTF.

[aspid132]

А других способов нет? И получается, что из-за шрифта не считает? У меня есть другие таблицы с шрифтом, которые все нормально считают. Кстати, не люблю им пользоваться, но приходится((

[Nikolay 2]

ZWcad с таблицами созданными в АСade не дружит ИМХО, имеется отрицательный опыт попытаться сохранить файл с таблицей АСad, гробит напрочь, несколько файлов даже не поддались восстановлению

[VoVoRoNaLe]

updatefield

[aspid132]

updatefield не работает

[skif58]

У меня работает только так: выделить ячейку - ПКМ контекстное меню - Вставить - Редактировать поле - и сразу Ок

[VoVoRoNaLe]

FieldEval = 31
RegenAll

[skif58]

Тоже пробовал - не помогает.

[aspid132]

Сообщение от skif58 У меня работает только так: выделить ячейку - ПКМ контекстное меню - Вставить - Редактировать поле - и сразу Ок

Помогает. Хоть так, тоже способ.

[VoVoRoNaLe]

Command: _updatefield
Select objects: 1 found

Select objects:

31 field(s) found.
0 field(s) updated.

Ищите почему!

[skif58]

Сообщение от VoVoRoNaLe Ищите почему!

Вообще то с этого все и началось.

aspid132, а по тексту ЭТО не помогло?

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

По-моему, формулы вбивались "впрямую" в ячейки. Если их создавать "длинным" путем, через вставку поля,- то вроде все нормально.

[skkkk]

Может кто знает, есть ли возможность в кадовских таблицах присвоить каждой ячейке уникальный адрес, который бы не менялся при удалении/добавлении строк/столбцов (переменная, может, есть какая)? По аналогии с excell (либо там ссылки обновляются - не знаю точно того алгоритма). Дело в том, что поле, ссылающееся на ячейку, допустим, A3 в таблице слетает (2008), либо принимает значение ячейки A4 (2010) при удалении строки 2. А мне нужно, чтобы поле ссылалось на конкретную ячейку.

[aspid132]

skif58, с текстом помогло. Но был найден и другой способ: заблокировать, а потом разблокировать слой на котором находится текст))
Может кто подскажет, появилась еще проблема. При копировании таблиц или при очередном открытии файла в таблицах в ранее чистый ячейках появляются какие-то знаки, которых там не должно быть.

[pungarov]

Добрый день создал кучу таблиц в файле AutoCAD 2006 завязал их с полями, вычисления, вообщем работало на ура просто сказка.
После установки AutoCAD 2010 лицензионного в файлах АutoCAD перестали обновлятся поля в некоторых таблицах.
Переделывать таблицы - долго и то не факт что будут работать.
Значение переменной fieldeval = 31.
Самое интересное, что в тексте поля обновляются, а вычисления типа
2+3 = 1 приходится каждый раз заходить нажимаешь редактировать поле - там вычисление правильное. Нажимаешь ок и обновляется.
Как решить данную проблему ? Может у кого есть лисп хотя бы типа каждую ячейку обновляешь поле.

[kp+]

Есть команда принудительного обновления всех полей объекта (объектов). Попробуй _updatefield, потом выбрать все (или то, что надо)

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

А сервис-пак на 2010 установлен?

[pungarov]

kp+ _updatefield не помогает
Кулик Алексей aka kpblc - Сервис Пак установлен
Файл с табличкой прикреплён.

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

Попробовал погонять таблицу. Странное поведение: если войти в редактирование поля, и там по новой создать формулу (нажав по ходу дела кнопку [Evaluate]), то все начинает считаться корректно.
Программного решения придумать не удалось.

[AlexV]

И у меня такая ж хрень.. Запаривает сия невзгода.. Перебиваешь формулу по-новой, - работает..

[pungarov]

Ну пока что я решаю данную проблемку через одно место и долго. Выделяю ячейку, кликаю правой кнопонькой, выбираю редактировать поле, потом кликаю на кнопоньку Вычислить и кликаю ОК. Но проблема, что так нужно делать во всех формулах. Мо на VBA сделать перебор всех полей в ячейках таблицы и выполнение функцию Вычислить.
Сколько не искал решения, пока его нету. Уже разобрался откуда поля берутся, но они подвязаны с dll, так что понять, где проблема зарыта мне неясно.

[Genf]

Попытаюсь возродить тему - тот же косяк в 2013 версии. До этого ни разу нигде не встречал. Есть ли какое нибудь решение?

[AlexV]

Сообщение от Genf Попытаюсь возродить тему - тот же косяк в 2013 версии. До этого ни разу нигде не встречал. Есть ли какое нибудь решение?

Нет, не найдено. Косяк таинственный, непонятно с чем связанный, т.к. в одном файле может все нормально обновляться, в другом - нет. Много раз уже и лисперов форумских просил посмотреть, что можно сделать, - никто не отозвался. (ну, хотя бы какой-нибудь имитатор прохода по ячейкам таблицы с заходом в редактор поля и нажатием "ОК"..)

[Genf]

Самое интересное - те поля, которые связаны со свойством чертежа для заполнения штампа работают без проблем, а вот именно те, которые в таблицах работают косячно. Из-за этого спецификации выходят неверными - приходится все проверять перед печатью.

[AlexV]

Сообщение от Genf Самое интересное - те поля, которые связаны со свойством чертежа для заполнения штампа работают без проблем, а вот именно те, которые в таблицах работают косячно. Из-за этого спецификации выходят неверными - приходится все проверять перед печатью.

Если штамп - таблица, то не факт. Ссылки на свойства документа в ячейках тоже имеют свойство глючить. Причем, иногда - безнадежно, то бишь в редактор поля зашел, отредактировал, окей нажал, - вроде все нормально. Файл сохранил, закрыл.. Открыл, - поле показывает не то значение. Я теперь в ячейку таблицы вставляю блок, а в блоке - ссылку на поле. Если с полями все нормально, тогда обновляется автоматом, если нет - захожу в блок, меняю там, - меняется во всех штампах..

[Genf]

Штамп сделан в виде блока - без использования таблиц. Хотя и вариант с таблицей где то валяется.

Дело ясное, что дело темное с этими полями.

[pungarov]

Вроде решилась проблема с изменением форматов таблицы. Тоесть нужно изменить формат с текстового на десятичное число, должно помочь.

----- добавлено через ~6 мин. -----
AlexV - Точно, там стоит тестовый формат текста, нужно заменить на десятичное число. Единственный ньюанс, нужно все же один раз редактировать поле, что бы его "разглючило" после этого будет работать корректно. В случае с таблицей сверху, просто одну формулу разглючил остальные скопировал с этой разглюченой.

----- добавлено через ~7 мин. -----
конфликт форматов

[AlexV]

Сообщение от pungarov Вроде решилась проблема с изменением форматов таблицы. Тоесть нужно изменить формат с текстового на десятичное число, должно помочь. ----- добавлено через ~6 мин. ----- AlexV - Точно, там стоит тестовый формат текста, нужно заменить на десятичное число. Единственный ньюанс, нужно все же один раз редактировать поле, что бы его "разглючило" после этого будет работать корректно. В случае с таблицей сверху, просто одну формулу разглючил остальные скопировал с этой разглюченой. ----- добавлено через ~7 мин. ----- конфликт форматов

То бишь формат ячеек, на которые ссылается поле, должен быть числовым? Вроде обычно так и делаешь, хотя все возможно.. Но косяки не только с "числовыми" и формульными полями, - ссылки на ячейки таблицы и свойства документа тоже зачастую глючат..

[zRaFiNaDz]

Всем привет!
В-общем есть два файла. Первый образец, где все считается в таблицах и ссылках на ячейки, взял первый файл как образец, скопировал как новый проект, через "найти и заменить" поменял штампы, наименование и т.д по тексту.
Текст (МТЕКСТ) форматированный с абзацем и междустрочным интервалом. После того как зашел в текст слетело форматирование (gost_tybe B) - именно это я думаю и есть причина, и после этого даже если вбить в ячейку с формулой "=2+2" она не обновляет значение.
До этого с теми же форматированиями и стилями текста и таблиц создал и правил +100500 файлов - и такого бага никогда не было, все считалось без проблем.
Автокад сейчас 2017 как всегда с СПДС Модулем. Грешил на лисп "Prokat" с этого сайта, но даже после сноса его, всех настроек, чистки реестра и переустановки Ватокада, проблема осталась.
Надеюсь может кто-то глянет и возможно найдет причину бага.
Заранее спасибо!
P.D. Чертежи очищать не стал, команда _updatefield - не помогает, при аудите - ошибок нет.

[FRAER]

Не создавая новую тему, вопрос задам здесь!
Есть две таблицы в одной объемы работ в другой материалы на эти работы.
Эти таблицы идут парой из листа в лист.
Когда копирую две таблицы, та в которой есть ссылка на ячейку сохраняет путь к таблице и не изменяет ее при копировании.
Это не сразу замечаешь, а только когда понимаешь что при изменении объемов кол-во материала не меняется. Как быть?

[Искромэн]

Делать таблицы через ексель и вставлять как оле объекты

[FRAER]

Не вариант. Не хочется.
Мне надо понять почему здесь так!

[Искромэн]

Потому что автодоски делали таблицы через известное место.

[FRAER]

Про такую мелочь забыли? Думаю где то в настройках должно быть что то)))))

[Искромэн]

К сожалению, это так, ссылки видимо привязываются в файле, а в другом уже слетают, а еще эти таблицы жутко тормозящие (особенно если есть операция деления). Сам быстро это просек и пересел на ексель)

[FRAER]

Выложите файлик автокада с таблицей эксель!
Погляжу может и понравится.

[skkkk]

В Excel выделить диапазон ячеек, Ctrl+C, в AutoCAD Ctrl+V. Получится

Сообщение от FRAER файлик автокада с таблицей эксель!

[FRAER]

А как сделать что бы таблица была не белой?

Что бы отображалась как обычна автокадовская!
И разве если ее скопировать в паре с другой таблицей в одном файле автокада ссылки между ячейками согласуются?

[Искромэн]

Вот

----- добавлено через ~1 мин. -----
Ну вы можете в екселе цветом заливки управлять и вставлять как захотите, потом чтобы отредактировать выбираете таблицу и "редактировать оле объект"

[FRAER]

А теперь помучаю вопросиками:
- высота шрифта в шапке таблицы - строго 5мм
- высота текста в остальной части - 3,5мм
- высота строк строго не менее 8мм

Шрифт отличается - я пользуюсь ГОСТ тип А. Шрифт в таблице отличается от самого чертежа.

[Искромэн]

Заходим в редактор оле объекта и меняем как удобно вам)
(Правой кнопкой по таблице)

[FRAER]

Что то у меня там только высота текста и тип!

[Искромэн]

Я про это говорю, а потом в экселе делайте как захотите)
После нажатия опен оле открывается лист экселя

[DMS-chiii]

Шел 2018 год а таблицы все не пересчитывает. Как видно из прилагаемых файлов и скрина, значение в таблице не верное. Оно останется не верным т. е. вообще не пересчитается если попробовать изменить цифры в таблице уже заданный ячеек. Попытка скопировать ячейку в другое место и изменить значение цифр там, тоже не даст правильного результата. Только если войти в ячейку и скопировать текст из нее, тогда математические формулы заработают. Почему так получается и как этого избежать?

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

Действительно в 1 файле всё считается, во 2 не считается! Может это проявление санкций? Где наши хвалёные программисты? Вся страна мучается с этой проблемой!

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

Нашёл способ решения!
1) Стереть знак "=" в формуле
2) Выйти из ячейки
3) Зайти в ячейку
4) Написать знать "="
5) Выйти из ячейки
Всё это можно запрограммировать в VBA. Правда предварительно надо запомнить высоты строк таблицы, так как при появлении текста формул на шаге 2 меняется высота строк таблицы. Когда сделаю програмку в Excel напишу вам об этом!

[VVA]

Сообщение от МишаИнженер Вся страна мучается с этой проблемой!

Заметил одну особенность: Если скопировать значение ячейки с формулой в буфер, вбить туда просто текст, вновь зайти в редактор и вставить значение ячейки из буфера, то она начинает работать.
Т.е нужно заменить значение ячейки текстом, а затем опять формулой

----- добавлено через ~7 мин. -----

Сообщение от МишаИнженер Где наши хвалёные программисты?

Взял из этой темы LISP. Подготовка подосновы пару функций. Написал команду, которая в ячейках с формулами:
- запоминает значение формулы ячейки
- заполняет значение пустым текстом
- заполняет значение запомненной формулой
Вроде после этого формулы "оживают" (проверено на файлах в #15, #6, #4)

Код:

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

(defun C:ReTable (/ Doc ss mtlist)
  (vl-load-com)
  (setq Doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark Doc)
  (if (setq ss (ssget "_:L" '((0 . "ACAD_TABLE"))))
    (progn
      (foreach obj (mapcar (function vlax-ename->vla-object)
                           (vl-remove-if
                             (function listp)
                             (mapcar (function cadr) (ssnamex ss))
                           ) ;_ end of vl-remove-if
                   ) ;_ end of mapcar
        (and (vlax-property-available-p Obj 'RegenerateTableSuppressed)
             (vla-put-regeneratetablesuppressed Obj :vlax-true)
        ) ;_ end of and
        (setq mtlist nil)
        (vlax-for item
                  (vla-item
                    (vla-get-blocks DOC)
                    (cdr (assoc 2 (entget (vlax-vla-object->ename obj)))
                    ) ;_ end of cdr
                  ) ;_ end of vla-item
          (if (and (vlax-write-enabled-p item)
                   (vlax-property-available-p item 'TextString)
              ) ;_ end of and
            (progn
              (setq mtlist
                     (cons
                       (list
                         (mip_MTEXT_Unformat (vla-get-textstring item))
                         (bg:FieldCode (vlax-vla-object->ename item))
                       ) ;_ end of list
                       mtlist
                     ) ;_ end of cons
              ) ;_ end of setq
            ) ;_ end of progn
          ) ;_ end of if
        ) ;_ end of vlax-for
        (vl-catch-all-apply
          '(lambda (col row / i j tmp lock)
             (setq j '-1)
             (repeat row
               (setq j (1+ j)
                     i '-1
               ) ;_ end of setq
               (repeat col
                 (setq i (1+ i))
                 (if (and (= (vla-getcelltype Obj j i) actextcell)
                          (not (zerop (vla-getfieldid obj j i)))
                     ) ;_Add VVA 2014-11-06
                   (progn
                     (setq lock (vla-getcellstate obj j i)) 
                     (vla-setcellstate obj j i 0) 
                     (if (setq tmp (assoc (mip_MTEXT_Unformat
                                            (vla-gettext Obj j i)
                                          ) ;_ end of mip_MTEXT_Unformat
                                          mtlist
                                   ) ;_ end of assoc
                         ) ;_ end of setq
                       (progn
                         (vla-settext Obj j i "")
                         (vla-settext Obj j i (cadr tmp))
                       ) ;_ end of progn
                     ) ;_ end of if
                     (vla-setcellstate obj j i lock)
                   ) ;_ end of progn
                 ) ;_ end of if
               ) ;_ end of repeat
             ) ;_ end of repeat
           ) ;_ end of lambda
          (list
            (vla-get-columns Obj)
            (vla-get-rows Obj)
          ) ;_ end of list
        ) ;_ end of VL-CATCH-ALL-APPLY
        (and (vlax-property-available-p Obj 'RegenerateTableSuppressed)
             (vla-put-regeneratetablesuppressed Obj :vlax-false)
        ) ;_ end of and
        (vla-recomputetableblock Obj :vlax-true)
      ) ;_ end of foreach
    ) ;_ end of progn
  ) ;_ end of if
  (vla-endundomark Doc)
  (command "_.Regenall")
  (princ)
) ;_ end of defun
(defun mip_MTEXT_Unformat (Mtext / text Str)
;;;http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=44&TID=20992
  (setq Text "")
;;;  (if (wcmatch (strcase Mtext) "\\PI-#*,\\PT*") ;;_ñïèñîê
;;;    (setq Mtext (substr Mtext (+ 2 (vl-string-search ";" Mtext)))))
  (while (/= Mtext "")
    (cond
      ((wcmatch (strcase (setq Str (substr Mtext 1 2))) "\\[\\{}]")
       (setq Mtext (substr Mtext 3)
             Text  (strcat Text Str)
       ) ;_ end of setq
      )
      ((wcmatch (substr Mtext 1 1) "[{}]")
       (setq Mtext (substr Mtext 2))
      )
      ((wcmatch (strcase (setq Str (substr Mtext 1 2))) "\\[LO`~]")
       (setq Mtext (substr Mtext 3))
      )
      ((wcmatch (strcase (substr Mtext 1 8)) "\\FSYMBOL")
;;;Add VVA remove Symbol
       (setq Mtext (substr Mtext
                           (+ 2
                              (cond ((vl-string-search "}" Mtext))
                                    ((vl-string-search ";" Mtext))
                              ) ;_ end of cond
                           ) ;_ end of +
                   ) ;_ end of substr
       ) ;_ end of setq
      )
      ((wcmatch (strcase (substr Mtext 1 2)) "\\[ACFHQTW]")
       (setq Mtext (substr Mtext (+ 2 (vl-string-search ";" Mtext))))
      )
      ((wcmatch (strcase Mtext) "\\PI-#*,\\PT*")
;;;VVA 2011-01-20
       (setq Mtext (substr Mtext (+ 2 (vl-string-search ";" Mtext))))
      )
      ((wcmatch (strcase (substr mtext 1 4)) "\\PQ[CRJD],\\PTZ")
;;;Add by KPblC
       (setq mtext (substr mtext (+ 2 (vl-string-search ";" mtext))))
      )
      ((wcmatch (strcase (substr mtext 1 3)) "\\PX")
;;;àáçàö è ìåæäóñòðî÷íûé èíòåðâàë \\PX[QITSBA]
       (setq mtext (substr mtext (+ 2 (vl-string-search ";" mtext))))
      )
      ((wcmatch (strcase (substr Mtext 1 2)) "\\P")
       (if (or
             (zerop (strlen Text))
             (= " " (substr Text (strlen Text)))
             (= " " (substr Mtext 3 1))
           ) ;_ end of or
         (setq Mtext (substr Mtext 3))
         (setq Mtext (substr Mtext 3)
               Text  (strcat Text " ")
         ) ;_ end of setq
       ) ;_ end of if
      )
      ((wcmatch (strcase (substr Mtext 1 2)) "\\S")
       (setq Str   (substr Mtext 3 (- (vl-string-search ";" Mtext) 2))
             Text  (strcat Text (vl-string-translate "#^\\" "/^\\" Str))
             Mtext (substr Mtext (+ 4 (strlen Str)))
       ) ;_ end of setq
      )

      (t
       (setq Text  (strcat Text (substr Mtext 1 1))
             Mtext (substr Mtext 2)
       ) ;_ end of setq
      )
    ) ;_ end of cond
  ) ;_ end of while
  Text
) ;_ end of defun
(defun bg:FieldCode (ent / foo elst xdict dict field str)
  ;; credits gile gc:FieldCode
  (defun ObjIdxStr (fld / pos)
    (setq pos (vl-string-search "ObjIdx " (cdr (assoc 2 fldId)) 0))
    (substr fld
            (1+ pos)
            (- (vl-string-search ">%" fld pos) pos)
    ) ;_ end of substr
  ) ;_ end of defun
  (defun foo (field str / pos fldID objID)
    (setq pos 0)
    (if (setq pos (vl-string-search "\\_FldIdx " str pos))
      (while (setq pos (vl-string-search "\\_FldIdx " str pos))
        (setq fldId (entget (cdr (assoc 360 field)))
              field (vl-remove (assoc 360 field) field)
        ) ;_ end of setq
        (setq
          str (strcat
                (substr str 1 pos)
                (if (setq objID (cdr (assoc 331 fldId)))
                  (vl-string-subst
                    (strcat "ObjId " (bg:GetObjectIDString objID))
                    (ObjIdxStr (cdr (assoc 2 fldId)))
                    (cdr (assoc 2 fldId))
                  ) ;_ end of vl-string-subst
                  (foo fldId (cdr (assoc 2 fldId)))
                ) ;_ end of if
                (substr str (1+ (vl-string-search ">%" str pos)))
              ) ;_ end of strcat
        ) ;_ end of setq
      ) ;_ end of while
      str
    ) ;_ end of if
  ) ;_ end of defun
  (setq ent (bg:conv-ent-to-ename ent))
  (setq elst (entget ent))
  (if (vlax-property-available-p
        (vlax-ename->vla-object ent)
        'Textstring
      ) ;_ end of vlax-property-available-p
    (cond ((= (cdr (assoc 0 elst)) "MULTILEADER")
           (setq str (cdr (assoc 304 elst)))
          )
          ((and
                (member (cdr (assoc 0 elst)) '("ATTRIB"))
                (member '(101 . "Embedded Object") elst)
           ) ;_ end of and
           (setq str
                  (apply
                    'strcat
                    (append
                      (bg:massoc 3 elst)
                      (bg:massoc 1 (member '(101 . "Embedded Object") elst))
                    ) ;_ end of append
                  ) ;_ end of apply
           ) ;_ end of setq
          )

          ((member (cdr (assoc 0 elst)) '("TEXT" "MTEXT" "ATTRIB"))
           (setq str (apply 'strcat
                            (append (bg:massoc 3 elst) (bg:massoc 1 elst))
                     ) ;_ end of apply
           ) ;_ end of setq
          )
          (t
           (setq str (vla-get-textstring (vlax-ename->vla-object ent)))
          )
    ) ;_ end of cond
  ) ;_ end of if
  (if (and
        (member (cdr (assoc 0 elst))
                '("ATTRIB" "MTEXT" "TEXT" "MULTILEADER")
        ) ;_ end of member
        (setq xdict (cdr (assoc 360 elst)))
        (setq dict (dictsearch xdict "ACAD_FIELD"))
        (setq field (dictsearch (cdr (assoc -1 dict)) "TEXT"))
      ) ;_ end of and
    (setq str (foo field (cdr (assoc 2 field))))
  ) ;_ end of if
  str
) ;_ end of defun

(defun bg:conv-ent-to-ename (ent / ret)
  (cond
    ((= (type ent) 'vla-object) (vlax-vla-object->ename ent))
    ((= (type ent) 'ename) ent)
    ((= (type ent) 'str) (handent ent))
    ((and (= (type ent) 'list)
          (= (type (setq ret (car ent))) 'ename)
     ) ;_ end of and
     ret
    )
    ((= (type ent) 'list) (cdr (assoc -1 ent)))
    (t nil)
  ) ;_ end of cond
) ;_ end of defun
(defun bg:massoc (key alist)
  (mapcar 'cdr
          (vl-remove-if-not
            (function (lambda (x) (= key (car x))))
            alist
          ) ;_ end of vl-remove-if-not
  ) ;_ end of mapcar
) ;_ end of defun
(defun bg:GetObjectIDString ( obj / *util* )
  (if (eq (type obj) 'ENAME)
    (setq obj (vlax-ename->vla-object obj))
    )
  (setq *util* (vla-get-Utility (vla-get-ActiveDocument (vlax-get-acad-object))))
  (if  (vlax-method-applicable-p *util* 'GetObjectIdString)
    (vla-GetObjectIdString *util* obj :vlax-false)
    (itoa (vla-get-ObjectId obj))
  )
 )

----- добавлено через 29 сек. -----
Обновил код. Добавил пропущенную Ф-цию

[VVA]

МишаИнженер, Решение выложил а этой теме Не обновляются поля (вычисления) в таблицах AutoCAD 2006,2008,2010

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

Темы объединены

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

Сделал программу для обновления формул в таблицах! Проверял, всё работает! Теперь проверьте сами: скачайте файл zip и запустите Excel (библиотеки в Excel настроены на AutoCAD2013, для настройки на другие версии AutoCAD запускайте команду Tools->References в VBA Excel). Вопрос модератору: почему нельзя загружать файлы xlsm? Это выглядит не современно! Вы отстаете от мировых тенденций!

[doctorraz]

Offtop:

Сообщение от МишаИнженер почему нельзя загружать файлы xlsm? Это выглядит не современно!

может потому что загрузка любых исполняемых файлов на адекватные ресурсы запрещена?

[Сергей812]

Сообщение от МишаИнженер библиотеки в Excel настроены на AutoCAD2013, для настройки на другие версии AutoCAD запускайте команду Tools->References в VBA Excel

после отладки перейдите на позднее связывание, отключив референс на акад и заменяя типы данных акада на object. Этим снимете явную зависимость от версии.

Сообщение от МишаИнженер Вопрос модератору: почему нельзя загружать файлы xlsm?

Задавался уже этот вопрос - ответ был типа: нет существенного спроса)

Сообщение от doctorraz может потому что загрузка любых исполняемых файлов на адекватные ресурсы запрещена?

и давно файлы Excel c макросами *.xlsm стали исполняемыми?

[doctorraz]

Сообщение от Сергей812 и давно файлы Excel c макросами *.xlsm стали исполняемыми?

так же, как и vbs и bat
уязвимость

[Сергей812]

Сообщение от doctorraz так же, как и vbs и bat уязвимость

только vbs и bat запускается на уровне операционной системы кликом пользователя, а xlsm - надо загрузить в excel сначала, и еще преднамеренно поставить выполнение макросов без подтверждения (что уже требует определенного уровня от пользователя). И что мешает сохранить в старый формат xls, который разрешен к загрузке тут на форуме?

[doctorraz]

тем не менее на многих форумах и других ресурсах так. не мы решаем.
ну и правила хорошего тона подразумевают все же файлы упаковывать

[AlexV]

Сообщение от VVA Взял из этой темы LISP. Подготовка подосновы пару функций. Написал команду, которая в ячейках с формулами: - запоминает значение формулы ячейки - заполняет значение пустым текстом - заполняет значение запомненной формулой Вроде после этого формулы "оживают"

Да, код работает (небыстро, правда), спасибо..

Сообщение от МишаИнженер Сделал программу для обновления формул в таблицах! Проверял, всё работает! Теперь проверьте сами: скачайте файл zip и запустите Excel (библиотеки в Excel настроены на AutoCAD2013, для настройки на другие версии AutoCAD запускайте команду Tools->References в VBA Excel)

Автокад 2016. Работает, но не без косяков. Фокус на автокад не передается, при переключении на окно акада вручную - не всегда доходит до выбора объекта (иногда программа пролетает мимо и сразу вешает окошко "обработано 0 объектов.." и т.д.
Ну и время действия - пока не понял, отчего - но очень сильно различается. Одна табличка обрабатывается то 5 секунд, то :

[doctorraz]

Сообщение от МишаИнженер Сделал программу для обновления формул в таблицах!

если ты не против...
перед началом работы с таблицами включи подавление регенерации
objТабл.RegenerateTableSuppressed = True
а по окончании выключи
objТабл.RegenerateTableSuppressed =False
должно побыстрее работать..
------
недостаточно активировать окно АК objAcadDoc.Activate
надо ему еще фокус передать
AppActivate objПриложениеAutoCAD.Caption
--------------
ну и последнее, коль собираешь таблицы селсетом, примени фильтр выбора именно таблиц ("Acad_Table"), что бы потом не проверять является ли объект набора таблицей.

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

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/ ?