Szukam kodu Lisp autorstwa Kojacek o nazwie "Linie łamane"

[zonikpl]

Witajcie.

Jak w tytule - szukam kodu Lisp autorstwa Kojacek o nazwie "Linie łamane", na stronie Kojacka jest tylko opis tego lispa lecz nie ma kodu, ma ktoś może ten kod i go udostępni? Będę wdzięczny.

[zonikpl]

Rozumiem, że nikt nie dysponuje tym lispem? 

[kojacek]

Myślę że coś (chyba) mam... 😉 potrzebuję jednak trochę czasu, bo nie mam tego przy sobie. 

[zonikpl]

Witaj kojacku, będę wdzięczny, ułatwi mi to pracę, a coś sam próbowałem napisać wg. twojego opisu na stronie, ale nie za bardzo mi to wychodzi. Uzbrajam się w cierpliwość, dziękuję za odzew, pozdrawiam serdecznie.

[kojacek]

voila: https://kojacek.wordpress.com/2026/04/08/linie-lamane-2-czyli-jak-to-dziala/

[zonikpl]

Dziękuję za link do kodu, niestety w zwcad 2026 PL nie działa

[kojacek]

Spróbuj tego tak jak na obrazie powyżej, zamień wyrażenie - (quote (eval %1)) na ('eval %1). To samo dla %2.

[zonikpl]

po zamianie wygląda to tak:

 

ale niestety wyskakuje błąd: niezdefiniowana funkcja - CD:USR_GETKEYWORD

 

[kojacek]

Załaduj CADPL-Pack'a:

 

[zonikpl]

ok. a jak to zrobić? do zw cada się da?

[kojacek]

https://kojacek.wordpress.com/2015/11/04/cadpl-pack/

[zonikpl]

CADPack załadowany. efekt sline taki jak poniżej. Zauważyłem że nie działają dobrze wybory dół, góra, środek itd - wybiera się losowo niż to co wskazuję

Edited April 9 by zonikpl

[kojacek]

Wygląda na to że u mnie działa dobrze...

 

[zonikpl]

ok u mnie tez działa, ale jest jeden kłopot - wybór opcji działa dopiero za drugim wywołaniem polecenia, czyli wybieram góra a program wykona opcję ostatnia zapamiętaną, wpisze ponownie sline i wybiorę górę to zrobi górę, wywołam slina i opcje środek zrobi górę, wybiorę ponownie sline i środek zrobi środek

 

[kojacek]

Jeżeli nie wprowadzałeś jakichś "ulepszeń" program powinien działać prawidłowo. Przetestuj w linii poleceń wywołania funkcji:

(jk:SLN-GetKey)

wybierając dostępne opcje. Wybrane słowo kluczowe (także każde ostatnie jako domyślne wybrane enterem) przypisywane jest do zmiennej globalnej o nazwie *SLN*. Jej wartość determinuje tryb rysowania. 

[RobS]

Hej,
U mnie po wprowadzeniu poprawki skrypt działa w ZWCADzie 2026 bez zastrzeżeń.

18 godzin temu, kojacek napisał:

Spróbuj tego tak jak na obrazie powyżej, zamień wyrażenie - (quote (eval %1)) na ('eval %1). To samo dla %2.

 

[zonikpl]

ok. wszystko działa, moje niedopatrzenie, mylił mnie zapis w pasku poleceń, bardzo dziękuję za cierpliwość, temat możemy zakończyć 

Edited April 10 by zonikpl

[dmatusz3]

U mnie też wszystko działa.

 

Pozwolę sobie zamieścić dostosowany do ZWCAD plik LISP sline_linie-lamane.lsp

 

[kojacek]

Podsumowując - w ZwCAD 2026 PL wyrażenie (quote (eval SYM)) nie działa, ale ('eval SYM) jest ok. Czy tylko w tej wersji, czy w innych też? W AutoCAD jest ok - przynajmniej nie spotkałem się z tym problemem nawet w starych wersjach. To że quote w tym miejscu nie działa, jest dziwne, bowiem wydaje się że ' (apostrof) jest tylko skrótem od (czy do) quote, więc interpreter LISP-a w rzeczywistości wykorzystuje funkcję quote.

[dmatusz3]

Jeszcze taki pomysł mamy na wykonanie takich linii łamanych za pomocą bloku.

[zonikpl]

oo to fajne, jak blok zrobiony jest? 

Edited April 17 by zonikpl

[kojacek]

Ok. Blok jest w porządku. Niemniej podstawowym założeniem SLINE, było zredukowanie klikania do minimum. Wywołanie polecenia (1) opcja (2) wskazanie (3) dwóch punktów... W realnym świecie (swego czasu) zastosowanie w "schematologii i rurologii":

 

[dmatusz3]

SLINE jest świetne, tylko chcieliśmy zaproponować inne rozwiązanie jakie wpadło nam do głowy.

Być może w przypadku schematów blokowych łatwiej jest edytować istniejące połączenia.

W dniu 17.04.2026 o 14:12, zonikpl napisał:

oo to fajne, jak blok zrobiony jest? 

Chętnie Panu wyślę blok w wiadomości prywatnej, ale na razie chcieliśmy zrobić na forum małą zagadkę, jak wykonać taki blok.