Безкоштовні LISP-скрипти для AutoCAD і GstarCAD

Що є в пакеті

Одинадцять скриптів AutoLISP (файли .lsp), які прискорюють щоденну роботу з планами: підрахунок довжин і площ, підписування площ, поділ ліній на відрізки, нумерація елементів, підрахунок символів і експорт текстів із креслення в Excel. Працюють в AutoCAD і GstarCAD у Windows, безкоштовні й не потребують установлення нічого, крім самого файлу.

⬇ Завантажити всі скрипти (ZIP) або завантажте окремий файл з описів нижче.

Як завантажити скрипт

Одноразово (до закриття програми):

1. Збережіть файл .lsp у постійній папці, наприклад C:\CAD\Scripts.
2. Введіть команду APPLOAD (або просто перетягніть файл .lsp на відкрите креслення).
3. Виберіть файл і натисніть Завантажити (Load).
4. Введіть назву команди скрипта (наприклад SUMLINES) і натисніть Enter.

Назавжди в GstarCAD:

1. Введіть APPLOAD.
2. Натисніть піктограму валізи (Набір автозавантаження / Startup Suite).
3. Натисніть Додати (Add) і виберіть файл .lsp.
4. Закрийте вікна й перезапустіть GstarCAD — скрипт завантажуватиметься під час кожного запуску.

Назавжди в AutoCAD:

1. Введіть APPLOAD.
2. У розділі Набір автозавантаження (Startup Suite) натисніть Вміст… (Contents…).
3. Натисніть Додати… (Add…), виберіть файл .lsp і закрийте вікна.
4. Якщо AutoCAD покаже попередження безпеки, виберіть Завжди завантажувати (Always Load) або додайте папку зі скриптами до довірених розташувань (Параметри → Файли → Довірені розташування).

Корисно знати:

• Команда — це назва, вказана біля скрипта, а не завжди назва файлу. Регістр літер не має значення.
• Повідомлення скриптів у командному рядку англійською мовою (наприклад Select objects, Total length).
• Зміни в кресленні скасовуються звичайною командою Скасувати (Ctrl+Z). Перед роботою з важливим кресленням зробіть його копію.
• Коли скрипт пропонує вибір у квадратних дужках, наприклад [Length/Count], достатньо ввести першу літеру (L або C) або клацнути опцію в командному рядку. Enter вибирає значення, вказане в <…>.
• Опції бувають двох видів: запитання під час запуску (відповідаєте в командному рядку) і налаштування у файлі — змінюєте їх один раз, відкривши файл .lsp у Блокноті й відредагувавши значення в блоці ;; ---- SETTINGS ---- (T = так, nil = ні). Після зміни файлу завантажте його знову через APPLOAD.

SUMLINES — сума довжин ліній

⬇ SumLines.lsp

Підсумовує довжину виділених ліній і поліліній. Знадобиться для швидкого вимірювання довжини кабелів, труб, бордюрів чи покрівельних елементів.

1. Введіть SUMLINES.
2. Виділіть лінії та полілінії (рамкою або клацанням).
3. Натисніть Enter — результат з'явиться у вікні та в командному рядку, а також потрапить у буфер обміну, тож його можна одразу вставити в Excel (Ctrl+V).

Результат — в одиницях креслення (креслення в мм → результат у мм), з десятковою комою. Дуги, сплайни та інші об'єкти під час виділення ігноруються.

Опції

Налаштування у файлі:

• showAlert — T показує вікно з результатом; nil виводить результат лише в командному рядку (без натискання «OK» після кожного вимірювання).
• copyToClip — T копіює результат у буфер обміну; nil залишає буфер без змін.
• decimals — кількість знаків після коми (типово 2).

SUMAREA — сума площ

⬇ SumArea.lsp

Підсумовує площі виділених замкнених об'єктів: поліліній, кіл, еліпсів, регіонів і сплайнів. Дає змогу порахувати, наприклад, площу кількох приміщень одночасно.

1. Введіть SUMAREA.
2. Виділіть об'єкти.
3. Натисніть Enter — результат з'явиться у вікні та в командному рядку й потрапить у буфер обміну.

Незамкнені полілінії пропускаються: скрипт повідомляє їх кількість і дескриптори (Handle), щоб їх легко було знайти. Результат — у квадратних одиницях креслення (креслення в см → см²).

Опції

Налаштування у файлі:

• showAlert — T показує вікно з результатом; nil виводить результат лише в командному рядку.
• copyToClip — T копіює результат у буфер обміну; nil залишає буфер без змін.
• decimals — кількість знаків після коми (типово 2).

AREALABELS — підписи площ з експортом в Excel

