Modificare parte del nome layout e layer

(vl-load-com)
(defun c:ren_lay (/ new old)
  (if (and (setq old (getstring T "\nEnter old layer name (is case sensitive): "))
	   (/= old "")
           (setq new (getstring T "\nEnter new layer name (is case sensitive): "))
           (/= new "")
      )
    (vlax-for layer
		    (vla-get-layers
		      (vla-get-activedocument
			(vlax-get-acad-object)
		      )
		    )
      (if (wcmatch (vla-get-name layer) (strcat "*" old "*"))
	(vl-catch-all-apply
	  'vla-put-name
	  (list layer (vl-string-subst new old (vla-get-name layer)))
	)
      )
    )
  )
  (princ)
)