(setq msg1 (strcase "\n Tıkla bakimm:" ))

(setq islem1 (ornekkomut (eval (read "msg1"))  ))

; ****************************************************
;
;    Command  satırında  gözüken  yazıya
;             Müdahalle etme lispi
;
; ****************************************************

(defun c:lnx2 ( )
 
   (setq oldsnap (getvar "OSMODE"))
   (setvar "OSMODE" 0)
 
   (setq msg1 (strcase "\n Tıkla bakimm:" ))   ; command satırında gözükecek olan yazı
   (setq msg2 (strcase "\n Diger nokta:" ))
   (setq msg3 (strcase "\n Son nokta:" ))
 
   (setq yr1 (getpoint (eval (read "msg1")) ))  ; bu satır doğru mu acaba ?
   (setq yr2 (getpoint (eval (read "msg2")) ))
   (setq yr3 (getpoint (eval (read "msg3")) ))
   
   (command "line" yr1 yr2 yr3 "c" )     ; çizgi çizdirme işlemi
   (setvar "OSMODE" oldsnap)
   (princ)
)

(Princ "Lisp'i çalıştırmak için >> lnx2 << yazınız!")

; ****************************************************