Catia Start команда переоснастить и выровнять плоскость

Question

Я пытаюсь создать программу для автоматического захвата экрана в Catia. Для этого мне нужно создать плоскость, выровнять камеру по этой плоскости, а затем переосмыслить камеру по этой плоскости. Поэтому я использовал следующий код.

Dim selection1 as selection

Set Selection1=partdocument1.selection

selection1.add hybridshapeplanetangent1

Catia.startcommand("Normal View")

catia.refreshdisplay=true

selection1.clear

selection1.add hybridshapeplanetangetn1

Catia.startcomand("Reframe On")

Catia.RefreshDisplay= true

В этом коде нормальный к плоскости не работает, и это только рефрейминг, я попытался с помощью Do eventsCatia.RefreshDisplay= true Подождите

Answer 1

Если у вас включен параметр "Инструменты-> Параметры-> Общие-> Отображение-> Навигация-> Анимация во время изменения точки обзора" (по умолчанию), CATIA, вероятно, выполнит команду "Переопределить вкл." До того, как это будет сделано с "". Команда "Нормальный вид". Это будет выглядеть так, как будто команда "Нормальный просмотр" не была выполнена.

Вы можете отключить этот параметр вручную или позволить своему коду сделать это до того, как вы выполните такие манипуляции:

Dim controllers
Set controllers = CATIA.SettingsControllers
Dim attr
Set attr = controllers.Item("CATVizVisualizationSettingCtrl")
attr.ViewpointAnimationMode = false

... your code here ...

attr.ViewpointAnimationMode = true