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

如果您打开了"工具->选项->常规->显示->导航->视点修改期间的动画"的设置(默认值(，CATIA 可能会在使用"普通视图"命令完成之前执行"重新构建"命令。这将看起来像未执行"普通视图"命令。

您可以手动关闭此设置，也可以在查看如下操作之前让代码执行此操作：

Dim controllers
Set controllers = CATIA.SettingsControllers
Dim attr
Set attr = controllers.Item("CATVizVisualizationSettingCtrl")
attr.ViewpointAnimationMode = false
... your code here ...
attr.ViewpointAnimationMode = true