IFC - Export - Setting the Author Properties for Your Organisation

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.

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.StartDefaultCommand
End Sub