Search the Community

After this discussion it was determined that a table style cannot be replaced in a simple step like you with blocks. Replace Table Style I was attempting to write a routine to rename three table styles so that I can bring in "new and improved" versions of those tables from a template. Given Tablestyles: Style1, Style2 & Style3 I'd like to rename to OLD1, OLD2 & OLD3 respectively... I do not know what I'm doing. This does not work at all. (defun C:RTS2 (/ oldname newname tbllist);;; (setq oldname "STYLE1" newname "OLD1") (setq tbllist (tblstyle)) (if (member oldname tbllist) (progn (command "tablestyle" oldname "rename" newname) (princ (strcat "Table style " oldname " renamed to " newname)) ) (princ (strcat "Table style " oldname " not found")) ) (princ) ) I found some code by Lee for deleting a Tablestyle but way over my head to modify to suit.. (defun c:deltab ( / dic sty ) ;;;Lee Mac (if (setq dic (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_TABLESTYLE")))) (progn (while (not (or (= "" (setq sty (getstring t "\nSpecify Table Style to Delete: "))) (dictsearch dic sty) ) ) (princ "\nTable Style not found.") ) (if (/= "" sty) (dictremove dic sty)) ) (princ "\nTable Styles not present in this version.") ) (princ) ) Lee says this is dangerous but may have some value for my use (defun c:deltab ( / dic ) (if (setq dic (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_TABLESTYLE")))) (foreach sty '("Style1" "Style2" "Style3") (dictremove dic sty) ;;I'm not wanting to delete them but rename them... ) (princ "\nTable Styles not present in this version.") ) (princ) )