1  // TODO DEBUGGING GRUE_LTM_1090+_from_cadforum.cz,
       2  // Annotation_-_Metric_from_autocad_2021_2018
       3  #define DWG_TYPE DWG_TYPE_BLOCKPOLARSTRETCHACTION
       4  #include "common.c"
       5  
       6  void
       7  api_process (dwg_object *obj)
       8  {
       9    int error, isnew;
      10    BITCODE_BL i;
      11    BLOCKACTION_fields;
      12    BITCODE_BL num_pts;
      13    BITCODE_2RD *pts;
      14    BITCODE_BL num_hdls;
      15    BITCODE_H *hdls;
      16    BITCODE_BS *shorts;
      17    BITCODE_BL num_codes;
      18    BITCODE_BL *codes;
      19  
      20    Dwg_Version_Type dwg_version = obj->parent->header.version;
      21    // #ifdef DEBUG_CLASSES
      22    dwg_obj_blockpolarstretchaction *_obj
      23        = dwg_object_to_BLOCKPOLARSTRETCHACTION (obj);
      24  
      25    // AcDbBlockAction
      26    CHK_ENTITY_3RD (_obj, BLOCKPOLARSTRETCHACTION, display_location);
      27    CHK_ENTITY_TYPE (_obj, BLOCKPOLARSTRETCHACTION, num_actions, BL);
      28    CHK_ENTITY_VECTOR_TYPE (_obj, BLOCKPOLARSTRETCHACTION, actions, num_actions,
      29                            BL);
      30    CHK_ENTITY_TYPE (_obj, BLOCKPOLARSTRETCHACTION, num_deps, BL);
      31    CHK_ENTITY_HV (_obj, BLOCKPOLARSTRETCHACTION, deps, num_deps);
      32    // AcDbBlockPolarStretchAction
      33    for (i = 0; i < 6; i++)
      34      {
      35        CHK_SUBCLASS_TYPE (_obj->conn_pts[i], BLOCKACTION_connectionpts, code,
      36                           BL);
      37        CHK_SUBCLASS_UTF8TEXT (_obj->conn_pts[i], BLOCKACTION_connectionpts,
      38                               name);
      39      }
      40    CHK_ENTITY_TYPE (_obj, BLOCKPOLARSTRETCHACTION, num_pts, BL);
      41    CHK_ENTITY_2DPOINTS (_obj, BLOCKPOLARSTRETCHACTION, pts, num_pts);
      42    CHK_ENTITY_TYPE (_obj, BLOCKPOLARSTRETCHACTION, num_hdls, BL);
      43    CHK_ENTITY_HV (_obj, BLOCKPOLARSTRETCHACTION, hdls, num_hdls);
      44    CHK_ENTITY_VECTOR_TYPE (_obj, BLOCKPOLARSTRETCHACTION, shorts, num_hdls, BS);
      45    CHK_ENTITY_TYPE (_obj, BLOCKPOLARSTRETCHACTION, num_codes, BL);
      46    CHK_ENTITY_VECTOR_TYPE (_obj, BLOCKPOLARSTRETCHACTION, codes, num_codes, BL);
      47    // ..
      48    // #endif
      49  }