(defun c:COF (/ nn ent tur ang mes pt nt nn )
  (setq offlist '(5 6 8 15 15)
        laylist '("1" "2" "3" "4" "5") nn t)
  (while nn
    (if (setq ent (entsel "\nOffset yapılacak nesneyi seçin:"))
      (progn
        (setq tur (cdr (assoc 0 (entget (car ent)))))
        (if (and (/= tur "LINE")(/= tur "LWPOLYLINE") (/= tur "ARC")
                 (/= tur "CIRCLE")(/= tur "XLINE") (/= tur "RAY"))
          (progn
            (princ "\nNesne türü offsetlenemez...")
            (setq nn t)
          )
          (progn
            (if (setq pt (getpoint "\nOffset yönü:"))
              (progn
                (setq ang (angle (cadr ent) pt)
                      mes 10000000
                       nt 1
                       nn nil) (setvar 'cmdecho 0)
                (command "_.offset" (nth 0 offlist) ent pt "")
                (repeat (- (length offlist) 1)
                  (command "._offset" (nth nt offlist) (entlast)
                                      (polar (cadr ent) ang mes) ""
                           "_.change" (entlast) "" "P" "LA"  (nth nt laylist) "")
                  (setq nt (1+ nt))
                )
              )
            )
          )
        )
      )
      (progn
        (if (= (getvar "errno") 7)(setq nn t))
        (if (= (getvar "errno") 52)(setq nn nil))
      )
    )
  ) (princ)
)