⬇ AreaLabels.lsp

Підписує кожну виділену замкнену полілінію назвою її шару та площею в м², а суми площ для кожного шару зберігає у файл Excel або CSV. Типове застосування: контури приміщень або видів підлогового покриття, кожен вид на окремому шарі — і одразу готова експлікація площ.

1. Введіть AREALABELS.
2. Виділіть замкнені полілінії й натисніть Enter — у центрі кожної з'явиться підпис «шар / площа m2» на шарі AREA_LABELS.
3. У вікні збереження виберіть папку, назву та формат файлу із сумами (типово поруч із кресленням, назва креслення + _areas). Скасування вікна = підписи без експорту.

Примітки:

• Під час кожного запуску скрипт видаляє всі тексти із шару AREA_LABELS в усьому кресленні й створює підписи заново — не розміщуйте на цьому шарі інших текстів.
• Формат .xlsx/.xls потребує встановленого Excel; без нього скрипт збереже файл CSV з тією самою назвою (крапка з комою, десяткова кома).
• Підпис стоїть у центрі габаритного прямокутника полілінії — для фігур у формі «L» він може опинитися поза контуром.

Опції

Під час запуску ви вибираєте лише розташування, назву та формат файлу (.xlsx, .xls або .csv). Налаштування у файлі:

• textSize — висота тексту підписів в одиницях креслення (типово 40).
• areaDivisor — перерахунок площі в м² залежно від одиниць креслення: сантиметри → 10000.0 (типово), міліметри → 1000000.0, метри → 1.0.
• exportFile — T зберігає суми у файл; nil лише вставляє підписи, без вікна збереження.
• fileSuffix — закінчення пропонованої назви файлу (типово _areas). Файл має стовпці symbol (шар) і area (площа в м²).

LINELABELS — підписи довжин з експортом в Excel

⬇ LineLabels.lsp

Підписує кожну виділену лінію або полілінію назвою її шару та довжиною в метрах, а суми довжин і кількість об'єктів для кожного шару зберігає у файл Excel або CSV — наприклад, довжини трас інженерних мереж за видами.

