[hetbonhe]

Добрый день, на просторах интернета давно нашел программу для подсчета количества блоков в выбранной области. Недавно перешел из работы с масштабом 100к1 в масштаб 1к1. А липс был изначально автором написан под маленький масштаб, подскажите какую строчку и куда в него вставить, чтобы увеличить масштаб создаваемой таблицы и текста в ней?

[kp+]

Сообщение от hetbonhe липс был изначально автором написан под маленький масштаб

Это не тот автор, у которого код зависит от частностей
Если я правильно понял, надо создать соответствующий стиль таблицы (в часности, с высотой текста 250 или 350) и установить его текущим.

[Ingpro]

Сообщение от hetbonhe увеличить масштаб создаваемой таблицы и текста в ней?

Задать масштаб для созданной таблицы, можно в коде прописать...

[stin9]

Это LEE-MACa (https://www.lee-mac.com/blockcounter.html) прога.
Проще всего - создать свой СТИЛЬ ТАБЛИЦЫ, сделать его активным, потом запускать "count"

* Можно в код (в самый верх) вставить строки:
(command "_.-INSERT" "d:/STiNG/DWGru/Table_4_count.dwg" nil) ; адрес файла со стилем таблиц
(setvar "CTABLESTYLE" "stDcount") ; назначить активный стиль таблицы stDcount

[hetbonhe]

Сообщение от Ingpro Задать масштаб для созданной таблицы, можно в коде прописать...

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

[Ingpro]

Сообщение от hetbonhe размер таблицы легко увеличивался, а размер текста оставался крошечным, а вот уже увеличить размер текста с помощью кода не выходило никак

Если таблица автокадовская, то при масштабировании всё увеличивается, в том числе и текст:

Код:

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

 ;; Функция, увеличивающая таблицу в 10 раз
(defun c:ScaleTable10 ( / ent scale)
    (setq ent (car (entsel "Выберите таблицу: ")))
  (if ent
    (progn
      ;; коэффициент масштабирования
      (setq scale 10.0) ; изменить на нужный
            (setq inspt (cdr (assoc 10 (entget ent))))
            (command "_.SCALE" ent "" inspt scale)
          )
      )
  (princ)
)

Выбрать таблицу и готово.
Можно прикрутить к основному коду.