' ReadDXF 从 DXF 文件中提取指定的代码/值对。

' 此函数需要四个字符串参数、一个有效的 DXF

' 文件名、一个 DXF 段名、该段中对象的

' 名称以及由逗号分隔的代码列表。

'

Function ReadDXF( _

        ByVal dxfFile As String, ByVal strSection As String, _

        ByVal strObject As String, ByVal strCodeList As String)

    Dim tmpCode, lastObj As String

    Open dxfFile For Input As #1

    ' 获取第一个代码/值对

    codes = ReadCodes

    ' 遍历整个文件，直到“EOF”行

    While codes(1) <> "EOF"

        ' 如果组码为“0”，并且值为“SECTION”，则

        If codes(0) = "0" And codes(1) = "SECTION" Then

            ' 这必须是一个新的段，以便获取下一个

            ' 代码/值对。

            codes = ReadCodes()

            ' 如果此段是要获取的段，则

            If codes(1) = strSection Then

                ' 获取下一个代码/值对，并

                codes = ReadCodes

                ' 遍历此段，直到“ENDSEC”

                While codes(1) <> "ENDSEC"

                    ' 在某段中，所有的“0”代码都表示

                    ' 对象。如果找到了“0”代码，则存储

                    ' 对象名称，供以后使用。

                    If codes(0) = "0" Then lastObj = codes(1)

                    ' 如果此对象是用户所需的对象，

                    If lastObj = strObject Then

                        ' 则在代码前后加上逗号

                        tmpCode = "," & codes(0) & ","

                        ' 如果此代码位于代码列表中，

                        If InStr(strCodeList, tmpCode) Then

                            ' 则附加返回值。

                            ReadDXF = ReadDXF & _

                                codes(0) & "=" & codes(1) & vbCrLf

                        End If

                    End If

                    ' 读取其他代码/值对

                    codes = ReadCodes

                Wend

            End If

        否则

            codes = ReadCodes

        End If

    Wend

    Close #1

End Function

' ReadCodes 从打开的文件中读取两行，并返回一个包含两个项目

' 的数组、一个组码及其组码值。只要一次读取 DXF 文件中的两行代码， 

' 所有程序应该都能够顺利运行。但为了使代码 

' 更可靠，应该添加一些进行错误检查和其他

' 检查的代码。

'

Function ReadCodes() As Variant

    Dim codeStr, valStr As String

    Line Input #1, codeStr

    Line Input #1, codeStr

    ' 修剪代码中的前导空格和后续空格

    ReadCodes = Array(Trim(codeStr), valStr)

End Function