Creating new list from xdata

[cadconcepts]

Hi All-

After much playing around I have been able to extract the following xdata code. Now I need to create a new list that has the entity name first with sub lists of dxf code 3 and its value from dxf code 309. For example, I would like the final list to look like this
(("7eba7c08" ("PhoneNo" . "xxx-xxx-xxxx")("DataCableNo" . "--"))(....)) and so on . I am posting below a portion of the data I extracted. Thanks in advance for any help.

Manuel A. Ayala

((-1 . <Entity name: 7eba3308>) (0 . "AEC_PROPERTY_SET_DEF") (5 . "1E91") (102 
. "{ACAD_REACTORS") (330 . <Entity name: 7eba7668>) (102 . "}") (330 . <Entity 
name: 7eba7668>) (100 . "AecDbObject") (102 . "{AEC_SUBOBJECT") (300 . 
"AecImpPropertySetDef") (100 . "AecImpObj") (3 . "") (100 . "AecImpDictRecord") 
(3 . "SpaceObject (02)") (100 . "AecImpPropertySetDef") (102 . 
"{AEC_PROPERTY_DEFS") (100 . "AecImpObj") (3 . "") (100 . "AecImpArray") (90 . 
10) (102 . "{AEC_SUBOBJECT") (300 . "AecPropertyDef") (100 . "AecImpObj") (3 . 
"Number") (100 . "AecPropertyDef") (92 . 0) (1 . "Number") (70 . 4) (340 . 
<Entity name: 7eba7d28>) (71 . 0) (102 . "{AEC_VARIANT") (70 . 72) (99 . 101) 
(102 . "AEC_VARIANT}") (102 . "AEC_SUBOBJECT}") (102 . "{AEC_SUBOBJECT") (300 . 
"AecPropertyDef") (100 . "AecImpObj") (3 . "OccupantName - Last, First") (100 . 
"AecPropertyDef") (92 . 1) (1 . "OccupantName") (70 . 2) (340 . <Entity name: 
7eba7c08>) (71 . 0) (102 . "{AEC_VARIANT") (70 . 72) (309 . "--") (102 . 
"AEC_VARIANT}") (102 . "AEC_SUBOBJECT}") (102 . "{AEC_SUBOBJECT") (300 . 
"AecPropertyDef") (100 . "AecImpObj") (3 . "SpaceType") (100 . 
"AecPropertyDef") (92 . 2) (1 . "SpaceType") (70 . 6) (340 . <Entity name: 
7eba7c08>) (71 . 0) (102 . "{AEC_VARIANT") (70 . 72) (309 . "06-WkSt - 42 SF") 
(102 . "AEC_VARIANT}") (102 . "AEC_SUBOBJECT}") (102 . "{AEC_SUBOBJECT") (300 . 
"AecPropertyDef") (100 . "AecImpObj") (3 . "Department") (100 . 
"AecPropertyDef") (92 . 3) (1 . "Department") (70 . 2) (340 . <Entity name: 
7eba7c08>) (71 . 0) (102 . "{AEC_VARIANT") (70 . 72) (309 . "--") (102 . 
"AEC_VARIANT}") (102 . "AEC_SUBOBJECT}") (102 . "{AEC_SUBOBJECT") (300 . 
"AecPropertyDef") (100 . "AecImpObj") (3 . "Sub-Department01") (100 . 
"AecPropertyDef") (92 . 4) (1 . "Sub-Department01") (70 . 2) (340 . <Entity 
name: 7eba7c08>) (71 . 0) (102 . "{AEC_VARIANT") (70 . 72) (309 . "--") (102 . 
"AEC_VARIANT}") (102 . "AEC_SUBOBJECT}") (102 . "{AEC_SUBOBJECT") (300 . 
"AecPropertyDef") (100 . "AecImpObj") (3 . "Sub-Department02") (100 . 
"AecPropertyDef") (92 . 5) (1 . "Sub-Department02") (70 . 2) (340 . <Entity 
name: 7eba7c08>) (71 . 0) (102 . "{AEC_VARIANT") (70 . 72) (309 . "--") (102 . 
"AEC_VARIANT}") (102 . "AEC_SUBOBJECT}") (102 . "{AEC_SUBOBJECT") (300 . 
"AecPropertyDef") (100 . "AecImpObj") (3 . "PhoneNo") (100 . "AecPropertyDef") 
(92 . 6) (1 . "PhoneNo") (70 . 2) (340 . <Entity name: 7eba7c08>) (71 . 0) (102 
. "{AEC_VARIANT") (70 . 72) (309 . "xxx-xxx-xxxx") (102 . "AEC_VARIANT}") (102 
. "AEC_SUBOBJECT}") (102 . "{AEC_SUBOBJECT") (300 . "AecPropertyDef") (100 . 
"AecImpObj") (3 . "DataCableNo") (100 . "AecPropertyDef") (92 . 7) (1 . 
"DataCableNo") (70 . 2) (340 . <Entity name: 7eba7c08>) (71 . 0) (102 . 
"{AEC_VARIANT") (70 . 72) (309 . "--") (102 . "AEC_VARIANT}") (102 . 
"AEC_SUBOBJECT}") (102 . "{AEC_SUBOBJECT") (300 . "AecPropertyDef") (100 . 
"AecImpObj") (3 . "RespCode") (100 . "AecPropertyDef") (92 . 8) (1 . 
"RespCode") (70 . 2) (340 . <Entity name: 7eba7c08>) (71 . 0) (102 . 
"{AEC_VARIANT") (70 . 72) (309 . "--") (102 . "AEC_VARIANT}") (102 . 
"AEC_SUBOBJECT}") (102 . "{AEC_SUBOBJECT") (300 . "AecPropertyDef") (100 . 
"AecImpObj") (3 . "Calculated Area") (100 . "AecPropertyDef") (92 . 9) (1 . 
"CalculatedArea") (70 . 2) (340 . <Entity name: 7eba7d08>) (71 . 0) (102 . 
"{AEC_VARIANT") (70 . 72) (309 . "") (102 . "AEC_VARIANT}") (102 . 
"{AEC_QUERY_INFO") (3 . "AecDbSpace") (4 . "AecQueryAecDbSpace") (6 . 
"Calculated Area") (91 . 541) (102 . "AEC_QUERY_INFO}") (102 . 
"AEC_SUBOBJECT}") (102 . "AEC_PROPERTY_DEFS}") (3 . "AcDbBlockReference") (3 . 
"AecDbSpace") (70 . 1) (71 . 1) (72 . 0) (102 . "AEC_SUBOBJECT}") (102 . 
"{AEC_NULLOBJECT}") (100 . "AecDbDictRecord") (100 . "AecDbPropertySetDef"))

