(Defun C:fva ()
    (setq P0 (getpoint "bazispont ="))
  (setq n (length lx) k 0)
     (command "pline")  
  (repeat n
    (setq alfa (nth k lx) r (nth k ly))
    (setq P (polar P0 alfa r))
    (command P)
    (setq n (+ n 1))
    )
  (command "")
  )
      (defun c:pr ()         ; pr az eljárás  neve
      (setq k (getpoint "bázispont= ")) ; bázispont bekérése
      (setq e (/ (* 2 pi) 100))  ; egységnyi szög felvétele, /egyszerűbben (setq e (/  pi 50))/
      (setq alfa 0)             ; kezdeti szög értéke 
      (command "pline")         ; pline AutoCAD parancs elindítása
      (repeat  51               ; rajzolás közben elvégzett feladatok ciklusa 
      (setq r (sin alfa))   ; r az alfa szöghöz tartozó rádiusz, f1 a korábban definiált függvény 
      (setq p (polar k alfa r)) ; p az alfa szöghöz és r rádiuszhoz tartozó  futópont 
      (command p)               ; a p futópont megadása a  pline  számára
      (setq alfa (+ alfa e))    ; a szögérték változtatása 
      )                         ; a ciklus vége
      (command "c")             ; a pline zárása
      )                         ; defun függvény vége