(DEFUN C:EG ()
(SETQ GETLINE (ENTSEL "\n LINE'I SEC..:"))
(SETQ P1_X (CAR (CDR(ASSOC 10 (ENTGET (CAR GETLINE))))))
(SETQ P1_Y (CADR (CDR(ASSOC 10 (ENTGET (CAR GETLINE))))))

(SETQ P2_X (CAR (CDR(ASSOC 11 (ENTGET (CAR GETLINE))))))
(SETQ P2_Y (CADR (CDR(ASSOC 11 (ENTGET (CAR GETLINE))))))
(SETQ EGIM (STRCAT "S=" (RTOS (ABS (/ (- P2_Y P1_Y) (- P2_X P1_X))))))

(SETQ GETTEXT (ENTGET (CAR (ENTSEL "\n DEGISECEK TEXT'I SECINIZ..:"))))
(SETQ GETTEXT (SUBST (CONS 1 EGIM) (ASSOC 1 GETTEXT) GETTEXT))
(ENTMOD GETTEXT)
)
  (Princ "Lispi çalıştırmak için > EG < yazınız! ")

; Çizgiyi boyunu ölçtürüp
;  yazı yazdırma lispi

(defun c:yz2 (/ nokta1 nokta2 yazi_yeri )

        (setq nokta1 (getpoint "\n Çizgi başlangıç noktası :"))
        (setq nokta2 (getpoint "\n Çizgi bitiş noktası :"))
        (setq yazi_yeri (getpoint "\n Yazı nerede olsun ? :"))
        (setq boy_degeri (distance nokta1 nokta2))
        (command "._text" "_j" "_middle" yazi_yeri (/ boy_degeri 5)  boy_degeri)
        (princ)
     )

  (Princ "Lispi çalıştırmak için > yz2 < yazınız! ")