Darmowe skrypty LISP do AutoCAD i GstarCAD

Co znajdziesz w paczce

Dziesięć skryptów AutoLISP (pliki .lsp), które przyspieszają codzienną pracę z rzutami: liczenie długości i powierzchni, opisywanie pól, numerowanie elementów, zliczanie symboli i eksport tekstów z rysunku do Excela. Działają w AutoCAD i GstarCAD na Windows, są bezpłatne i nie wymagają instalowania niczego poza samym plikiem.

⬇ Pobierz wszystkie skrypty (ZIP) albo pobierz pojedynczy plik z opisu poniżej.

Jak wczytać skrypt

Jednorazowo (do zamknięcia programu):

1. Zapisz plik .lsp w stałym folderze, np. C:\CAD\Skrypty.
2. W programie wpisz polecenie APPLOAD (albo po prostu przeciągnij plik .lsp na otwarty rysunek).
3. Wskaż plik i kliknij Wczytaj (Load).
4. Wpisz nazwę polecenia skryptu (np. SUMLINES) i naciśnij Enter.

Na stałe w GstarCAD:

1. Wpisz APPLOAD.
2. Kliknij ikonę walizki (Pakiet startowy / Startup Suite).
3. Kliknij Dodaj (Add) i wskaż plik .lsp.
4. Zamknij okna i uruchom GstarCAD ponownie — skrypt będzie wczytywany przy każdym starcie.

Na stałe w AutoCAD:

1. Wpisz APPLOAD.
2. W sekcji Pakiet startowy (Startup Suite) kliknij Zawartość… (Contents…).
3. Kliknij Dodaj… (Add…), wskaż plik .lsp i zamknij okna.
4. Jeśli AutoCAD pokaże ostrzeżenie bezpieczeństwa, wybierz Zawsze wczytuj albo dodaj folder ze skryptami do zaufanych lokalizacji (Opcje → Pliki → Zaufane lokalizacje).

Dobrze wiedzieć:

• Polecenie to nazwa podana przy skrypcie, a nie zawsze nazwa pliku. Wielkość liter nie ma znaczenia.
• Komunikaty skryptów w wierszu poleceń są po polsku lub po angielsku.
• Zmiany w rysunku cofniesz zwykłym Cofnij (Ctrl+Z). Przed pracą na ważnym rysunku zrób jego kopię.
• Plik .lsp to zwykły tekst — możesz go otworzyć w Notatniku i zmienić ustawienia opisane na początku pliku.

SUMLINES — suma długości linii

⬇ SumLines.lsp

Sumuje długość zaznaczonych linii i polilinii i pokazuje wynik w okienku. Przydaje się do szybkiego pomiaru długości kabli, rur, krawężników czy obróbek blacharskich.

1. Wpisz SUMLINES.
2. Zaznacz linie i polilinie (oknem albo klikając).
3. Naciśnij Enter — pojawi się okno z sumą długości.

Wynik jest w jednostkach rysunku (rysunek w mm → wynik w mm), z przecinkiem i dwoma miejscami po przecinku. Łuki, splajny i inne obiekty są pomijane przy zaznaczaniu.

SUMAREA — suma pól powierzchni

⬇ SumArea.lsp

Sumuje pola zaznaczonych zamkniętych obiektów: polilinii, okręgów, elips, regionów i splajnów. Pozwala policzyć np. powierzchnię kilku pomieszczeń naraz.

1. Wpisz SUMAREA.
2. Zaznacz obiekty.
3. Naciśnij Enter — pojawi się okno z sumą pól.

Otwarte polilinie są pomijane: skrypt pokazuje komunikat z ich uchwytem (Handle), żeby łatwo je znaleźć. Wynik jest w jednostkach rysunku do kwadratu (rysunek w cm → cm²).

AREALABELS — etykiety powierzchni z eksportem do CSV

⬇ AreaLabels.lsp

Opisuje każdą zaznaczoną zamkniętą polilinię nazwą jej warstwy i powierzchnią w m², a sumy powierzchni dla każdej warstwy zapisuje do pliku CSV, który otworzysz w Excelu. Typowe zastosowanie: obrysy pomieszczeń lub rodzajów posadzek, każdy rodzaj na osobnej warstwie — i od razu gotowe zestawienie powierzchni.

1. Wpisz AREALABELS.
2. Zaznacz zamknięte polilinie.
3. Naciśnij Enter — w środku każdej polilinii pojawi się etykieta „warstwa / pole m2” na warstwie AREA_LABELS.
4. Otwórz plik AreaExport.csv z folderu Dokumenty (C:\Users\<nazwa>\Documents) — zawiera sumę powierzchni dla każdej warstwy.

