(defun c:MV (/)
  (if
    (setq Msec (ssget))
     (progn
       (if
(setq mnk1 (getpoint "\n Referans nokta gösterin: "))
  (progn
    (if (= aci nil)
      (setq aci 0)
    )
    (setq maci
   (getangle
     mnk1
     (strcat "\n Taşıma yönünü gösterin veya Açı girin: <"
     (angtos aci)
     ">:"
     )
   )
    )
    (if (= maci nil)
      (setq maci aci)
    )
    (setq aci maci)

    (if (= Mdeg nil)
      (setq Mdeg 15)
    )
    (setq
      Mddeg
       (getreal (strcat "\n Taşıma mesafesini giriniz <"
(rtos Mdeg)
">:"
)
       )
    )
    (if (= Mddeg nil)
      (setq Mddeg Mdeg)
    )
    (setq Mdeg Mddeg)
    (command "_move"
     Msec
     ""
     mnk1
     (strcat "@" (rtos Mdeg) "<0" (angtos aci))
    )
  )
  (progn
    (princ "\n Referans nokta gösterilmedi / SONLANDI")
  )
       )
     )
     (progn
       (princ "\n Nesne seçilmedi / SONLANDI")
     )
  )
  (princ)
)
(princ "\n Önce girilen mesafe ve açıyı hafızada tutarak MOVE yapar < MV > ")