mili

udało się! kółko z polilinii polikolko.lsp

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

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

problem z p3 chcę, żeby p3 powracał do p1 z punktu p2, co by tworzyło drugi łuk kółka, lecz w obecnym kodzie tworzy mi się jedynie prosta linia (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 "") (prompt "okrąg został narysowany") )

kod, który zamienia punkty na rysunku na okręgi (defun c:OkragiNaObiektach () (setq obiekty (ssget "_:L" '((0 . "POINT")))) (if obiekty (progn (setq i 0) (repeat (sslength obiekty) (setq ent (ssname obiekty i)) (setq i (1+ i)) (setq punkt (cdr (assoc 10 (entget ent)))) (if punkt (progn (command "_.CIRCLE" punkt "10.0") ) ) ) ) ) (princ) ) kod.lsp

Mały skrypt, który tworzy okrąg o średnicy 10. (setq a (getpoint "ustaw pierwszy punkt: ")) (command "circle" a 10) test.lsp