Co dzisiaj robiłem w lispie?

[mili]

skrypt ma tworzyć okrąg z polilinii, tak jak na gifie  

[RobS]

W takim razie musisz jak na nagraniu zrobić to w dwóch krokach, tj. z dwóch segmentów.

Edytując Twój skrypt może to wyglądać na przykład:

(defun c:kolko1 ()
(setq p1(getpoint "Wskaż początek łuku:"))
(setq p2(getpoint "Wskaż koniec łuku:"))
(setq p3 (list p1))
(command "_.pline" p1 "_a" p2 p3 "")
(command "_.pline" p2 "_a" p1 p3 "")
(prompt "okrąg został narysowany")
)

Wydaje mi się, że punkt p3 jest zbędny, wielkość łuku polilinii zależy od kąta pomiędzy punktami.

[mili]

a jest możliwość, żeby dodać kąt np. 90stopni?

[RobS]

Tak, wybierając rysowanie polilinii w trybie łuku można określić kąt.

Poniżej podpowiedź jak wygląda pasek poleceń w angielskiej wersji językowej.

Edycję kodu zostawiam Tobie 🙂

 

[mili]

udało się! 
kółko z polilinii

polikolko.lsp