Auto Cad kullananlar bilir özellikle cnc ye verilen resimlerde bir sıfır noktasına göre resimin xy koordinatlarını vermek zahmetlidir.Bunun için ağağıdaki kodu kullanırsanız bu çok kolay olacaktır...


------------------------------------------------------------------------------
;;EFKAN AY CNC KOORDİNATLARINI VEREN PGM 10 AĞUSTOS 2003
(defun C:c1 ()
(setq olderr *error* *error* macerr)
(setq p1 (getpoint "
NOKTA SEC :")
p2(getpoint p1 "
YAZILACAK YERI SEC:")
yaz(strcat "X=" (rtos (car p1)) " Y=" (rtos (cadr p1)))
)
(command "_dim1" "LEADER" p1 p2 ""(command yaz))
(setq *error* olderr) (princ)
)

--------------------------------------------------------------------------
Bu kodları text editöre kopyalayıp uzantısını .lsp olacak şekilde kaydedin ve proğram files deki autocad dizinine atın
Autocad i çalıştırın
Tools dan load apilication u seçin load dan attığınız lsp uzantılı dosyayı seçin aynı yerden contents de aynı işlemi yapın işlem tamam komut satırna c1 yazmanız yeterli c1 değilde başka bir ad vermek istersiniz

(defun C:c1 ()

buradaki c1 i kafanıza göre değiştirin