Создание типа линии с помощью ARX

static void CreateMyLineType(void)
{
  Acad::ErrorStatus es;
  // Сначала найдем или создадим AcDbTextStyleTableRecord для ltypeshp.shx
  // Этот файл должен быть в путях доступа AutoCAD
  AcDbTextStyleTablePointer pTT(acdbCurDwg(),AcDb::kForRead);
  if (pTT.openStatus() == Acad::eOk) {
    AcDbObjectId ttId;
    AcDbTextStyleTableIterator *iter = NULL;
    if ((es = pTT->newIterator(iter)) != Acad::eOk) {
      acutPrintf("\npTT->newIterator(iter)=%s",acadErrorStatusText(es));
      return;
    }
    for (iter->start();!iter->done(); iter->step()) {
      AcDbTextStyleTableRecord *pTTR=NULL;
      if ((es = iter->getRecord(pTTR,AcDb::kForRead)) != Acad::eOk) {
        acutPrintf("\niter->getRecord(pTTR,AcDb::kForRead)=%s",acadErrorStatusText(es));
        delete iter;
        return;
      }
      const char *fname = NULL;
      pTTR->fileName(fname);
      if (!stricmp(fname,"ltypeshp.shx")) {
        ttId = pTTR->objectId();
        pTTR->close();
        break;
      }
      pTTR->close();
    }
    delete iter;
    //
    // Если подходящей записи в таблице стилей нет - создадим ее!
    //
    if (ttId.isNull()) {
      if (pTT->upgradeOpen() != Acad::eOk) {
        return;
      }
      AcDbTextStyleTableRecord *pTTR = new AcDbTextStyleTableRecord();
      pTTR->setFileName("ltypeshp.shx");
      pTTR->setIsShapeFile(true);
      if ((es = pTT->add(ttId,pTTR)) != Acad::eOk) {
        acutPrintf("\npTT->add(ttId,pTTR)=%s",acadErrorStatusText(es));
        delete pTTR;
        return;
      }
      pTTR->close();
    }
    pTT->close();
    //
    // Теперь можно заняться типом линии
    //
    AcDbLinetypeTablePointer pLT(acdbCurDwg(),AcDb::kForRead);
    if ((es = pLT.openStatus()) != Acad::eOk) {
      acutPrintf("\npLT.openStatus()=%s",acadErrorStatusText(es));
      return;
    }
    AcDbObjectId ltrid;
    if (pLT->getAt("MY_LINETYPE",ltrid) == Acad::eOk) {
      acutPrintf("\nТип линии с таким именем уже есть!");
      return;
    }
    if ((es = pLT->upgradeOpen()) != Acad::eOk) {
      acutPrintf("\npLT->upgradeOpen()=%s",acadErrorStatusText(es));
      return;
    }
    //
    // Типа линии еще не было - создадим его.
    //
    AcDbLinetypeTableRecord *pLTR = new AcDbLinetypeTableRecord();
    pLTR->setName("MY_LINETYPE");
    pLTR->setComments("Программно созданный тип линии");
    pLTR->setPatternLength(36.83);
    pLTR->setNumDashes(4);
    pLTR->setDashLengthAt(0,6.35);
    pLTR->setDashLengthAt(1,-2.54);
    pLTR->setShapeNumberAt(1,133);
    pLTR->setShapeStyleAt(1,ttId);
    pLTR->setShapeOffsetAt(1,AcGeVector2d(-2.54,0));
    pLTR->setShapeScaleAt(1,2.54);
    pLTR->setDashLengthAt(2,-2.54);
    pLTR->setDashLengthAt(3,25.4);
    if ((es = pLT->add(ltrid,pLTR)) != Acad::eOk) {
      acutPrintf("\npLT->add(ltrid,pLTR)=%s",acadErrorStatusText(es));
      delete pLTR;
    }
    pLTR->close();
  }
}