[RobertB]

I would suggest making the list with the object handle since entity names will change every time the drawing is opened.

Something similar to this:

(list 
 (cdr (assoc 5 xData)) 
 (cons "PhoneNo" (cdr (assoc 309 (vl-member-if '(lambda (a) (= (cdr a) "PhoneNo")) xData)))) 
 (cons "DataCableNo" (cdr (assoc 309 (vl-member-if '(lambda (a) (= (cdr a) "DataCableNo")) xData)))))

("1E91" ("PhoneNo" . "xxx-xxx-xxxx") ("DataCableNo" . "--"))

[cadconcepts]

Hi Robert-

Thanks for the help. I am attaching a piece of the drawing I am working on (AutoCAD 2009 format). First, I need to extract xdata stored in each of the objects. I know the dictionary is called "AEC_PROPERTY_SET_DEFS" and the data I wish to extract is stored in the following 2 items: SpaceObject (01) and SpaceObject (02). Try as I might, it seems that I cannot get to this data. I tried to drill down into each object's dxf code by I am getting nowhere fast. Thanks.

Manuel

[RobertB]

Did you try the code I posted?

[cadconcepts]

Hi Robert-

Yes, I try the code you posted and it worked perfectly. However, I soon discovered that the code I extract only addressed one of the 315 objects that were in the drawing. I then proceeded to do an ssget with a filter which found all of the 315 objects. Now I am faced with trying to find where within the object the code I am looking for resides. Again thanks for your help.

Manuel

[RobertB]

Once you have the selection set of all the objects, you just iterate thru the set. For each object in the selection set, get the property set data, and then get the desired data. Append the data to a separate list for all the objects.

[cadconcepts]

Robert-

The first portion of code I posted was what I extracted from a specific dictionary within the drawing. However, when I build a selection set and begin to drill down into dxf codes of one of the entities in the selection set I cannot find the dictionary I am looking for. I am assuming that every entity has a location where it stores specific data that parallels the data stored in the drawing dictionary. What I have thus far for testing purposes is as follows:

(setq sset (ssget "X" '((0 . "AEC_SPACE"))))
(setq ent (ssname sset 0))
(setq entlst (entget ent))

Thanks.

Manuel

[cadconcepts]

Hi All-

Can anyone please help me with this? I am really struggling with it and I don't know where to go next. Please see above posting. Thanks.

Manuel