Uwagi:

• Skrypt zakłada rysunek w centymetrach (pole dzielone przez 10 000). Dla rysunku w milimetrach zmień na początku pliku areaDivisor na 1000000.0, dla rysunku w metrach na 1.0.
• Przy każdym uruchomieniu skrypt usuwa wszystkie teksty z warstwy AREA_LABELS w całym rysunku i tworzy etykiety od nowa — nie umieszczaj na tej warstwie innych tekstów.
• Wysokość tekstu etykiety to 40 jednostek (textSize na początku pliku).
• Plik CSV jest nadpisywany przy każdym uruchomieniu; separator to średnik, liczby mają przecinek dziesiętny.
• Etykieta stoi w środku prostokąta otaczającego polilinię — przy kształtach typu „L” może wypaść poza obszar.

LINELABELS — etykiety długości z eksportem do CSV

⬇ LineLabels.lsp

Opisuje każdą zaznaczoną linię nazwą jej warstwy i długością w metrach, a sumy długości dla każdej warstwy zapisuje do pliku CSV — np. długości tras instalacji według rodzaju.

1. Wpisz LINELABELS.
2. Zaznacz linie.
3. Naciśnij Enter — etykiety pojawią się w połowie linii na warstwie LENGTH_LABELS.
4. Otwórz plik LengthExport.csv z folderu Dokumenty.

Uwagi:

• Liczone są tylko linie (LINE) — polilinie są pomijane; w razie potrzeby rozbij je poleceniem EXPLODE (Rozbij).
• Skrypt zakłada rysunek w centymetrach (długość dzielona przez 100). Dla rysunku w milimetrach zmień lengthDivisor na 1000.0, w metrach na 1.0.
• Przy każdym uruchomieniu skrypt usuwa wszystkie teksty z warstwy LENGTH_LABELS.
• Wysokość tekstu to 40 jednostek (textSize), plik CSV jest nadpisywany przy każdym uruchomieniu.

COUNTSYMBOLS — zliczanie symboli do tabeli

⬇ CountSymbols.lsp

Zlicza, ile razy na rysunku występuje każdy symbol tekstowy (np. oznaczenia opraw, gniazd, typów drzwi czy okien) i wpisuje te liczby do tabeli. Gotowe zestawienie ilości bez ręcznego liczenia.

1. Przygotuj tabelę (obiekt Tabela), w której pierwszy wiersz to nagłówki, a jedna kolumna ma w nagłówku słowo SYMBOL i zawiera listę symboli.
2. Wpisz COUNTSYMBOLS i wskaż tabelę.
3. Zaznacz teksty do zliczenia (np. oknem cały rzut) i naciśnij Enter.
4. Kolumna z ilościami zostanie wypełniona; symbol, którego nie znaleziono, dostaje 0.

Uwagi:

• Kolumna z ilościami jest rozpoznawana po nagłówku zawierającym ILOSC, QTY lub COUNT. Jeśli jej nie ma, skrypt doda na końcu nową kolumnę ILOSC.
• Tekst na rysunku musi być identyczny z tekstem w tabeli (także wielkość liter i spacje). Najlepiej działa z prostymi tekstami jednowierszowymi.
• Nagłówki muszą być w pierwszym wierszu tabeli — tabela nie może mieć nad nimi wiersza tytułu.
• Całą operację cofniesz jednym Cofnij.

NUMERUJ — numerowanie elementów w kolejności

⬇ Numeruj.lsp

Nadaje kolejne numery zaznaczonym elementom — słupom, oprawom, miejscom postojowym, pomieszczeniom — w wybranym kierunku. Plik zawiera dwa polecenia: NUMERUJ (same numery) i NUMERUJ_PREFIX (numery z prefiksem, np. „P-1”, „P-2”).

1. Wpisz NUMERUJ lub NUMERUJ_PREFIX (wtedy najpierw podasz prefiks).
2. Zaznacz elementy i naciśnij Enter.
3. Wybierz kierunek: 1 – od lewej do prawej, 2 – od prawej do lewej, 3 – od dołu do góry, 4 – od góry do dołu, 5 – wzdłuż linii wskazanej dwoma punktami.
4. Podaj wysokość tekstu, warstwę i numer początkowy (Enter = wartość domyślna w nawiasie).

Uwagi:

• Numer jest wstawiany w środku elementu: w punkcie wstawienia bloku, środku okręgu, środku linii, średniej wierzchołków polilinii.
• Domyślna wysokość tekstu to 1 — w rysunku w mm lub cm podaj większą, np. 250.
• Podana warstwa zostanie utworzona, jeśli nie istnieje.

DOPIS — dopisywanie tekstu do wielu napisów

