如何解决Catia VBA-替换曲面命令
我尝试在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 举报，一经查实，本站将立刻删除。
