CAD关于文字样式得到所有文字样式(com接口网页版）

下面代码是遍历文字样式表中所有文字样式，并得到所有文字样式名，在遍历的循环中，得到每个文字样式记录对象，可以去修改它的属性

  function GetAllText() {
    var database = mxOcx.GetDatabase();
    // 得到所有图层名
    var sRet = null;
    //返回数据库中的文字样式表对象
    var spTextStyleTable = database.GetTextStyleTable();
    //创建一个遍历层表中所有图层的遍历器
    var spIter = spTextStyleTable.NewIterator();
    //移动当前遍历器位置
    for(;!spIter.Done();spIter.Step(true,true))
    {
        //返回遍历器当前位置的记录
        var spTextStyleRec = spIter.GetRecord();
        //符号表记录名属性
        var sName = spTextStyleRec.Name;
        // 0零层不参加比较
        if(sName != "0")
        {
            if(sRet == null)
                sRet = sName;
            else
            {
                sRet = sRet +","+sName;
            }
        }
    }
    alert(sRet);
}