⬇ Dopis.lsp

Dopisuje ten sam tekst na końcu wielu zaznaczonych napisów naraz — np. jednostkę „ m2”, sufiks „/A” albo oznaczenie kondygnacji.

1. Wpisz DOPIS.
2. Wpisz tekst do dopisania (może zawierać spacje) i naciśnij Enter.
3. Zaznacz teksty i naciśnij Enter.

Tekst jest doklejany bez odstępu — jeśli potrzebujesz spacji, zacznij dopisek od spacji. Działa z tekstami jedno- i wielowierszowymi.

DECREASETEXTVALUE — zmniejszanie liczb w tekstach

⬇ DecreaseTextValue.lsp

Odejmuje podaną wartość od liczb zapisanych w zaznaczonych tekstach. Przydaje się przy przeliczaniu rzędnych po zmianie poziomu odniesienia albo przy korekcie opisów.

1. Wpisz DECREASETEXTVALUE.
2. Podaj wartość do odjęcia z kropką dziesiętną, np. 0.25 (Enter = 0.1). Aby zwiększyć wartości, podaj liczbę ujemną, np. -0.5.
3. Zaznacz teksty i naciśnij Enter.

Uwagi:

• Tekst powinien zawierać samą liczbę, np. 12,50, +3,20 lub -0.45. Wynik ma przecinek dziesiętny i tyle miejsc po przecinku co oryginał; znak „+” na początku zostaje.
• Jeśli za liczbą jest dopisek (np. „12,5 m”), zostanie on usunięty. Teksty, które nie są liczbą, są pomijane z komunikatem.

EXPORTTEXT — eksport tekstów do pliku TXT

⬇ ExportText.lsp

Zapisuje treść zaznaczonych tekstów do pliku .txt — np. żeby przenieść opisy pomieszczeń, numery lub uwagi z rysunku do Worda albo Excela.

1. Wpisz EXPORTTEXT.
2. Zaznacz teksty i naciśnij Enter.
3. Wskaż nazwę i miejsce zapisu pliku.

Po każdym tekście w pliku jest wiersz ze znakiem @ — ułatwia rozdzielenie tekstów wielowierszowych (np. w Wordzie przez Znajdź i zamień). Formatowanie tekstów wielowierszowych (czcionki, kolory) jest usuwane, podziały wierszy zostają. Kolejność tekstów w pliku nie zależy od ich położenia na rysunku.

EXPORTTEXTTOCSV — teksty z jednej warstwy do CSV

⬇ ExportTextToCSV.lsp

Zapisuje do pliku CSV teksty z zaznaczonego obszaru, ale tylko z warstwy, którą wskażesz — np. same numery pomieszczeń bez reszty opisów.

1. Wpisz EXPORTTEXTTOCSV.
2. Kliknij dowolny obiekt na warstwie, z której chcesz teksty.
3. Zaznacz obszar (oknem) i naciśnij Enter.
4. Podaj nazwę pliku CSV.

Każdy tekst trafia do osobnego wiersza pliku (jedna kolumna). Formatowanie tekstów wielowierszowych jest usuwane, a podziały wierszy zamieniane na spacje.

Najczęściej zadawane pytania

Czy skrypty są darmowe?

Tak. Wszystkie skrypty możesz pobrać, używać i zmieniać bez opłat i bez zakładania konta.

Czy działają w AutoCAD LT?

Mogą nie działać. Skrypty korzystają z funkcji Visual LISP (ActiveX), których AutoCAD LT nie obsługuje albo obsługuje tylko częściowo. Działają w pełnym AutoCAD i GstarCAD na Windows, a zwykle także w innych programach zgodnych z AutoLISP, np. BricsCAD czy ZWCAD.

Jak wczytać skrypt na stałe, żeby nie robić tego przy każdym uruchomieniu?

Dodaj plik do „Pakietu startowego” (Startup Suite) w oknie polecenia APPLOAD — w GstarCAD to ikona walizki, w AutoCAD przycisk „Zawartość…”. Szczegóły są w sekcji „Jak wczytać skrypt”.

Po wpisaniu polecenia pojawia się „Nieznane polecenie”. Co robić?

Sprawdź, czy skrypt jest wczytany (APPLOAD) i czy wpisujesz nazwę polecenia, a nie nazwę pliku — np. plik DecreaseTextValue.lsp uruchamia się poleceniem DECREASETEXTVALUE.

Czy mogę zmienić skrypt pod siebie?

Tak. Plik .lsp to zwykły tekst — otwórz go w Notatniku. Najczęściej zmieniane ustawienia (wysokość tekstu, przeliczenie jednostek) są opisane na początku plików AreaLabels.lsp i LineLabels.lsp.