mili

Użytkownik forum
 Pokaż profil  Zobacz aktywność

  • Postów

    6

  • Dołączył

  • Ostatnia wizyta

  • Wygrane w rankingu

    1

Ostatnia wygrana mili w dniu 11 Listopada 2024

Użytkownicy przyznają mili punkty reputacji!

Ostatnie wizyty

Blok z ostatnimi odwiedzającymi dany profil jest wyłączony i nie jest wyświetlany użytkownikom.

Osiągnięcia mili

Początkujący

Początkujący (1/6)

3

Reputacja

  1. RobS zareagował(a) na odpowiedź w temacie: Co dzisiaj robiłem w lispie?
  2. alf zareagował(a) na odpowiedź w temacie: Co dzisiaj robiłem w lispie?
  3. mili
    udało się! kółko z polilinii polikolko.lsp
  4. mili
    a jest możliwość, żeby dodać kąt np. 90stopni?
  5. mili
    skrypt ma tworzyć okrąg z polilinii, tak jak na gifie
  6. mili
    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") )
  7. alf zareagował(a) na odpowiedź w temacie: Co dzisiaj robiłem w lispie?
  8. mili
    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
  9. mili
    Mały skrypt, który tworzy okrąg o średnicy 10. (setq a (getpoint "ustaw pierwszy punkt: ")) (command "circle" a 10) test.lsp