Catia VBA-替换曲面命令

编程问答 2022-06-05

问题描述

我尝试在Catia V6中找到一个用宏替换另一个表面的解决方案。

我有一个表面Extract.2，处于“测试”几何集中。在“测试”中，我还有另一个名为Extract.3的表面。我想将Extract.2替换为Extract.3。
在下面的代码中，定义了Extract.2，但是我不知道replace命令的代码。

提前谢谢

Sub replace()

'---- Begin resolution script for object : Extract.2

Dim editor1 As Editor
Set editor1 = CATIA.ActiveEditor

Dim selection1 As Selection
Set selection1 = editor1.Selection

Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties

Dim part1 As Part
Set part1 = editor1.ActiveObject

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("test")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapeExtract1 As HybridShapeExtract
Set hybridShapeExtract1 = hybridShapes1.Item("Extract.2")

'---- End resolution script


End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

catiareplacereplacereplacesurfacevba