;;; Layer Tablosunda Belirlediğiniz Yazıyı Yenisiyle Değiştirir ;;;

(defun c:cLn (/)
  (setvar "cmdecho" 0)
  (setq oLdnMe (getstring "\nEski yazı: " t)
        newname (getstring "\nYeni yazı: "t)
        laYlisT (tblnext "LaYeR" t))
  (while (/= laYlisT nil)
    (setq lYrnme (cdr (assoc 2 laYlisT)))
    (if (/= lYrnme (itoa 0))
      (progn
        (if (/= (vl-string-search oLdnMe lyrnme ) nil)
          (progn
            (setq position (vl-string-search oLdnMe lyrnme))
            (while (/= (setq position (vl-string-search oLdnMe
                                        lyrnme position)) nil)
              (setq lyrnmee  (vl-string-subst newname oLdnMe lyrnme position))
              (setq position (min (+ position (strlen newname))
                                              (strlen lyrnme)))
            )
            (command "-rename" "layer" lyrnme lyrnmee)
          )
        )
      )
    )
    (setq laYlisT (tblnext "LaYer"))
    (princ)
  )
)

;;; *************************e.tRaVaCi************************** ;;;