[LISP程序]：将原有图层名改名

linshucai

(DEFUN C:REN (/ N LAY newlay LENGTHTX)
(sETVAR "CMDECHO" 0)
;********ERROR HANDLER**********************
(defun *Error* (msg)
  (if (/= msg "Function cancelled")
    (princ (strcat "\nError: " msg))
  )
(terpri)
                        
  (setq *error* olderr)        
  (princ)
)
;***********************************************
(SETQ LAY (TBLNEXT "LAYER" 1))
(SETQ N 0)
(setq LAY (TBLNEXT "LAYER" ))
(sETQ DOT ".")
(WHILE LAY
(setq oldlay (cdr (assoc 2 lay)))
(if (< 10 (strlen oldlay))
(progn
(SETQ LENGTHTX ( - (STRLEN OLDLAY) 5))
(setq newlay (substr oldlay LENGTHTX))
(SETQ TEST NEWLAY)
(SETQ NEWLAY (strcat (RTOS N 2 0) NEWLAY))
(SETQ TEST2 NEWLAY)
(command "rename" "layer" oldlay newlay)
)(SETQ P "PP"));end if
(SETQ N (1+ N))
(setq LAY (TBLNEXT "LAYER" ))
(IF (< (STRLEN DOT) 12)(SETQ DOT (STRCAT "." DOT))(SETQ DOT "."))
(PRINC (STRCAT "\r" (RTOS N 2 0) DOT))
);END WHILE

);end

sunshinejwt

好像不管用啊。