Microstation J의 텍스트 폰트 일괄 수정

아래 매크로를 사용하여 텍스트의 폰트를 일괄 수정할 수 있습니다.
Font No는 특정 텍스트 파일(C:\Temp\ChgFnt.dat)에 입력하였습니다.

'-------------------------------------------------------------''   main - Entry point'
'-------------------------------------------------------------Sub main   
Dim element as New MbeElement   
Dim filePos as Long   
Dim S$,FontNo as Integer
'read fence data from file   
Index = 0   
Open "C:\Temp\ChgFnt.dat"
For Input As 1   
Do While Not Eof(1)
        Input #1,S
        FontNo = Val(S)
    Loop    Close    'up to here
    ' read the first element
    filePos = element.fromFile (0)
    Do While filePos >= 0
        If element.type = MBE_Text Then
            element.font = FontNo
            stat = element.rewrite(filePos, 0, 0)
        End If
        filePos = element.fromFile (filePos + element.fileSize)
    Loop
End Sub