Catia Start命令重新打开并对齐平面

时间:2018-04-30 10:19:07

标签: vba catia

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

1 个答案:

答案 0 :(得分:0)

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

您可以手动关闭此设置,或在执行此类操作之前让代码执行此操作:

User: userA
Owner:owner1
Count:2
Total Sum:200

Owner:owner2
Count:1
Total Sum:100

Owner:owner3
Count:1
Total Sum:100

Total count: 4