Get Value of custom field name in the Drawing Properties using Autolisp

[iharper]

I have a simple Autolisp question, similar to this if anyone can answer. I am writing a routine, and in the routine I want to be able to get (and Store with a Setq if needed) the value from a custom field in the drawing from the Drawing Properties. (for example: FLRLEVEL would be the custom field name in the Drawing Properties and the Value may be something like  02, for the second floor). This field is not really tied to any particular object in the drawing, so I am not sure if it can be done without an Object ID? (Which is what all of the examples have been of) I know I could have the lisp prompt for the floor number, but this routine will be ran multiple times in each DWG and I was hoping to have it stored with the DWG rather than the LISP routine; I have tried GETVAR but it is not found as a system variable. If anyone can assist me I will be forever grateful. Thank you in advance.

[paullimapa]

This thread may give you a good start...not sure if it covers custom fields but it covers that standard ones:

http://www.cadtutor.net/forum/showthread.php?87345-Useing-LISP-to-Populate-Drawing-Properties-Fields

[dale_fugier]

If you had DOSLib, you could use the dos_custominfo function.

http://www.en.na.mcneel.com/doslib/acad_functions/dos_custominfo.htm

http://wiki.mcneel.com/developer/doslib

[Shneuph · Accepted solution]

Be sure you have vla functions loaded (vl-load-com)

(setq tlv-docSummary (vla-get-summaryinfo (vla-get-activedocument (vlax-get-acad-object))))
(vla-getcustombykey tlv-docSummary "Floor" 'tlv-propname))

 "Floor" is your custom property name (string value) used as KEY to custom property value

GetCustomByKey Help

[iharper]

Thank you everyone, I was under a tight deadline and was able to figure it out a a few hours after I made the cry for help. Sorry this is the first chance I have had time to reply. I am glad that I know that you are all out there to help me in the future though. Thank you again everyone!

[scot-65]

In addition to what Pli provided:

Look into VLAX-LDATA-PUT / VLAX-LDATA-GET.
This method hides the information inside the drawing as a
Dictionary and it cannot be edited outside by another program
(such as explorer -> properties dialog).

If you need to store more than one value, under one "key", look into LIST.

Access the information by doing the following:
(VL-LOAD-COM)
(setq a (VLAX-LDATA-GET "MyMenu" "ThisProgram"))

Had you PUT the information as a LIST:
(if (= (nth 0 a) "02")...

One good thing about LIST in LISP is that data types can be mixed
together without issues (LIST, STRING, REAL, INTEGER, ETC.).
(VLAX-LDATA-PUT "MyMenu" "ThisProgram" (list "02" "E2-170" 120.45 65 (getvar "CDATE") '(0.0 1.0) (get_tile "Edi101"))