Question

我一直在努力做标题描述的内容超过一天，我似乎无法弄明白。

情况：

我有一个3D部分，其中包含多个用户自制的参数作为字符串。我创建了一个带有正面，顶部和顶部的新绘图。等轴视图。我希望创建一个宏来读取我的3D零件参数的字符串值，并将它们写在图纸上的特定位置。

到目前为止工作：

我能够在我的绘图中有一个宏召唤文本，但我无法弄清楚如何在VB环境中从我的3D部分中的用户自制参数中提取字符串值。我试过用

myValue = material.Value

“材质”是我3D部分的参数，但我无法获得回报。我不知道要声明什么以及如何正确引用参数。

此外，我能够用宏写下我的绘图上的纯文字：

Set myText = MyDrawingViews.ActiveView.Texts.Add("description", 22, 38)

我在预期的位置上得到了一张描述“描述”的文字，但我无法弄清楚如何使用变量来驱动文本。当我尝试：

dim myValue as string
myValue = "description"
Set myText = MyDrawingViews.ActiveView.Texts.Add(myValue, 22, 38)

我没有得到回报。

我一直在尝试，但我似乎无法到达任何地方，任何帮助都会非常感激。

Answer 1

您需要在文本中获得import csv countries = ['Togo', 'Nauru', 'Palestine, State of', 'Malawi'] with open('temp.csv', 'w') as output_write: csvout = csv.writer(output_write, lineterminator='\n') for country in countries: csvout.writerow([country])或Parameter中Part的引用。此外，您应该使用Product对象的InsertVariable方法来链接参数。当参数在零件中更改时，可以在图纸中更新。

这是一个简单的Sub，可以完成你想要的东西（你可以修改它来完成你想要的更具体的东西）：

DrawingText

这里有一些示例代码来测试它：

Sub AddTextWithLinkedParameter(dViewToContainTheText As DrawingView, xPos, yPos, Optional param As Parameter)

    Dim dtext As DrawingText
    Set dtext = dViewToContainTheText.Texts.Add("", xPos, yPos)

    If Not param Is Nothing Then
        dtext.InsertVariable 0, 0, param
    End If

End Sub

CATIA v5。用于将3Dpart参数的值提取到图形上的文本框中的宏

1 个答案: