Przykłady LISP

W ZWCAD w wersjach wcześniejszych niż ZWCAD+ 2014 funkcja pedit pozwalała na wskazanie okręgu i zamieniała go automatycznie na polilinię. W wersji 2014 programu CAD zaznaczenie okręgu nie jest możliwe, ograniczenie to zostało wprowadzone dla uzyskania zgodności z AutoCADem, gdzie w obecnej wersji działa to właśnie w ten sposób.
Jeśli potrzebowalibyśmy jednak fukcji działającej analogicznie, czyli zamieniającej okrąg na polilinię, można to zrobić przy użyciu następującej procedury:

Na naszym forum CAD pojawiło się zapytanie o funkcję opisującą współrzędną wskazanego punktu.

Opracowałem taką funkcję i chciałbym się nią podzielić:

Skrypt LISP posłuży do rysowaniu spirali Archimedesa

Po wczytaniu skryptu do programu CAD należy wpisać polecenie Spirala

ZWCAD narysuje spiralę składającą się z punktów.

W przykładzie posłużymy się parametrami ustawionymi na stałe, oczywiście można je modyfikować i dodać możliwość określania parametrów przez Użytkownika.