时间戳

首页 > 解决方案 > Catia Start 命令在平面上重新构图并对齐

vba - Catia Start 命令在平面上重新构图并对齐

问题描述

我正在尝试在 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等待

标签： vbacatia

解决方案

如果您打开了“工具->选项->常规->显示->导航->视点修改期间的动画”的设置（默认），CATIA可能会在完成之前执行“重新框架”命令“普通视图”命令。这看起来就像没有执行“普通视图”命令。

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

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

... your code here ...

attr.ViewpointAnimationMode = true

推荐阅读