CATIA 的 VBA 宏在一台计算机上工作，在另一台计算机上不起作用答案

【问题标题】：VBA macros for CATIA works on one computer, and doesn't work on anotherCATIA 的 VBA 宏在一台计算机上工作，在另一台计算机上不起作用
【发布时间】：2016-11-16 12:35:08
【问题描述】：

我在 VBA 中有一个 CATIA 宏，它通过坐标（从数组）绘制点。它适用于我的电脑（Catia V5-R2014 和我的邻居 - 两个版本 V5-R2014 和 R21）。但它不适用于不同城市的大学（他们有 R21 版本）。基本上，我的宏从文件中读取输入数据，计算坐标，将它们写入输出文件，然后绘制这些点。除了最后一个步骤之外的所有步骤都适用于任一计算机/版本。但在最后一步，“他们的”Catia 没有绘制任何内容，没有任何错误。

所以最后一步的 Subruotine 是：

Sub PlotGeometry()
' Nmlp - number of points
Dim i As Integer

Dim oPartDocument As Document
Dim ohSPointCoord() As HybridShapePointCoord
Dim ohSPoints As HybridShapePointCoord
Dim bodies1 As Bodies
Dim body1 As Body

ReDim ohSPointCoord(0 To Nmlp)

Set oPartDocument = CATIA.Documents.Add("Part")
Set oPart = oPartDocument.Part
Set oPartBody = oPart.MainBody
Set oPlaneYZ = oPart.CreateReferenceFromGeometry(oPart.OriginElements.PlaneYZ)
' -- Draw Points
Dim ohSFactory As HybridShapeFactory
Set ohSFactory = oPart.HybridShapeFactory

For i = 0 To Nmlp
    Set ohSPointCoord(i) = ohSFactory.AddNewPointCoord(XM(i), YM(i), ZM(i))
    oPartBody.InsertHybridShape ohSPointCoord(i)
Next i

oPart.Update

End Sub

可能是什么？

【问题讨论】：

标签： vba macros catia

【解决方案1】：

也许在您的站点您启用了混合设计，而在其他站点却没有。

启用混合设计后，您将能够向实体添加点。如果未启用它，则不是这样，并且您的代码不会出现错误。

设置在工具->选项->基础设施->零件基础设施->零件文档选项卡->在零件实体和实体内启用混合设计。

由于无法解释的原因，启用混合设计是默认设置。但是我不建议使用它。

如果您只想让您的代码在这两个地方都能正常工作，那么请使用几何集而不是主体来聚合您的点。

Dim pointsBody as HybridBody
Set pointsBody = oPart.HybridBodies.Add
pointsBody.Name = "Points_Body"

...

For i = 0 To Nmlp
    Set ohSPointCoord(i) = ohSFactory.AddNewPointCoord(XM(i), YM(i), ZM(i))
    pointsBody.AppendHybridShape ohSPointCoord(i)
Next i

【讨论】：

没错。我在另一个办公室的一位同事建议这样做。我已经重写了宏并且它可以工作

【解决方案2】：

只是随机猜测：

转到 VBE>工具>参考

并比较两台计算机的值。它们应该是相同的。比较这些复选框：

如果它们不同，请确保它们与工作的 PC 相同。

【讨论】：