すべてのテキストスタイルを取得するための運用上のCADテキストスタイル（COMインターフェイスWebバージョン）

以下のすべてのテキストスタイル、文字スタイルシートによるコード、およびテキストスタイル、トラバーサルサイクルのすべての名前を与えるために、各レコードのテキストスタイルオブジェクトを与えるために、そのプロパティを変更することができます

  機能GetAllText（）{
     VARのデータベース= mxOcx.GetDatabase（）;
     // 取得し、すべてのレイヤ名
    のvar SRETある= ヌル;
     // データベースのテキストスタイルシートオブジェクトを返す
    VAR spTextStyleTable = database.GetTextStyleTable（）;
     //はトラバースを作成します階層テーブルウォーカー内のすべての層
    VAR SPIT発呼者= spTextStyleTable.NewIterator（）;
     //は現在のトラバース位置を移動させる
    ための（;！spIter.Done（）; spIter.Step（trueに、真の））
    { 
        // 戻りイテレータ現在の位置を記録
        VAR spTextStyleRec = spIter.GetRecordを（）;
         // シンボルテーブルレコード名属性
        VAR SNAME = spTextStyleRec.Name;
         // 0が比較レベルゼロに関与しない
        IF（！SNAME = "0" ）
        { 
            IFは（SRETが==であるヌル）
                SRETは = SNAME;
             他
            { 
                SRETは = SRETある+ "" + SNAME; 
            } 
        } 
    } 
    アラート（SRETです）; 
}