Inventor 2014 API 新功能 (9) Autodesk材质库（下）

关注

VIP免费原创最新推荐文章于 2026-03-11 03:52:00 发布 3.5k 阅读 AI 写同款· GEO 优化 ›

Inventor API学习第一章 Inventor API基本概述 1. 课程目标——Agent API范例——API COM model 如何使用API——How do I access the API 对象模型——The Object Model 对象工具：browser，VBA debug——Object Model tools：Object browser，VBA debug 集合、枚举、接口——Collection、Enumerate、Inheritance 程序——The Application Onject 如何使用阅读详情

API 提供了全面的材质库相关对象和方法。首先看看对象层次结构。

在Application下有AssetLibraries 集合，表示的所有材质库（AssetLibrary），包括自定义的材质库。每个库中有类别集合，叫做AssetCategories, 每个类别叫做AssetCategory，每类中的具体是具体的材质（材料或外观），都叫做Asset。Asset的属性是AssetValue的集合，所有asset 是以下类型值的集合：

Boolean
Choice
Color
Filename
Float
Integer
Reference
String
Texture

这里有段代码，用来访问文档所有Asset的信息。

Public Sub DumpDocumentAppearances()
    ' 当前文档是装配或零件.
    If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject And ThisApplication.ActiveDocumentType <> kPartDocumentObject Then
        MsgBox "A part or assembly must be active."
        Exit Sub
    End If
    
    Dim doc As Document
    Set doc = ThisApplication.ActiveDocument
    
    ' 信息写入一个文本文件
    Open "C:\Temp\DocumentAppearanceDump.txt" For Output As #1
    ' 遍历文档中每个材质    
     Dim appearance As Asset
      For Each appearance In doc.AppearanceAssets 
		Print #1, " Appearance" 
		Print #1, " DisplayName: " & appearance.DisplayName 
		Print #1, " HasTexture: " & appearance.HasTexture 
		Print #1, " IsReadOnly: " & appearance.IsReadOnly 
		Print #1, " Name: " & appearance.Name
	       ' 遍历材质所有属性
	      Dim value As AssetValue 
	      For Each value In appearance 
			Call PrintAssetValue(value, 8) 
	       Next 
	Next 
	Close #1 
	MsgBox "Finished writing output to ""C:\Temp\DocumentAppearanceDump.txt"""
	
End Sub

 ' 打印材质Value的具体信息
Private Sub PrintAssetValue(InValue As AssetValue, Indent As Integer)
    Dim indentChars As String
    indentChars = Space(Indent)
    
    Print #1, indentChars & "Value"
    Print #1, indentCh