You are currently reviewing an older revision of this page.
You would probably like to make the content of IFC Export Author properties consistent across your organisation. We do not have key-ins to apply content to these fields, but they can be populated by VBA. The attached VBA can be used to do this.
If you run this on a test user you will find the IFC Export Author properties populated as shown below:
To insert your own values edit the VBA replacing the placeholder text entries shown above with your own details.
The Role field is populated by the list index number, starting at 0. For example: Architect = 4; Structural Engineer = 5; Mechanical Engineer = 10.
The sequence contained in the VBA is to send a command to load the IFC module:
CadInputQueue.SendKeyin "mdl load tfifc"
Followed by a sequence of 'SetCExpressionValue' commands that set MDL variables, e.g.:
SetCExpressionValue "g_exportInfo.stepFile.organization", "My Company Name", "TFIFC"
This macro can be run manually or set to run automatically using the MS_VBAAUTOLOADPROJECTS variable at site or if project specific variations are needed at project level.
IFC_ExportProperties.zip
Here is the full text of the macro with the placeholders highlighted:
Sub SetIFCExportAuthorProperties() Dim startPoint As Point3d Dim point As Point3d, point2 As Point3d Dim lngTemp As Long ' Send a keyin that can be a command string CadInputQueue.SendKeyin "mdl load tfifc"
' Set a variable associated with a dialog box SetCExpressionValue "g_exportInfo.stepFile.modPerson.givenName", "My First name", "TFIFC"
SetCExpressionValue "g_exportInfo.stepFile.modPerson.familyName", "My Family Name", "TFIFC"
SetCExpressionValue "g_exportInfo.stepFile.modPerson.role", 4, "TFIFC"
SetCExpressionValue "g_exportInfo.stepFile.modPerson.sAddress.sTelecom.EMail", "my@email@.com", "TFIFC"
SetCExpressionValue "g_exportInfo.stepFile.modPerson.sAddress.sTelecom.TelephoneNumber", "0000 000000", "TFIFC"
SetCExpressionValue "g_exportInfo.stepFile.modPerson.sAddress.sPostal.Country", "My Country", "TFIFC"
SetCExpressionValue "g_exportInfo.stepFile.modPerson.sAddress.sPostal.PostalCode", "My Postal Code", "TFIFC"
SetCExpressionValue "g_exportInfo.stepFile.modPerson.sAddress.sPostal.Town", "My Town", "TFIFC"
SetCExpressionValue "g_exportInfo.stepFile.modPerson.sAddress.sPostal.Region", "My Region/State/County", "TFIFC"
SetCExpressionValue "g_exportInfo.stepFile.modPerson.sAddress.sPostal.AddressLine", "My Address Line 1", "TFIFC"
SetCExpressionValue "g_exportInfo.stepFile.modPerson.sAddress.sPostal.AddressLine2", "My Address Line 2", "TFIFC"
CommandState.StartDefaultCommandEnd Sub
Product TechNotes and FAQs
Building Product TechNotes And FAQs
Bentley Technical Support KnowledgeBase
Bentley LEARN Server
Bentley's Technical Support Group requests that you please confine any comments you have on this Wiki entry to this "Comments or Corrections?" section. THANK YOU!