Alıntı

---

Travaci :

Alıntı

---

chnabr :

---

Miyatu

---

(defun c:Bnd ()
(setq elist (tblnext "block" T))
(setq gd (getstring "\nBlock listesindeki isimlerin sonuna koyulacak ek:"))
(while (/= elist nil)
(setq bn (cdr (assoc 2 elist)))
(setq bn1 (substr bn 1 1))
(if (/= bn1 "*")
(progn
(setq sd (strcat bn gd ))
(command "-rename" "b" bn sd "")
)
)
(setq elist (tblnext "block"))
)
)

---

Böyle birşey işinizi görürmü ?

---