[CONNECT C# COM] Set Workset Custom Properties

Question

We are attempting to write an application that will builds a workset programmatically. We are attempting to automate the process of filling out custom workset properties from our Financial Management System via a COM started ORD session. Using property handlers we can get the property handler for the custom fields but cannot get or set the property. When trying to get the value of a custom field the following exception is thrown: "System.Runtime.InteropServices.COMException: 'Not Available'" is thrown. I can access the build-in properties without a problem. using MicroStationDGN;
using System;
using System.Windows.Forms;

namespace WorksetPropertySetter
{
 public partial class Form1 : Form
 {
 public Form1()
 {
 InitializeComponent();
 }

 private void button1_Click(object sender, EventArgs e)
 {

 MicroStationDGN.ApplicationObjectConnector oMSAppConnector = new MicroStationDGN.ApplicationObjectConnector();

 MicroStationDGN.Application oMSApp = oMSAppConnector.Application;
 
 DesignFile dgn = oMSApp.OpenDesignFile(@"C:\Worksets\FDOT\0_WORKSET_TEMPLATE.dgnws");
 PropertyHandler ph = oMSApp.CreatePropertyHandler(dgn);

 var props = ph.GetAccessStrings();

 //look up build in properties
 if (ph.SelectByAccessString("WorkSetName"))
 {
 Object workSetName = ph.GetValue(); 
 ph.setValue("WorksetName Value");
 }

 if (ph.SelectByAccessString("WorkSpaceName"))
 {
 Object WorkSpace = ph.GetValue();
 }

 //look up custom properties
 if (ph.SelectByAccessString("ContractNumber")) //succesful
 {
 Object workSetName = ph.GetValue(); //fails with exception
 }

 if (ph.SelectByAccessString("WorkSetDescription")) //succesful
 {
 Object workSetName = ph.GetValue(); //fails with exception

 }
 oMSApp.Quit();
 oMSApp = null;
 oMSAppConnector = null;
 }
 }
}

Robert Hook · Answer

Hi Mike Robertson , 
 If you still prefer to use the VBA/COM PropertyHandler path, please feel free to provide a test app for us to troubleshoot the exact code conditions you are using. 
 If however, you have existing C# code to implement my prior recommendation and can provide key-ins to simplify the potential VBA/COM threshold issues, please feel free to go that route and update us with a reply that this is the path you prefer/choose to resolve the issue. 
 Lastly, here is a code snip that may be of help if you (or others) wish to Explore an existing .WorkSet file (.dgnws) and add a few properties to get started. We may add or replace this code snip since we have asked development to review and/or provide any better recommendations. 
 public static void DgnWorkSetExplore(string sFileSpec)
{
 var sb = new System.Text.StringBuilder();
 BDNET.DgnDocument dgnDoc = BDNET.DgnDocument.CreateForLocalFile(sFileSpec);
 DgnFileOwner dgnFileOwner = BDNET.DgnFile.Create(dgnDoc, DgnFileOpenMode.PreferableReadWrite);
 BDNET.DgnFile dgnFile = dgnFileOwner.DgnFile;
 StatusInt errorStatus;
 dgnFile.LoadDgnFile(out errorStatus);
 dgnFile.FillDictionaryModel();

 // Display WorkSetInfo - Object Properties
 BDNET.DgnWorkSetInfo wsInfo = DgnWorkSetInfo.ExtractFromDgnFile(dgnFile);
 sb.AppendFormat("Processing File: {0}{1}", sFileSpec, Environment.NewLine);
 sb.AppendFormat("AreAllPropertiesLoaded: {0}{1}", wsInfo.AreAllPropertiesLoaded, Environment.NewLine);
 sb.AppendFormat("ConnectGUID: {0}{1}", wsInfo.ConnectGUID, Environment.NewLine);
 sb.AppendFormat("Description: {0}{1}", wsInfo.Description, Environment.NewLine);
 sb.AppendFormat("Name: {0}{1}", wsInfo.Name, Environment.NewLine);
 sb.AppendFormat("ProjectAssetType: {0}{1}", wsInfo.ProjectAssetType, Environment.NewLine);
 sb.AppendFormat("ProjectIndustry: {0}{1}", wsInfo.ProjectIndustry, Environment.NewLine);
 sb.AppendFormat("ProjectLocation: {0}{1}", wsInfo.ProjectLocation, Environment.NewLine);
 sb.AppendFormat("ProjectName: {0}{1}", wsInfo.ProjectName, Environment.NewLine);
 sb.AppendFormat("ProjectNumber: {0}{1}", wsInfo.ProjectNumber, Environment.NewLine);
 sb.AppendFormat("ProjectStatus: {0}{1}", wsInfo.ProjectStatus, Environment.NewLine);
 sb.AppendFormat("ToString: {0}{1}", wsInfo.ToString(), Environment.NewLine);
 Trace.WriteLine(sb);
 BDNET.NotificationManager.OutputMessage(new NotifyMessageDetails(OutputMessagePriority.Information, "WorkSetInfo - Properties", sb.ToString(), NotifyTextAttributes.None, OutputMessageAlert.None));

 // Add Custom Properties
 // NOTE: Re-open Design File to see changes in MicroStation's "Explorer" properties pane.
 wsInfo.AddProperty("MyItem", "MyItem value");
 wsInfo.AddProperty("MyItemDT", DateTime.Now);
 wsInfo.Write(dgnFile);

 // Display WorkSetInfo - Custom Properties (via its EC data)
 try
 {
 sb.Clear();
 StandaloneECDInstance lclECInstance = wsInfo.ToECInstance();
 foreach (IECProperty property in lclECInstance.ClassDefinition)
 {
 IECPropertyValue propertyValue = lclECInstance[property.Name];
 sb.AppendFormat("AccessString: {0}, StringValue: {1}{2}", propertyValue.AccessString, propertyValue.StringValue, Environment.NewLine);
 }
 Trace.WriteLine(sb);
 BDNET.NotificationManager.OutputMessage(new NotifyMessageDetails(OutputMessagePriority.Information, "ECInstance - Properties", sb.ToString(), NotifyTextAttributes.None, OutputMessageAlert.None));
 }
 catch (Exception e)
 {
 Trace.WriteLine("Exception: " + e.ToString());
 }
 // Cleanup
 dgnFile.Release();
}

public static void DgnWorkSetTest(string unparsed)
{
 string lFileSpec = unparsed;
 if (lFileSpec.Length == 0)
 //lFileSpec = @"C:\ProgramData\Bentley\CONNECT Edition\Configuration\WorkSpaces\Example\WorkSets\MetroStation.dgnws";
 lFileSpec = ConfigurationManager.GetVariable("_USTN_WORKSETDGNWS");
 DgnWorkSetExplore(lFileSpec);
 return;
} 
 
 HTH, Bob and Artur

[CONNECT C# COM] Set Workset Custom Properties

Top Replies