请问前辈：如何在部件中获得所选零件的完整路径和名称(用VBA) ... ...

在部件中选中一个零件运行宏之后想获得它的完整路径和名称，
我写的代码只能获得零件在浏览器中的名称，如下：
Public Sub 获得完整路径名称()
Dim oAsm As AssemblyDocument
Set oAsm = ThisApplication.ActiveDocument
Dim selSet As SelectSet
Set selSet = oAsm.SelectSet
Dim compOcc As ComponentOccurrence
Dim obj As Object

Set compOcc = selSet.Item(1)
Dim Fname As String

Fname = compOcc.Name
MsgBox Fname
End Sub

把Name改为FullFileName会报错：object doesn't support this property or method，请问应该怎么实现呢

没明白，你要的东西在BOM中都有现成的，为啥要自己去寻找？

yandong28 发表于 2025-10-8 02:26
没明白，你要的东西在BOM中都有现成的，为啥要自己去寻找？...

想要做一个直接在部件中改零件名称的宏，用到这步，所以请教一下，目前已经能实现了，就是获取零件名称这步有点啰嗦，需要打开 获取 再关闭，请问能不能直接获得呢？
想要简化一下程序

直接在部件中改零件名称？
Inventor的零件又不止一个名，您要改哪一个？
因为我还是不明白您的需求，并认为难以理解，还需要您进一步解释。

改我当前选中的零件，所以需要获取当前选中零件的完整文件名，不知道怎么获得，谢谢

laomaqz 发表于 2025-10-10 01:35
改我当前选中的零件，所以需要获取当前选中零件的完整文件名，不知道怎么获得，谢谢 ......

您不肯回答我的提问，我也不想终止这个话题，所以我只好根据我的猜测做个解答：在装配环境中是不可以改变零件的文件名的。Inventor能支持的操作，是将选定的零件“替换”成另一个，当然，原有的装配关系将不被保证，这可能是最接近您所说的需求的办法。因为您不愿意解释您的需求目的，我的建议可能不合适，抱歉。

获取选中零件的完整文件名应该怎么弄呢？现在就差这步了

没错，是改完名之后替换，现在不知道怎么获得选取零件的完整名，代码怎么实现呢？谢谢了

laomaqz 发表于 2025-10-12 03:38
没错，是改完名之后替换，现在不知道怎么获得选取零件的完整名，代码怎么实现呢？谢谢了 ......

重复2的回答：你要的东西在BOM中都有现成的

访问bom表的代码是什么呢？