🚀 go-pugleaf

Polecam poniższy programik. Niniejszym, jako Autor, udzielam również
wszystkim chętnym licencji na korzystanie :)
Niestety, serwer nie wpuścił bloku 'spawik.dwg', bo niby binarny. Prześlę Ci
go na priv, a inni niech sami poeksperymentują.
Pozdrawiam
Robert

(princ " SPAW ")
(defun c:spaw (/ pt1 pt2 skala kat lkol dist dliz oldla oldos clr nb)
  (princ "\nRysowanie roznych rzeczy met. MINSERT ")
  (setq nb "spawik")
  (if (tblsearch "block" nb)
    (progn
      (setq pt1 (getpoint "\nPunkt wstawienia [lewy-górny]: ")
            pt2 (getpoint pt1 "\nDlugość: ")
          skala 0.5 ;[mm, grubość spoiny]
           dliz (distance pt1 pt2)
            kat (/ (* 180 (angle pt1 pt2)) pi)
           lkol (fix (/ dliz (/ skala 2.0)))
           dist (/ skala 2.0)
      )
      (command "minsert" nb "_none" pt1 skala skala kat "1" lkol dist)
    )
    (alert "Brak bloku 'spawik'!")
  )
  (prin1)
)