Merhaba değerli forum arkadaşlarım
elimde boyle bir lisp var kolon nosu verirken cok ısıme yarıyor
ancak mahal numarı vermek ıcın nasıl bir değişiklik olabılır.
Ornegin:
Kare içinde 18N02 basta kat numarasnı gırsem yeterlı (18) sonra serı serı tıklayarak numara vermeye başlıyabılırmıyım
ılgınız ıcın teşekurler..
(defun c:no ()
(setq tc_met (getstring t "\nSayıların başına gelecek metni yazın:"))
(if (= tc_met nil)
(progn)
(progn
(setq tc_num (getint "\nBirinci Numara:"))
(if (= tc_num nil)
(progn)
(progn
(setvar "errno" 0)
(setq tc_num_uy tc_num)
(setq tc_ent nil)
(while (= tc_ent nil)
(initget "C")
(setq tc_ent (entsel "\nYazıyı Seç / Cıkış:"))
(if (= tc_ent nil)
(progn
(if (= (getvar "errno") 0)
(progn
(setq tc_ent nil)
(setvar "errno" 0)
)
)
(if (= (getvar "errno") 52)
(progn
(setq tc_ent t)
(setvar "errno" 0)
)
)
)
(progn
(setq tc_tan (cdr (assoc 0 (entget (car tc_ent)))))
(if (/= tc_tan "TEXT")
(progn
(princ "\nSeçilen nesne yazı değil...")
(setq tc_ent nil)
)
(progn
(setq tc_stil (cdr (assoc 7 (entget (car tc_ent)))))
(setq tc_stil_yuk
(cdr (assoc 40 (tblsearch "style" tc_stil))
)
)
(if (= tc_stil_yuk 0.0)
(progn
(command "change" tc_ent "" "" "" "" "" "" (strcat tc_met (rtos tc_num_uy 2 0)))
(setq tc_num_uy (1+ tc_num_uy))
(setq tc_ent nil)
)
(progn
(command "change" tc_ent "" ""
"" "" "" (strcat tc_met (rtos tc_num_uy 2 0)
))
(setq tc_num_uy (1+ tc_num_uy))
(setq tc_ent nil)
)
)
)
)
)
)
)
)
)))
(princ)
)
(princ)