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
Code:((-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"))