Allan_LT Posted May 17, 2023 Share Posted May 17, 2023 Hi, can anyone point me in the direction where I code find a lisp code that will rename the suffix all the layout tabs in my current drawing. last three characters only of a 8 character layout name. many thanks Quote Link to comment Share on other sites More sharing options...
Tharwat Posted May 17, 2023 Share Posted May 17, 2023 Post an example dwg for further clarification. Quote Link to comment Share on other sites More sharing options...
ronjonp Posted May 17, 2023 Share Posted May 17, 2023 Try this: (defun c:foo (/ str) (if (= 3 (strlen (setq str (getstring "\Enter new 3 digit suffix")))) (vlax-for l (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) (vl-catch-all-apply 'vla-put-name (list l (strcat (substr (vla-get-name l) 1 5) str))) ) (print "Input is invalid!") ) (princ) ) 1 Quote Link to comment Share on other sites More sharing options...
Allan_LT Posted May 18, 2023 Author Share Posted May 18, 2023 Thank Ronjonp, worked perfectly Quote Link to comment Share on other sites More sharing options...
ronjonp Posted May 18, 2023 Share Posted May 18, 2023 2 hours ago, Allan_LT said: Thank Ronjonp, worked perfectly Glad to help. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.