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