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

Получить 3D Элемент (SOLID)

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



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

СообщениеДобавлено: Чт Июл 31, 2014 8:46 pm    Заголовок сообщения: Получить 3D Элемент (SOLID) Ответить с цитатой

Здравствуйте. Хочу сделать параллелепипед (slab) и присоединить к нему тэги с информацией. В хэлпе не нашел функций для создания 3D примитивов. Макро рекордер выдает
Код:

  CadInputQueue.SendCommand "PLACE SLAB ICON"

'   Coordinates are in master units
    startPoint.X = -55403.2451356166
    startPoint.Y = 20795.3921710024
    startPoint.Z = -9933.23441190397

'   Send a data point to the current command
    point.X = startPoint.X
    point.Y = startPoint.Y
    point.Z = startPoint.Z
    CadInputQueue.SendDataPoint point, 2

    point.X = startPoint.X - 1105.60943389939
    point.Y = startPoint.Y - 1226.59999939657
    point.Z = startPoint.Z
    CadInputQueue.SendDataPoint point, 2

    point.X = startPoint.X + 690.273042318135
    point.Y = startPoint.Y - 622.185217616832
    point.Z = startPoint.Z + 937.338989409343
    CadInputQueue.SendDataPoint point, 2

    point.X = startPoint.X + 3607.77209680271
    point.Y = startPoint.Y - 3251.90515860619
    point.Z = startPoint.Z + 152.842962710616
    CadInputQueue.SendDataPoint point, 2

Как получить созданный элемент и его через Set переменной типа Element?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Leonid
давно здесь сидим


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

СообщениеДобавлено: Пт Авг 01, 2014 8:22 am    Заголовок сообщения: Ответить с цитатой

Функцию CreateSlab(Template, width, length, height) смотрели?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Велиал



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

СообщениеДобавлено: Пт Авг 01, 2014 3:48 pm    Заголовок сообщения: Ответить с цитатой

В хэлпе точно этой функции нет. Погуглил и я так понял, что Smartsolids ввели только в версии V8i SELCT 3. У меня же версия Версия 08.05.01.25 х86 (2004). Или надо что-то в референсах подключить?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Leonid
давно здесь сидим


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

СообщениеДобавлено: Пн Авг 04, 2014 4:01 pm    Заголовок сообщения: Ответить с цитатой

В 2004 версии для VBA этой функции нет.
Какие варианты:
- переходить на v8i
- осваивать MDL для v2004
По моему, первый гораздо проще Smile
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Велиал



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

СообщениеДобавлено: Вт Авг 05, 2014 2:12 am    Заголовок сообщения: Ответить с цитатой

Ну тут уж какая лицензия куплена у фирмы, ту и используем. Don't know
Как вариант через ChangeTrackEventsHandler.
Код:

ChangeTrackEvents_ElementChanged(ByVal AfterChange As Element, ByVal BeforeChange As Element, ByVal Action As MsdChangeTrackAction, CantBeUndone As Boolean)


ТО есть вызвать стандартный способ создания slab. Отследить созданный элемент и уже работать с этим AfterCHange. В общем буду смотреть.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Прикладное Часовой пояс: GMT + 3
Страница 1 из 1

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


Powered by phpBB © 2001, 2005 phpBB Group