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

Получить индекс активного вида

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



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

СообщениеДобавлено: Пн Ноя 19, 2012 1:03 am    Заголовок сообщения: Получить индекс активного вида Ответить с цитатой

Здравствуйте. Подскажите каким образом программно получить индекс активного вида (неважно MDL или VBA функции)?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
beer



Зарегистрирован: 01.02.2006
Сообщения: 215
Откуда: Москва

СообщениеДобавлено: Вт Ноя 20, 2012 7:26 am    Заголовок сообщения: Ответить с цитатой

Код:
Function beer3() As Integer
    Dim i  As Integer
    For i = 1 To 8
        If ActiveDesignFile.Views(i).IsSelected Then
            beer3 = i
            Exit Function
        End If
    Next i
End Function
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Велиал



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

СообщениеДобавлено: Вт Ноя 20, 2012 10:15 am    Заголовок сообщения: Ответить с цитатой

ActiveDesignFile.Views(i).IsSelected

Нет такого мембера
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
beer



Зарегистрирован: 01.02.2006
Сообщения: 215
Откуда: Москва

СообщениеДобавлено: Вт Ноя 20, 2012 1:27 pm    Заголовок сообщения: Ответить с цитатой

а вы точно VBA а не VB.NET юзаете? это проперти еще с версии 08.00.04 существует
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Велиал



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

СообщениеДобавлено: Вт Ноя 20, 2012 2:38 pm    Заголовок сообщения: Ответить с цитатой

Абсолютно (Alt+F11). Версия 08.05.01.25 х86
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Leonid
давно здесь сидим


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

СообщениеДобавлено: Пн Ноя 26, 2012 10:47 am    Заголовок сообщения: Ответить с цитатой

zero based index of view for last point (лень переводить Smile)
Код:

    Dim v As Integer
    v = Application.GetCExpressionValue("tcb->lstvw")
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
beer



Зарегистрирован: 01.02.2006
Сообщения: 215
Откуда: Москва

СообщениеДобавлено: Вт Ноя 27, 2012 2:36 pm    Заголовок сообщения: Ответить с цитатой

Leonid писал(а):

Код:

    Dim v As Integer
    v = Application.GetCExpressionValue("tcb->lstvw")


Блин изврат какой-то Sad

Чего-то я в этой жизни не понимаю
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Leonid
давно здесь сидим


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

СообщениеДобавлено: Чт Ноя 29, 2012 7:17 am    Заголовок сообщения: Ответить с цитатой

beer писал(а):
Leonid писал(а):

Код:

    Dim v As Integer
    v = Application.GetCExpressionValue("tcb->lstvw")


Блин изврат какой-то Sad

Чего-то я в этой жизни не понимаю


Почему изврат? Confused Родной tcb, для старого MDL просто незаменимая вещь...
Цитата из хелпа про tcb: All transient information about the current design file and is defined in tcb.h
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Прикладное Часовой пояс: GMT + 3
Страница 1 из 1

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


Powered by phpBB © 2001, 2005 phpBB Group