Catia命令在平面上重新帧并对齐

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 events Catia.RefreshDisplay= true等待。

Answer 1

如果您在视点修改期间为"Tools->Options->General->Display->Navigation->Animation设置了“打开(默认)”，CATIA可能会在使用"Normal“命令之前执行"Reframe”命令。这将显示"Normal“命令没有执行。

您可以手动关闭此设置，或者在进行如下视图操作之前让代码执行该设置：

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

... your code here ...

attr.ViewpointAnimationMode = true