(defun C:zm ()
  (princ "
Nesneleri seçiniz:")
  (command "select" "auto" pause)
  (setq zm_sec (ssget "p"))
  (if (= zm_mes nil)
    (setq zm_mes "100")
  )
  (setq zm_m (getstring (strcat "
Mesafe <" zm_mes ">:")))
  (if (/= zm_m "")
    (setq zm_mes zm_m)
  )
  (setq zm_birlestir (strcat "@0,0," zm_mes))
  (command "move" zm_sec "" "0,0" zm_birleştir)
  (princ)
)
(PRINC "--> 'cizimokulu.com' Çizim yardımları yüklendi !")