We have a blog on how to change icon of ClientFeature node in custom browser pane.
http://adndevblog.typepad.com/manufacturing/2012/08/change-the-browser-node-icon.html
The workflow is similar if you want to change icon ClientFeature node in built-in browser pane. The following is a demo. It assumes a part document (with two part features) is opened.
Sub CGInClientFeatureTest()
<br />Dim oDoc As PartDocument <br />Set oDoc = ThisApplication.ActiveDocument <br />  <br /> Dim oDef As PartComponentDefinition <br /> Set oDef = oDoc.ComponentDefinition <br /> 
<p>‘get first and second features <br /> Dim oPartFea1 As PartFeature <br /> Set oPartFea1 = oDef.Features(1) <br />  <br />  Dim oPartFea2 As PartFeature <br /> Set oPartFea2 = oDef.Features(2)    <br />  <br />'create client feature definition <br />Dim oClientFeatureDef As ClientFeatureDefinition <br />Set oClientFeatureDef = oDef.Features.ClientFeatures.CreateDefinition("ClientFeatureTest") <br />  <br />  ‘add the part features to client feature <br /> oClientFeatureDef.ClientFeatureElements.Add oPartFea1 <br /> oClientFeatureDef.ClientFeatureElements.Add oPartFea2 <br />  <br />'create client feature <br />Dim oClientFeature As ClientFeature <br />Set oClientFeature = oDef.Features.ClientFeatures.Add(oClientFeatureDef, "ClientIDString")</p> </em> <p> </p> <p>‘get the browser node of the client feature <br /><em>     Dim oNode As BrowserNode <br />        Set oNode = oDoc.BrowserPanes(1).GetBrowserNodeFromObject(oClientFeature) <br />        </em></p> <p><em>  ‘create the resource of icon. assume a bitmap 1.bmp exists</em><em>  ‘ in c:\temp <br />        Dim oCnr As ClientNodeResource <br />        <br />        Dim oIcon As IPictureDisp <br />        Set oIcon = stdole.LoadPicture("C:\temp\1.bmp") <br />        <br />        ' Create a client node resource. <br />        Set oCnr = oDoc.BrowserPanes.ClientNodeResources.Add("SamplePocketFeature", -1, oIcon)</em></p> <p><em>        ' Override the icon for the client feature. <br />        oNode.BrowserNodeDefinition.OverrideIcon = oCnr</em></p> <p><em>  <br />      ThisApplication.ActiveView.Update <br />End Sub</em></p> <p><em></em></p> <p><em></em><em><a href="http://adndevblog.typepad.com/.a/6a0167607c2431970b01b7c736d2b7970b-pi"><img title="2015-01-15_1412" style="border-top: 0px;border-right: 0px;background-image: none;border-bottom: 0px;padding-top: 0px;padding-left: 0px;border-left: 0px;display: inline;padding-right: 0px" border="0" alt="2015-01-15_1412" src="http://blog.autodesk.io/wp-content/uploads/2015/01/mt_imported_image_1759224717-1.jpg" width="206" height="304" /></a></em>
Leave a Reply