요소의 잘못된 Range 수정하기

특정 요소의 Range가 잘못된 경우가 발생할 수 있습니다.
특히 3rd party 프로그램에서 생성된 파일일 경우..
이때 Range를 수정하는 명령이 있습니다.

mdl load fixrange
filedesign

특정 폴더 안의 도면에 대해서 위 명령을 수행하는 매크로를 만들어 보겠습니다.

Sub main()
    Dim S$
    Dim One_File_List as String
    
    MbeSendCommand "mdl load fixrange"
    
    One_File_List = Dir$("C:\Temp" + "\*.*")
    Do While One_File_List <> ""
        MbeSendCommand "newfile " + One_File_List$
        MbeSendCommand "filedesign"
    
        One_File_List = Dir$
    Loop

    Close
    'up to here
End Sub