1 #define DWG_TYPE DWG_TYPE_UCS
2 #include "common.c"
3
4 void
5 api_process (dwg_object *obj)
6 {
7 int error, isnew;
8 BITCODE_RC flag;
9 BITCODE_T name;
10 BITCODE_RSd used;
11 BITCODE_B is_xref_ref;
12 BITCODE_BS is_xref_resolved;
13 BITCODE_B is_xref_dep;
14 BITCODE_H xref;
15 BITCODE_3BD ucsorg;
16 BITCODE_3BD ucsxdir;
17 BITCODE_3BD ucsydir;
18 BITCODE_BD ucs_elevation;
19 BITCODE_BS UCSORTHOVIEW;
20 BITCODE_BS orthographic_type;
21 BITCODE_H base_ucs;
22 BITCODE_H named_ucs;
23 BITCODE_BS num_orthopts, i;
24 Dwg_UCS_orthopts *orthopts;
25
26 Dwg_Version_Type dwg_version = obj->parent->header.version;
27 dwg_obj_ucs *_obj = dwg_object_to_UCS (obj);
28
29 CHK_ENTITY_TYPE (_obj, UCS, flag, RC);
30 CHK_ENTITY_UTF8TEXT (_obj, UCS, name);
31 CHK_ENTITY_TYPE (_obj, UCS, used, RSd);
32 CHK_ENTITY_TYPE (_obj, UCS, is_xref_ref, B);
33 CHK_ENTITY_TYPE (_obj, UCS, is_xref_resolved, BS);
34 CHK_ENTITY_TYPE (_obj, UCS, is_xref_dep, B);
35 CHK_ENTITY_H (_obj, UCS, xref);
36
37 CHK_ENTITY_3RD (_obj, UCS, ucsorg);
38 CHK_ENTITY_3RD (_obj, UCS, ucsxdir);
39 CHK_ENTITY_3RD (_obj, UCS, ucsydir);
40 CHK_ENTITY_TYPE (_obj, UCS, ucs_elevation, BD);
41 CHK_ENTITY_TYPE (_obj, UCS, UCSORTHOVIEW, BS);
42 CHK_ENTITY_H (_obj, UCS, base_ucs);
43 CHK_ENTITY_H (_obj, UCS, named_ucs);
44 CHK_ENTITY_TYPE (_obj, UCS, num_orthopts, BS);
45 if (!dwg_dynapi_entity_value (_obj, "UCS", "orthopts", &orthopts, NULL))
46 fail ("UCS.orthopts");
47 else
48 for (i = 0; i < num_orthopts; i++)
49 {
50 CHK_SUBCLASS_TYPE (orthopts[i], UCS_orthopts, type, BS);
51 CHK_SUBCLASS_3RD (orthopts[i], UCS_orthopts, pt);
52 }
53 }