(defun C:xy(/ PNT1 P1X P1Y STDY STDX STDZ COORDN COORDE COORDZ PTXT)
    (setq PNT1 (getpoint "Âûáåğèòå òî÷êó: "))
    (setq P1X (car pnt1)) 
    (setq P1Y (cadr pnt1)) 
    
    (setq STDX (rtos P1X 2 3))
    (setq STDY (rtos P1Y 2 3))
    (setq COORDN (strcat "X= " STDY  ))
    (setq COORDE (strcat "Y= " STDX  ))
    (setq PTXT (getpoint
      "Óêàæèòå òî÷êó âñòàâêè âûíîñêè: "))
    (command "LEADER" PNT1 PTXT ""COORDE COORDN ""))
(Princ "Komutu çalıştırmk için [xy] yazınız!")
(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")