(defun cc_hata (s)                   
  (if (/= s "Function cancelled")
    (princ (strcat "
Error: " s))
  )
  (setq *error* olderr)               
(princ))
(defun c:cc ()
(setq olderr *error*
      *error* cc_hata)
      (setvar "cmdecho" 0)
      (grtext -1 "Archme Design")
      (princ "
Kopyalanacak nesneleri seçiniz:")
      (while (= nil
(setq bgroup (ssget))
     )
(princ "
Seçim Yok!..")
      )
      (initget 1)
      (setq ang (getangle "
Açıyı giriniz: "))
      (initget 1)
      (setq dist (getdist "
Mesafeyi giriniz: "))
      (setq temp (strcat "@" (rtos dist 2 6) "<" (angtos ang 0 4)))
      (while (/= temp "C")
(setq ent (entlast))
(command "copy" bgroup "" "0,0" temp)
(initget "C")
(setq
  temp (getdist (strcat "
Mesafe/Cıkış <" (rtos dist) ">: "))
)
(if (and temp (/= temp "C"))
  (setq dist temp)
)
(if (/= temp "C")
  (progn
    (setq temp (strcat "@" (rtos dist 2 6) "<" (angtos ang 0 4))
  bgroup (ssadd)
    )
    (while (setq ent (entnext ent))
      (if ent
(setq bgroup (ssadd ent bgroup))
      )
    )
  )
)
      )
      (setq bgroup nil
    temp nil
    ang nil
    dist nil
    ent nil
      )
  (princ)
)(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")