修改Client Feature的图标

最新推荐文章于 2023-11-27 18:31:15 发布

autodeskinventorapi

最新推荐文章于 2023-11-27 18:31:15 发布

阅读量981

点赞数

分类专栏：零件

本文链接：https://blog.csdn.net/autodeskinventorapi/article/details/43407875

版权

零件专栏收录该内容

39 篇文章 0 订阅

订阅专栏

如前篇文章看到的，Client Feature默认有个图标，类似方程式的样子。那可不可以设置自己的图标呢？是可以的。

方法很简单。只需要调用Client Feature对应浏览节点的BrowserNodeDefinition.OverrideIcon，设置为需要的icon，但前提是OverrideIcon已经是一个面板资源，所谓面板资源，就是无论Inventor本身的浏览面板或者自定义的BrowserPane, 都有ClientNodeResources，ClientNodeResources.Add添加自定义资源。

下面的代码，假定有个零件文档，其中有特征1和特征2，首先创建Client Feature，添加特征1和特征2，然后将c:\temp下的某bitmap作为资源添加到ClientNodeResources，最后使用该资源重载Client Feature的图标。

Sub CGInClientFeatureTest()


Dim oDoc As PartDocument 
Set oDoc = ThisApplication.ActiveDocument 
  
Dim oDef As PartComponentDefinition 
Set oDef = oDoc.ComponentDefinition 
 

‘get first and second features 
Dim oPartFea1 As PartFeature 
Set oPartFea1 = oDef.Features(1) 
  
  Dim oPartFea2 As PartFeature 
Set oPartFea2 = oDef.Features(2)    
  
'create client feature definition 
Dim oClientFeatureDef As ClientFeatureDefinition 
Set oClientFeatureDef = oDef.Features.ClientFeatures.CreateDefinition("ClientFeatureTest") 
  
  ‘add the part features to client feature 
oClientFeatureDef.ClientFeatureElements.Add oPartFea1 
oClientFeatureDef.ClientFeatureElements.Add oPartFea2 
  
'create client feature 
Dim oClientFeature As ClientFeature 
Set oClientFeature = oDef.Features.ClientFeatures.Add(oClientFeatureDef, "ClientIDString")

 

'get the browser node of the client feature 
     Dim oNode As BrowserNode 
        Set oNode = oDoc.BrowserPanes(1).GetBrowserNodeFromObject(oClientFeature) 
       

'create the resource of icon. assume a bitmap 1.bmp exists  ‘ in c:\temp 
        Dim oCnr As ClientNodeResource 
        
        Dim oIcon As IPictureDisp 
        Set oIcon = stdole.LoadPicture("C:\temp\1.bmp") 
        
        ' Create a client node resource. 
        Set oCnr = oDoc.BrowserPanes.ClientNodeResources.Add("SamplePocketFeature", -1, oIcon)

        ' Override the icon for the client feature. 
        oNode.BrowserNodeDefinition.OverrideIcon = oCnr

  
      ThisApplication.ActiveView.Update 
End Sub