Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Велиал
Зарегистрирован: 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) смотрели? |
|
Вернуться к началу |
|
|
Велиал
Зарегистрирован: 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
По моему, первый гораздо проще |
|
Вернуться к началу |
|
|
Велиал
Зарегистрирован: 04.05.2012 Сообщения: 20
|
Добавлено: Вт Авг 05, 2014 2:12 am Заголовок сообщения: |
|
|
Ну тут уж какая лицензия куплена у фирмы, ту и используем.
Как вариант через ChangeTrackEventsHandler.
Код: |
ChangeTrackEvents_ElementChanged(ByVal AfterChange As Element, ByVal BeforeChange As Element, ByVal Action As MsdChangeTrackAction, CantBeUndone As Boolean)
|
ТО есть вызвать стандартный способ создания slab. Отследить созданный элемент и уже работать с этим AfterCHange. В общем буду смотреть. |
|
Вернуться к началу |
|
|
|