部件环境下子零件依据属性种类字符分类另存零件

[442780782]

在Autodesk inventor 2016 部件环境下，运行VB代码提示如图所示

[WeTanks]

你好，

从报错的英文上，有没有定义的类型或者对象存在。

[王承之pmhker]

你的需求是分别导出STP吗？

[442780782]

是的，用VB宏实现在Autodesk inventor 2016 部件环境下对遍历所有零件属性category的字符串为“机加件”或“钣金件”或“铝型材&亚克力”的零件保存副本，
#依据零件属性的“零件代号”&“描述”的字符串重命名，且扩展名为.stp的文件。保存副本到当前部件所在项目文件的路径下的名为PDF的文件夹里，
#且依据零件属性category 的字符串值分别保存副本到对应的文件夹名为“机加件”“钣金件”“铝型材&亚克力”的路径里。
#如果没有名为“PDF”的文件夹，则创建名为“PDF”的文件夹，且同时创建PDF文件夹里名为“钣金件”、“机加件”、“铝型材&亚克力”的子文件夹。

[442780782]

谢谢！

[王承之pmhker]

你所说的保存副本是STP还是ipt？

[442780782]

另存为STP

[王承之pmhker]

以下是根据你这段代码修改的ilogic规则，我这边测试没问题，试下是否满足你的需求

    '[ STP转换器设定
	Dim oSTEPTranslator As TranslatorAddIn = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}") 
	Dim oContext As TranslationContext = ThisApplication.TransientObjects.CreateTranslationContext
	Dim oOptions As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap
	']
	
	' 获取当前正在编辑的部件文档对象
 Dim assyDoc As AssemblyDocument = ThisApplication.ActiveDocument
   
    ' 获取当前部件文档所在的项目文件路径
    Dim 工作路径 As String = ThisDoc.WorkspacePath()   
 
 ' 遍历所有子部件对象
    Dim part As ComponentOccurrence
    For Each part In assyDoc.ComponentDefinition.Occurrences
        ' 获取子部件的部件文档对象
        Dim partDoc As PartDocument = part.Definition.Document      
        ' 获取零件属性字符串值		 
     	 Dim 类别 = partDoc.PropertySets.Item("Inventor Document Summary Information").Item("Category").Value
		 Dim 代号 = partDoc.PropertySets.Item("Design Tracking Properties").Item("Part Number").Value
		 Dim 描述 = partDoc.PropertySets.Item("Design Tracking Properties").Item("Description").Value      	 
        ' 如果类别的值为“机加件”或“钣金件”或“铝型材&亚克力”，则进行导出操作
       If 类别 = "机加件" Or 类别 = "钣金件" Or 类别 = "铝型材&亚克力" Then
			'构建文件名           
			Dim 新文件名 = 工作路径 & “\PDF\” & 类别 & "\" & 代号 & "-" & 描述 & ".stp"
			'执行导出
			If oSTEPTranslator.HasSaveCopyAsOptions(ThisApplication.ActiveDocument, oContext, oOptions) Then
   		 		oOptions.Value("ApplicationProtocolType") = 3
				oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
   			 Dim oData As DataMedium = ThisApplication.TransientObjects.CreateDataMedium
    			oData.FileName = 新文件名
				oSTEPTranslator.SaveCopyAs(partDoc, oContext, oOptions, oData)
		End If
        End If
    Next
MsgBox ("完成导出。",,"iLogic")

[442780782]

谢谢！捡总！请问是复制到VBA编辑器里吗？

[442780782]

 捡总。运行报错了。

[442780782]

@ pmhker 运行代码报错

[442780782]

运行代码报错

[王承之pmhker]

这是ilogic代码，在ilogic规则中运行

[442780782]

是在外部规则环境下运行的，弹出报错窗口。

[王承之pmhker]

你运行的不是我给你的代码吧

[王承之pmhker]

参照如下操作视频

https://www.bilibili.com/video/BV1iX4y1f73u/

[王承之pmhker]

视频清晰的太低，错误信息截图看下

[442780782]

[王承之pmhker]

你的是2015版本嘛？可能是新版本中的api有简化，我看看找个15版本试试