MicroStation VBA读取AutoCAD CASS地形图坐标点写入数据文件

Sub sel_cass_points()
Dim el As Level
Dim sc As ElementScanCriteria
Dim ee As ElementEnumerator
Dim e_num As Long

Dim point_coor As String
Dim px As Double
Dim py As Double
Dim ph As Double

Dim datFileName As String
Dim fileNum As Long
datFileName = fi1eOpenCreate("*.dat", "F:\", "保存数据文件")

If Trim(datFileName) <> "" Then
    '点编号
        e_num = 1
        fileNum = FreeFile()
    
    Open datFileName For Output As fileNum
        
        Set el = ActiveModelReference.Levels("GCD")
        Set sc = New ElementScanCriteria
        
        sc.ExcludeAllLevels
        sc.ExcludeAllTypes
        
        sc.IncludeType msdElementTypeSharedCell
        sc.IncludeLevel el
        
        Set ee = ActiveModelReference.Scan(sc)
        
    Do While ee.MoveNext
            Dim ecass As SharedCellElement
            Set ecass = ee.Current.AsSharedCellElement
            'ee.