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

zonikpl
 Udostępnij

Rekomendowane odpowiedzi

Rekomendacja

Opublikowane przez 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
Rekomendacja dodana przez dmatusz3

3 reakcje

Pokaż odpowiedź
zonikpl Początkujący

zonikpl

Opublikowano
Opublikowano

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.

Zrzut ekranu 2025-05-05 231636.png

zonikpl Początkujący

zonikpl

Opublikowano
  • Autor
Opublikowano (edytowane)

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?

Edytowane przez zonikpl
RobS Początkujący

RobS

Opublikowano
Opublikowano

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.

06-05-202511_02_17.png.da5b0665c7006d11086da3223b4c1d07.png

 

RobS Początkujący

RobS

Opublikowano
Opublikowano

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.lspPobieranie informacji ...

zonikpl Początkujący

zonikpl

Opublikowano
  • Autor
Opublikowano (edytowane)

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.

Edytowane przez zonikpl
zonikpl Początkujący

zonikpl

Opublikowano
  • Autor
Opublikowano
  W dniu 6.05.2025 o 11:02, 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.

Rozwiń  

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

RobS Początkujący

RobS

Opublikowano
Opublikowano

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 Początkujący

zonikpl

Opublikowano
  • Autor
Opublikowano

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.

image.png.ca73493ff2d97f5ce9fa25fd557d16f8.png WESET.lspPobieranie informacji ...

EWAK_1.lspPobieranie informacji ... ewak.lspPobieranie informacji ... ewak.dclPobieranie informacji ...

  • Wyróżniony komentarz
RobS Początkujący

RobS

Opublikowano
  • Wyróżniony komentarz
Opublikowano

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.lspPobieranie informacji ... EWAK.dclPobieranie informacji ...

  • pawmal zmienił(a) tytuł na Polilinia zakończona grotem
  • dmatusz3 zmienił(a) tytuł na [LISP] Polilinia zakończona grotem [Rozwiązany]
  • dmatusz3 zablokował(a) ten temat
Gość
Ten temat został zamknięty. Brak możliwości dodania odpowiedzi.
 Udostępnij
Tematy