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

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

0 голосов
/ 30 апреля 2018

Я пытаюсь создать программу для автоматического захвата экрана в 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 events Catia.RefreshDisplay= true wait

1 Ответ

0 голосов
/ 30 апреля 2018

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

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

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

... your code here ...

attr.ViewpointAnimationMode = true
...