设置文字样式并写入CAD

//设置字体样式
AcDbObjectId CMainDlg::createTextStyle(CString fontName,CString bigFontName,CString textStyleName)
{
 Acad::ErrorStatus es;
 AcApDocument *pDoc=acDocManager->curDocument();
 es=acDocManager->lockDocument(pDoc);
 if(es!=Acad::eOk)
 {
  acutPrintf("锁定文档失败");
  return NULL;
 }
 AcDbObjectId textStyleId;
 AcDbTextStyleTable textStyleTable;
 //textStyleTable.getAt("宋体",textStyleId,false);
 AcGiTextStyle *TextStyle=new AcGiTextStyle(fontName,bigFontName,0,0,0,0,Adesk::kFalse,Adesk::kFalse,
           Adesk::kFalse,Adesk::kFalse,Adesk::kFalse,textStyleName); //字体名
 toAcDbTextStyle(*TextStyle,textStyleId);
 acDocManager->unlockDocument(pDoc);
 return textStyleId;
}

//文字写入
void CMainDlg::createText(AcGePoint3d pt,CString strText,double scale,double high/*,CString textCate*/)