0 Members and 1 Guest are viewing this topic.
(defun C:RenameLayers () (setq strOld (getstring "\nOld String: ") strNew (getstring "\nNew String: ") ) (vlax-for objLayer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object) ) ) (setq strLayerName (vla-get-name objLayer)) (if (and (/= (vl-string-subst strNew StrOld strLayerName) strLayerName ) ) (not (tblsearch "layer" strLayerName)) ) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-name (list objLayer (vl-string-subst strNew StrOld strLayerName)) ) ) ) ) )
(defun C:RenameLayers (/ objLayer strNew strOld ) (setq strOld (getstring "\nOld String: ") strNew (getstring "\nNew String: ") ) (vlax-for objLayer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object) ) ) (setq strLayerName (vla-get-name objLayer)) (if (and (/= (vl-string-subst strNew StrOld strLayerName) strLayerName ) (not (tblsearch "layer" strLayerName)) ) (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-name (list objLayer (vl-string-subst strNew StrOld strLayerName)) ) ) ) ))