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.
(Note that these properties are those of the IFC author and should not be confused with the project specific properties stored in the Floor Manager.)
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.
Follow this link to an MVBA sample:
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.organization", "My Company Name", "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