Arkadaşlar merhaba;
Çizimimin üzerinde P01, P02, ... şeklinde devam eden numaralar vermek istiyorum. Noktaları kendim seçmek istediğim için mouse ile numaranın gelmesini istediğim noktaya tıklıyorum. TEXT yazı ile oluyor ama ben bunu MTEXT yapmak istediğim zaman bir türlü olmuyor. Yaptığım kod şu şekilde;
(defun c:notasyon (/ basla pt)
(setq basla (getint "\nBaşlangıç değerini girin: "))
(while t
(setq pt (getpoint "\nBir nokta seçin (İptal için ESC):"))
(if pt
(progn
(entmake
(list
(cons 0 "MTEXT")
(cons 10 pt)
(cons 40 3.5)
(cons 7 "Calibri")
))
(setq basla (+ basla 1))
)
(progn
(princ "\nÇıkış yapılıyor")
(exit)
)
)
(princ)
)
)
