How to use custom DWGPROPS inside a LISP

[chcho88]

Hi,

This is my first post here, but I've been using AUGI Forums for a while now. I've been lucky enough to find most if not all of the information I needed until now.

I'm at a very beginner level with writing LISPs, but is it possible to use a custom dwgprops field inside a LISP?

I'm writing a simple LISP that saves the individual sheet with a specific file name (eventually I want to set a location as well). I want the file name to be derived from the dwg file name, tab name, and a custom dwgprops I added.

i.e.
DWGNAME = car
TAB NAME = 11x17
Custom dwgprops (MonthYear) = August 2018
=
car_11x17_August 2018

I got as far as the tab name, but I am stuck with trying to get the custom dwgprops into the file name. Any help is greatly appreciated. Thank you!

(defun c:EP (/ savename)
	(setq savename (strcat (vl-filename-base (getvar "dwgname")) (getvar "ctab") (setq dProps (vlax-getProperty acadDocument 'MonthYear))))
	(command "-export" "p" "c" "n" savename)
(princ)
)

[Opie]

Have a look at this post to see if there is anything there that may help you.

Also, when posting code you can place your code in a code block by surrounding your code with the [code]... your code here...[/code] tags.

[chcho88]

Thank you! I didn't quite fully understand what was going on that code, but I got somehow got some info from it and got my code to work. If you want to take a look, it's down below.

I know this is a separate topic, but do you happen to know if there is a way to add to this LISP so that it PDFs out all the sheets as individual files with one command, with their own separate names (only difference would be the ctab name)?
i.e. dwgfilename_11x17_date
dwgfilename_24x36_date
(the paper size would be on the tab title, which is derived from "ctab")

(defun c:EP (/ dmy newpath underscore savename)
	(setvar "filedia" 0)

    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq summaryInfo (vla-get-SummaryInfo doc))

    (vla-GetCustomByIndex summaryInfo 0 'Key0 'Value0)
	(setq dmy Value0)
	(setq newpath "c:/work/")
	(setq underscore "_")
	(setq savename 
		(strcat newpath
			(vl-filename-base
				(getvar "dwgname")
			)
			underscore
			(getvar "ctab") underscore dmy
		)
	)
	(command "-export"
		"p"
		"c"
		"n"
		savename)
	(setvar "filedia" 1)
(princ)
)

[Opie]

Check this app from BlackBox for the AutoPublish.