[LISP] Polilinia zakończona grotem [Rozwiązany]

[zonikpl]

Witajcie, czy spotkał się ktoś z programem lub lispem do autocada który rysuje polilinie zakończone grotem, w taki sposób jak przedstawiam w zał.? Jest świetny program pana kojacek o nazwie arrow.fas, ale niestety on rysuje polilinie złożone tylko z 2 punktów, a ja potrzebuję więcej niż 2 punkty do narysowania polilinii. Będę wdzięczny za pomoc.

[Adam Klaczek]

Może któreś z rozwiązań z tego wątku:

 

[pawmal]

Witam,
Polecam ZWToolbox i funkcję "Droga ewakuacyjna" w zakładce Bloki. Działa z ZWCAD PRO.

Nakładka ZWToolbox

[zonikpl]

Posiadam autocada, a taka nakładka do niego to koszt ponad 3,5 tyś. dlatego chciałem zautomatyzować rysowanie za pomocą polilinii.

[RobS]

Hej,

Znalazłem w sieci skrypt PARROW który robi dokładnie to czego szukasz.

Po wskazaniu punktów musisz wybrać czy grot ma zostać wstawiony na końcu, początku czy na obu krańcach polilinii.

 

PARROW.lsp

[zonikpl]

Dokładnie o takie rysowanie mi chodzi. Szerokość polilini idzie zmienić komendą b[szerokosc], tylko problem zostaje w wyglądzie grotu - zostaje niezmieniony, i jak poszerzyłem polilinię to grot malutki zostaje. Może w kodzie da się ustawić jego wymiary?

Edited May 6 by zonikpl

[RobS]

Rozmiary grotów są zdefiniowane pod koniec kodu.

Grot na początku

• linijka 63 - 2.5 to długość grotu
• linijka 65 - 0.833 to szerokość grotu

Grot na końcu

• linijka 70 - 2.5 to długość grotu
• linijka 72 - 0.833 to szerokość grotu

Wartości musisz dobrać metodą prób i błędów odpowiednio do skali rysunku i własnych preferencji.

 

[zonikpl]

Działam z gpt, bo sam nie za dużo wiem o programowaniu, już jestem na etapie wpisywania szerokości polilinii, szr i długości grota, nie możemy tylko sobie wraz z gpt poradzić aby kod zapamiętywał ostatnie ustawienia, to by przyspieszyło rysowanie strzałek. Poniżej lsp 

strzalka5.lsp

[RobS]

Zmodyfikowałem skrypt który wysłałeś.

Teraz po wgraniu skryptu do CADa musisz określić długość i szerokość grotu oraz szerokość polilinii.

Wartości zostają zapisane i będą użyte przy kolejnym wywołaniu funkcji PArrow.

Jak będziesz chciał zmienić wygląd grotów i polilinii to wpisz polecenie PArrowSettings i wprowadź nowe dane.

 

PArrow + Settings.lsp

[zonikpl]

Coraz bliżej perfekcji działania kodu. Dziękuję za poprawkę kodu, nie działa u mnie komenda parrowsettings, możesz podpowiedzieć co z tym zrobić, wpisałem w kodzie inną komendę ale nic to nie pomogło.

Jak się z tym uporam to zrobię wstawianie na określonej warstwie z określonym kolorem.

Edited May 6 by zonikpl

[zonikpl]

Godzinę temu, zonikpl napisał:

Coraz bliżej perfekcji działania kodu. Dziękuję za poprawkę kodu, nie działa u mnie komenda parrowsettings, możesz podpowiedzieć co z tym zrobić, wpisałem w kodzie inną komendę ale nic to nie pomogło.

Jak się z tym uporam to zrobię wstawianie na określonej warstwie z określonym kolorem.

polecenie parrowsettings działa - nie wiedziałem że trzeba to wpisac w konsoli - dziękuję

[zonikpl]

Dziękuję serdecznie wszystkim za zaangażowanie, udało się. Ostatecznie efekt wygląda tak:

[RobS]

Jeśli możesz to podeślij skrypt w finalnej wersji, bardzo fajnie to działa.

Kolejne funkcje również dodałeś z użyciem ChataGPT?

[zonikpl]

Podsyłam skrypt, tak GPT pomaga, wiadomo nie jest doskonały, ale idzie to z nim zrobić.

Skrypt EWAK_1 rysuje polilinie z grotami. Skrypt ewak.lsp oraz plik ewak.dlc (dlc wklejamy do folderu autocada i wskazujemy go w opcjach "ścieżka wyszukiwania plików pomocniczych"). Skrypt WESET.lsp musi też być załadowany bo bez niego nie otwiera się okienko dlc (a pierwszym zamiarem było, że to zrobi skrypt ewak.lsp, no ale nie działa to bez WESET.lsp - tak więc te 4 pliczki trzeba załadować - tutaj jeszcze mała anegdotka: nazwa WESET wyszła przez pomyłkę bo miało być EWSET skrót od ewak_settings, no ale za szybko pisałem i mi tak wyszło  ).

Może komuś się uda połączyć WESET.lsp z ewak.lsp w jeden skrypt, to by było bardziej elegancko, wtedy poproszę o wstawienie tutaj tej poprawki. Ja dalej nic nie robiłem, ponieważ cieszę się już tym efektem  

Dorobiłem sobie jeszcze dwie ikony do włączania skryptu  teraz to działa jak w płatnej nakładce.

WESET.lsp

EWAK_1.lsp ewak.lsp ewak.dcl

[RobS]

Uprościłem skrypty, finalnie jest jeden plik LSP i DCL.

W przypadku ZWCADa plik DCL trzeba wkleić do lokalizacji C:\Program Files\ZWSOFT\ZWCAD 2026\Render\appl\comm\DCL (analogicznie dla starszych wersji rocznikowych).

Po wyczytaniu skryptu wyświetlają się teraz dostępne polecenia:

• EWAK - rysowanie polilinii
• EWSET - konfiguracja rozmiaru grotów i polilinii

Ponadto ujednoliciłem język, przy wyborze końców jest polski.

Użyłeś darmowej wersji Chata GPT czy masz dostęp do płatnych modeli?

EWAK.lsp EWAK.dcl

[zonikpl]

Dziękuję, sprawdzę i dam znać jak to u mnie chodzi na autocad.

Korzystam z darmowej wersji GPT.

Edited May 7 by zonikpl

[zonikpl]

56 minut temu, RobS napisał:

Ponadto ujednoliciłem język, przy wyborze końców jest polski.

w której części skryptu jest opcja odpowiedzialna za ustawienie j.polskiego?

[RobS]

Teraz, zonikpl napisał:

w której części skryptu jest opcja odpowiedzialna za ustawienie j.polskiego?

Miałem na myśli ujednolicenie i spolszczenie Start, Both, End 🙂

[zonikpl]

1 minutę temu, RobS napisał:

Miałem na myśli ujednolicenie i spolszczenie Start, Both, End 🙂

aaaa  ok ok  

[zonikpl]

12 godzin temu, RobS napisał:

Uprościłem skrypty, finalnie jest jeden plik LSP i DCL.

Sprawdziłem ten uproszczony kod, działa idealnie, dziękuję za pomoc. Temat rozwiązany.