Export Layout Tab Names

[avdesign]

Hey everybody,
I did a search already and didn't find anything related to what I'd like to do.

What I want to do is export the name of a single layout tab or multiple layout tabs to a text file. The one thing I don't want to use is Sheet set Manager. I there a way to do this or am I SOL.

[Ed Jobe]

Nothing built into acad, but lisp or vba can do it.

[rkmcswain]

Here is a quick routine to do this....

(setq fn (strcat (getenv "temp") "\\" "layoutlist.txt")
      fp (open fn "w")
)      
(vlax-for x
	  (vla-get-Layouts
	    (vla-get-ActiveDocument
	      (vlax-get-acad-object)
	    )
	  )
          (princ (vla-get-Name x) fp)
          (princ "\n" fp)
)
(close fp)
(startapp "notepad" fn)

[avdesign]

Oh freakin' Sweet
Thanks for that chunk of code.

[rkmcswain]

No problem. Have a good one.

[rmk]

Is that code vba or lisp? How would I save it and activate it?

[rkmcswain]

Lisp.
Copy it to Notepad.
Save as a file like "listlayouts.lsp" - to a directory that is in your support file search path
When you need to run it, just load it like this (load "listlayouts")

[rmk]

Thanks R.K. I appreciate the info.
Robert

Does it work with acad 2008 vanilla. I copied it and saved it in the support directory, but when i loaded it i got this error: ; error: no function definition: VLAX-GET-ACAD-OBJECT. Not savvy with lisp, so i have no idea what this means.

[rkmcswain]

Sorry about that. Add (vl-load-com) to the top of the file.

[rmk]

Thanks, that worked just fine.