(defun c:zc ()
      (princ "
Nesneleri seçiniz:")
      (command "select" "auto" pause)
      (setq zc_sec (ssget "p"))
      (if (= zc_mes nil)
(setq zc_mes "100")
      )
      (setq zc_m (getstring (strcat "
Mesafe <" zc_mes ">:")))
      (if (/= zc_m "")
(setq zc_mes zc_m)
      )
      (setq zc_birleştir (strcat "@0,0," zc_mes))
      (command "copy" zc_sec "" "0,0" zc_birleştir)
  (princ)
)
(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")