1. Введіть LINELABELS.
2. Виберіть, які об'єкти підписати (див. Опції).
3. Виділіть об'єкти й натисніть Enter — підписи з'являться посередині кожного об'єкта на шарі LENGTH_LABELS.
4. У вікні збереження виберіть папку, назву та формат файлу. Файл має стовпці symbol (шар), length (довжина в м) і count (кількість об'єктів).

Примітки:

• Під час кожного запуску скрипт видаляє всі тексти із шару LENGTH_LABELS.
• Формат .xlsx/.xls потребує Excel; без нього створюється CSV з тією самою назвою.

Опції

Під час запуску:

• Об'єкти для підпису [Lines/Polylines/All] — Lines: лише лінії; Polylines: лише полілінії (підписується вся довжина полілінії); All: і ті, й інші. Останній вибір запам'ятовується до закриття програми.
• Файл із сумами — розташування, назва та формат (.xlsx, .xls, .csv); скасування = без експорту.

Налаштування у файлі:

• textSize — висота тексту підписів (типово 40).
• lengthDivisor — перерахунок довжини в метри: сантиметри → 100.0 (типово), міліметри → 1000.0, метри → 1.0.
• defaultMode — вибір об'єктів, що пропонується під час першого запуску: "Lines", "Polylines" або "All" (типово).
• exportFile — T зберігає суми у файл; nil лише вставляє підписи.
• fileSuffix — закінчення пропонованої назви файлу (типово _lengths).

SPLITINTOLINES — поділ ліній на відрізки

⬇ SplitIntoLines.lsp

Ділить виділені лінії та полілінії на відрізки заданої довжини або на вказану кількість рівних частин. Знадобиться, наприклад, для розкладки листів металу чи мембрани по довжині, поділу траси на монтажні ділянки або розмічення кроку стовпчиків.

1. Введіть SPLITINTOLINES.
2. Виділіть лінії та полілінії, натисніть Enter.
3. Виберіть спосіб поділу й вкажіть довжину відрізка або кількість частин (див. Опції).
4. Кожен об'єкт буде замінено відрізками.

Примітки:

• Відрізки йдуть уздовж форми полілінії — злами та дуги зберігаються. Вони переймають шар, колір, тип і товщину лінії оригіналу.
• Об'єкти, коротші за вказану довжину, пропускаються.
• Старі полілінії (тип POLYLINE) не підтримуються — спершу перетворіть їх командою CONVERTPOLY.
• Увесь поділ скасовується однією командою Скасувати.

Опції

Під час запуску (останні відповіді запам'ятовуються до закриття програми — Enter повторює попередні):

• Спосіб поділу [Length/Count] — Length: відрізки сталої довжини, останній (залишок) коротший; Count: вказана кількість рівних відрізків (щонайменше 2).
• Довжина відрізка (лише Length) — в одиницях креслення; можна ввести число або вказати дві точки на кресленні.
• Напрямок відміряння [Start/End/Pick] (лише Length) — визначає, з якого боку опиниться коротший залишок. Start: від початку об'єкта (залишок у кінці); End: від кінця (залишок на початку); Pick (типово): для кожного об'єкта по черзі ви клацаєте біля кінця, від якого має починатися відміряння, — об'єкт при цьому підсвічено.

Налаштування у файлі:

• deleteOriginal — T видаляє об'єкт після поділу (типово); nil залишає оригінал під відрізками.
• outputType — "AUTO" (типово): прямий відрізок стає лінією, відрізок зі зламом або дугою — полілінією; "PLINE": кожен відрізок полілінії є полілінією. Лінії завжди дають лінії.

COUNTSYMBOLS — підрахунок символів у таблицю

⬇ CountSymbols.lsp

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

1. Введіть COUNTSYMBOLS.
2. Виділіть тексти для підрахунку (наприклад, рамкою весь план) і натисніть Enter — результат з'явиться також у командному рядку.
3. Виберіть нову або наявну таблицю (див. Опції).

Примітки:

• Тексти вважаються однаковими лише тоді, коли вони збігаються до символу (включно з регістром і пробілами). Найкраще працює з простими однорядковими текстами.
• Усю операцію скасовує одна команда Скасувати.

Опції

Під час запуску:

• Таблиця [New/Existing] — New (типово): скрипт сам створює таблицю із заголовком, стовпцями SYMBOL / QTY і рядком TOTAL; ви вказуєте висоту тексту (останнє значення запам'ятовується) і лівий верхній кут таблиці. Existing: ви вказуєте готову таблицю, у якій перший рядок — заголовки, а стовпець із заголовком SYMBOL містить перелік символів, — кількості потраплять у стовпець із заголовком QTY, COUNT або QUANTITY (якщо його немає, скрипт додасть стовпець QTY у кінці). Символ із таблиці, якого немає на кресленні, отримує 0.

Налаштування у файлі (стосуються нової таблиці):

• tableTitle — заголовок таблиці (типово «SYMBOL SCHEDULE»; "" = без заголовка).
• textHeight — висота тексту, що пропонується під час першого запуску (типово 40).
• addTotalRow — T додає внизу рядок TOTAL із сумою; nil без суми.
• sortSymbols — T розташовує символи за алфавітом; nil у порядку підрахунку.

AUTONUMBER — нумерація елементів по черзі

⬇ AutoNumber.lsp

Присвоює послідовні номери виділеним елементам — колонам, світильникам, паркомісцям, приміщенням — у вибраному напрямку. Файл містить дві команди: AUTONUMBER (лише номери) і AUTONUMBERPREFIX (номери з префіксом, наприклад «P-1», «P-2»).

1. Введіть AUTONUMBER або AUTONUMBERPREFIX.
2. Виділіть елементи й натисніть Enter.
3. Дайте відповіді на запитання (див. Опції) — біля кожного елемента з'явиться номер.

Номер вставляється в центр елемента: у точку вставлення блока чи тексту, центр кола, середину лінії, середнє вершин полілінії.

Опції

Під час запуску (Enter = значення в дужках):

• Префікс (лише AUTONUMBERPREFIX) — текст перед номером, наприклад P- → P-1, P-2…
• Напрямок — 1: зліва направо; 2: справа наліво; 3: знизу вгору; 4: згори вниз; 5: уздовж лінії, яку ви вкажете двома точками (наприклад, похилий ряд колон). Інше значення = 1.
• Висота тексту — типово 1; у кресленні в мм або см вкажіть більшу, наприклад 250.
• Шар номерів — типово 0; вказаний шар буде створено, якщо його немає.
• Початковий номер — типово 1; знадобиться для продовження нумерації з іншого плану.

Скрипт не має налаштувань у файлі.

APPENDTEXT — дописування тексту до багатьох написів

⬇ AppendText.lsp

Дописує той самий текст у кінець багатьох виділених написів одночасно — наприклад одиницю « m2», суфікс «/A» або позначення поверху.

1. Введіть APPENDTEXT.
2. Введіть текст для дописування й натисніть Enter.
3. Виділіть тексти й натисніть Enter.

Працює з однорядковими й багаторядковими текстами.

Опції

Під час запуску:

• Текст для дописування — може містити пробіли. Додається без відступу, тож якщо потрібен пробіл, почніть дописку з пробілу (наприклад m2).

Скрипт не має налаштувань у файлі.

DECREASETEXTVALUE — зменшення чисел у текстах

⬇ DecreaseTextValue.lsp

Віднімає вказане значення від чисел, записаних у виділених текстах. Знадобиться для перерахунку висотних позначок після зміни рівня відліку або для виправлення підписів.

1. Введіть DECREASETEXTVALUE.
2. Вкажіть значення (див. Опції).
3. Виділіть тексти й натисніть Enter.

Примітки:

• Текст має містити лише число, наприклад 12,50, +3,20 або -0.45 (кома або крапка). Результат має десяткову кому й стільки знаків після коми, скільки оригінал (або більше, якщо цього потребує вказане значення); знак «+» на початку зберігається для результатів ≥ 0.
• Тексти, які не є числом, пропускаються — їх перелік з'явиться в командному рядку.

Опції

Під час запуску:

• Значення зменшення — на скільки зменшити числа, з десятковою крапкою, наприклад 0.25 (Enter = 0.1). Від'ємне число, наприклад -0.5, збільшує значення.

Скрипт не має налаштувань у файлі.

EXPORTTEXT — експорт текстів у файл TXT

⬇ ExportText.lsp

Зберігає вміст виділених текстів у файл .txt — наприклад, щоб перенести назви приміщень, номери чи примітки з креслення у Word або Excel.

1. Введіть EXPORTTEXT.
2. Виділіть тексти й натисніть Enter.
3. Вкажіть назву та місце збереження файлу.

Після кожного тексту у файлі є рядок зі знаком @ — це полегшує розділення багаторядкових текстів (наприклад, у Word через Знайти й замінити). Форматування багаторядкових текстів (шрифти, кольори) видаляється, розриви рядків зберігаються, порожні тексти пропускаються.

Опції

Під час запуску ви вибираєте лише назву та розташування файлу. Скрипт не має налаштувань у файлі.

EXPORTTEXTTOCSV — тексти з одного шару в Excel

⬇ ExportTextToCSV.lsp

Зберігає у файл Excel або CSV тексти з виділеної області, але лише з шару, який ви вкажете, — наприклад, тільки номери приміщень без решти підписів.

1. Введіть EXPORTTEXTTOCSV.
2. Клацніть будь-який об'єкт на шарі, з якого потрібні тексти.
3. Виділіть область (рамкою) і натисніть Enter.
4. Виберіть папку, назву та формат файлу.

Кожен текст потрапляє в окремий рядок (стовпець A, без заголовка). Форматування багаторядкових текстів видаляється, а розриви рядків замінюються пробілами.

Опції

Під час запуску:

• Формат файлу — .xlsx/.xls (збереження через Excel; клітинки мають формат «Текст», тож, наприклад, 1/2 чи +12.30 не перетворяться на дату чи число) або .csv (звичайний текст). Без установленого Excel створюється CSV з тією самою назвою.

Налаштування у файлі:

• fileSuffix — закінчення пропонованої назви файлу (назва креслення + _texts).

Часті запитання

Чи скрипти безкоштовні?

Так. Усі скрипти можна завантажувати, використовувати й змінювати безкоштовно та без створення облікового запису.

Чи працюють вони в AutoCAD LT?

Можуть не працювати. Скрипти використовують функції Visual LISP (ActiveX), яких AutoCAD LT не підтримує або підтримує лише частково. Вони працюють у повній версії AutoCAD і в GstarCAD у Windows, а зазвичай також в інших програмах, сумісних з AutoLISP, наприклад BricsCAD чи ZWCAD.

Як завантажити скрипт назавжди, щоб не робити цього під час кожного запуску?

Додайте файл до «Набору автозавантаження» (Startup Suite) у вікні команди APPLOAD — у GstarCAD це піктограма валізи, в AutoCAD кнопка «Вміст…». Подробиці — у розділі «Як завантажити скрипт».

Після введення команди з'являється «Невідома команда». Що робити?

Перевірте, чи скрипт завантажено (APPLOAD) і чи ви вводите назву команди, а не назву файлу, — наприклад, файл DecreaseTextValue.lsp запускається командою DECREASETEXTVALUE.

Чи можу я змінити скрипт під себе?

Так. Файл .lsp — це звичайний текст, відкрийте його в Блокноті. Налаштування кожного скрипта (наприклад висота тексту, перерахунок одиниць, копіювання результату в буфер обміну) зібрані в блоці ;; ---- SETTINGS ---- і описані в розділі «Опції» біля кожного скрипта на цій сторінці.