[求助]：有学习MicroStation的吗？

pjknxp

我刚刚开始学习，有很多才鸟问题，其中一些问题往往要一晚上还搞不明白，不是我懒啊！！！
确实需要帮忙可是羞于在这里提出，希望能交一些朋友，及时请教、互相交流。
QQ:67723475
pjknxp@heinfo.net

dragonspower

本论坛都是学习MS的，需要帮忙尽管提出吧，大家交流才能都互相提高。

jxfzcgh

我想获取一个dgn文件所有的图元实体，代码如下：
'Scan Dgn File for Feature Element...
    Dim msdESC As MicroStationDGN.ElementScanCriteria
    Dim msdElementEnum As MicroStationDGN.ElementEnumerator

    Set msdESC = New MicroStationDGN.ElementScanCriteria
    With msdESC
         .ExcludeAllTypes
         .IncludeOnlyVisible
         .IncludeType msdElementTypeArc _
                      + msdElementTypeEllipse _
                      + msdElementTypeLine _
                      + msdElementTypeLineString _
                      + msdElementTypeShape _
                      + msdElementTypeCurve _
                      + msdElementTypeCellHeader _
                      + msdElementTypeComplexShape _
                      + msdElementTypeComplexString _
                      + msdElementTypeText
    End With
   
    Dim msdElementCache As MicroStationDGN.ElementCache
   
    Set msdElementEnum = msdElementCache.Scan(msdESC)

扫描出来的element.type如下：
Feature 1 Type:msdElementTypeDesignFileHeader
Feature 2 Type:msdElementTypeTable
Feature 3 Type:msdElementTypeTable
Feature 4 Type:msdElementTypeTable
Feature 5 Type:msdElementTypeTable
Feature 6 Type:msdElementTypeViewGroup
Feature 7 Type:msdElementTypeTable
Feature 8 Type:msdElementTypeDesignFileHeader
Feature 9 Type:msdElementTypeTable
Feature 10 Type:msdElementTypeTable
Feature 11 Type:msdElementTypeTable
Feature 12 Type:msdElementTypeTable
Feature 13 Type:msdElementTypeViewGroup
Feature 14 Type:msdElementTypeTable

我想问，如何获取图元，比如 cell,line,linestring,shape，text等