Список форумов Конференция САПР Bentley MicroStation Конференция САПР Bentley MicroStation
www.ustation.ru
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

MSBasic. Поочередное открытие файлов

 
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Готовые программы
Предыдущая тема :: Следующая тема  
Автор Сообщение
SERW



Зарегистрирован: 17.05.2006
Сообщения: 3
Откуда: Симферополь

СообщениеДобавлено: Ср Май 17, 2006 5:50 pm    Заголовок сообщения: MSBasic. Поочередное открытие файлов Ответить с цитатой

могу дать скрип на следующий фаил, создаем макрос и вставляем

Код:

Sub Main

'NEXT.BA - Opens the next file in the directory.
'MACRO NEXT + moves "forwards."
'MACRO NEXT - moves "backwards."

Dim CMD As String
Dim currDGN As String
Dim prevDGN As String
Dim nextDGN As String
Dim DGNfiles() As String

'------get the command line argument. Assume "+" if none:
CMD = Command$
If CMD = "" Then CMD = "+"

'------build an array of design files in the current dir.:
currDGN = MbeDgnInfo.dgnFilename
FileList DGNfiles, FileParse$(currDGN, 2) + "\*.dgn"
ArraySort(DGNfiles)

If ArrayDims(DGNfiles) > 0 Then

'------find where the current file is in the array:
For j = 0 To UBound(DGNfiles)
If DGNfiles(j) = FileParse$(currDGN, 3) Then Exit For
Next j

'------determine the previous design file. If the current file
'------is the first file, then make the previous file the current
file:
If j >= 1 Then
prevDGN = FileParse$(currDGN, 2) + "\" + DGNfiles(j - 1)
Else
prevDGN = FileParse$(currDGN, 2) + "\" + DGNfiles(j)
End If

'------determine the next design file. If the current file
'------is the last file, then make the previous file the current file:
If j < UBound(DGNfiles) Then
nextDGN = FileParse$(currDGN, 2) + "\" + DGNfiles(j + 1)
Else
nextDGN = FileParse$(currDGN, 2) + "\" + DGNfiles(j)
End If

'------some debug code:
'MbeMessageBox "Prev File: " + prevDGN + Chr$(10) + _
' "Curr File: " + DGNfiles(j) + Chr$(10) + _
' "Next File: " + nextDGN

'------action based on command line argument:
Select Case CMD
Case "-"
MbeSendKeyin "RD=" + prevDGN
Case "+"
MbeSendKeyin "RD=" + nextDGN
End


можно поменять расширение на dwg, создаем две кнопочки и все чудестно работает
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
ВалВл



Зарегистрирован: 08.02.2006
Сообщения: 138

СообщениеДобавлено: Чт Май 18, 2006 11:37 am    Заголовок сообщения: Ответить с цитатой

А что Я, как пользователь, с этого буду иметь?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Leonid
давно здесь сидим


Зарегистрирован: 28.01.2006
Сообщения: 598
Откуда: С.-Петербург

СообщениеДобавлено: Пн Май 22, 2006 9:59 am    Заголовок сообщения: Ответить с цитатой

Вероятно, возможность быстрого просмотра файлов в одной директории...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Артем
первопроходец


Зарегистрирован: 29.01.2006
Сообщения: 59
Откуда: Прокопьевск

СообщениеДобавлено: Вт Июл 13, 2010 2:47 pm    Заголовок сообщения: Ответить с цитатой

Хороший скрипт...сеня настроил его....така весчь замечательная ...тока в нем три ошибки или недописки...
_________________
Было у отца три сына - два умных, а третий на горном факультете учился.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Готовые программы Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group