vbscript - PowerDesigner - 拡張属性「再定義」属性がチェックされているかどうかを確認する - VBScript を使用

Question

私は本当にこの問題について助けが必要です.私は理解できません. 契約は次のとおりです。

概念

私は Power Designer を使用してモデルを設計し、それを SAS メタ サーバーにインポートしています。モデルのエラーをチェックする VBScript を作成したいと考えています。SAS は、PD にはないいくつかの属性を使用するため、テーブルと列への拡張属性を含む XEM ファイルをモデルに添付しています。考えられる問題の原因を除いて、拡張属性のエラーをチェックできます。テーブルを開いて拡張属性に移動すると、「再定義」を表す「R」(拡張属性の「値」列の右側) という列 (すべての拡張属性用) があり、常にチェックされています (true ) 拡張属性に値を与える場合、拡張属性の値を空にすると、常にそれ自体のチェックを外します (false)。

質問

テーブルまたは列の拡張属性が再定義されているかどうかについて、VBScript を使用して情報にアクセスするにはどうすればよいですか?

拡張属性の値を確認するために使用するコードを次に示します。私はおそらくPDのオブジェクト構造を理解していないだけで、値の代わりに「R」（再定義）をチェックする方法を理解できません...

拡張属性に関する情報を取得するために使用するコードは次のとおりです。

For Each ModelExtension In ActiveModel.ExtendedModelDefinitions
    For Each ExtAttr in ModelExtension.GetMetaExtensionsForClass(PdPDM.Cls_Column, Cls_ExtendedAttributeTargetItem)
         'SASFormat is an extended attribute for columns
        If ExtAttr.Name="SASFormat" Then
            output ExtAttr.Name
            output ExtAttr.ObjectID
            output ExtAttr.Model
        End if
    Next
Next

そして、これを使用して、列のすべての拡張属性の値を取得します。

For Each Table In ActiveModel.Tables
      For Each Column In Table.Columns
            'Extended attributes check

            For Each ModelExtension In ActiveModel.ExtendedModelDefinitions
                For Each ExtAttr in ModelExtension.GetMetaExtensionsForClass(PdPDM.Cls_Column, Cls_ExtendedAttributeTargetItem)
                    xEAN = ExtAttr.Name
                    xEAValue = Column.GetExtendedAttributeText(xEAN)
                    tn=Table.Name
                    cn=Column.Name

                    output tn
                    output cn
                    output xEAN
                    output xEAValue
                    end if
                Next
            Next
     Next
Next

TL;DR

テーブルまたは列の拡張属性が再定義されているかどうかについて、VBScript を使用して情報にアクセスするにはどうすればよいですか?