test

<br /><pre class="js" cols="100" rows="15" name="code"><br />(defun c:rnb (/ en ent ety ena enn)<br /></pre><pre class="js" cols="100" rows="15" name="code"><br />  (princ "\nFishLISP C:RNB v1.0.")<br />  (if (setq en (entsel "\n选取要改名的图块："))<br />    (if en<br />      (progn<br />        (setq ent (entget (car en))<br />            ety (cdr (assoc 0 ent))<br />        )<br />        (if (= ety "INSERT")<br />          (progn<br />            (setq ena (cdr (assoc 2 ent)))<br />            (setq loop t)<br />            (while loop<br />              (princ "\n图块名称：<")               (princ ena)               (setq enn (getstring 1 "> "))<br />              (if (member enn (list "" " " ena))<br />                (setq loop nil enn ena)<br />                (if (tblsearch "block" enn)<br />                  (princ "\n已经存在此名称的图块。")<br />                  (setq loop nil)<br />                ); if exist?<br />              ); if no change?<br />            ); while<br />            (setvar "cmdecho" 0)<br />            (command "rename" "block" ena enn)<br />            (setvar "cmdecho" 1)<br />          ); progn =INSERT<br />          (princ "\n对象不是图块。")<br />        );if INSERT?<br />      ); progn en<br />    ); if en?<br />  ); if picked<br />  (princ)<br />)</pre><br /><pre class="js" cols="100" rows="15" name="code"><br />(princ)<br /></pre><br />