CAD Link Events

The events that occur for the application link commands are shown in the following lists in the sequence that they occur.

Synchronize properties from file event sequence

Synchronize properties to file event sequence

Synchronize references from file event sequence

Occurs after a document property that is mapped to a title block attribute is read.

Syntax

DocCADLink_AfterReadProperty(Batch, PropertyName, Value)

Remarks

This event also occurs after a title block is read during batch import by the Document Import tool. The Document object is available during this event but is read-only.

Occurs after a document property that is mapped to multiple title block attributes is read.

Syntax

DocCADLink_AfterReadMTBProperties (Batch, BCPropStorage)

Example

Sub DocCADLink_AfterReadMTBProperties(Batch, BCPropStorage)
  Dim rowCollection
  Dim allColDefs
  Dim colDef
  Dim row
  Set allColDefs = BCPropStorage.GetColumnDefs(2)
  Set rowCollection = BCPropStorage.Rows

  For Each row in rowCollection
    For Each colDef In allColDefs
      If Not IsNull(row.Property(colDef.Name).Value) Then
        WinMsgBox "AfterReadMTB_Layout: " & _
          row.Property( "Layout").Value & vbCrLf & _
          "Property: " & CStr(colDef.Name) & vbCrLf & _
          "Value: " & CStr(row.Property(colDef.Name).Value)
      End If
    Next
  Next
End Sub

Occurs before a document property that is mapped to a title block attribute is written.

Syntax

DocCADLink_BeforeWriteProperty(Batch, PropertyName, Value)

Remarks

The Document object is available during this event but is read-only.

Occurs before a document property that is mapped to multiple title block attributes is written.

Syntax

DocCADLink_BeforeWriteMTBProperties (Batch, BCPropStorage)

Example

Sub DocCADLink_BeforeWriteMTBProperties(Batch, MTBProperties)
  Document.Log "BeforeWriteMTBProperties -->"
  Dim rowCollection, allColDefs, colDef, row

  Set allColDefs = MTBProperties.GetColumnDefs(2)
  Set rowCollection = MTBProperties.Rows

  For Each row in rowCollection
    For Each colDef In allColDefs
      If Not row.Property(colDef.Name) Is Nothing Then
        Dim rv: rv = "AfterReadMTB_Layout: " & _
          row.Property("Layout").Value & vbCrLf & _
          "Property: " & CStr(colDef.Name) & vbCrLf & _
          "Value: " & CStr(row.Property(colDef.Name).Value)
        Document.Log rv
      End If
    Next
  Next
End Sub

Occurs when a specific reference to or from the selected documents is updated.

Syntax

DocCADLink_OnUpdateReference(Batch, RefFile, IsCreated, ToFile)

Occurs when document properties that are mapped to title block attributes are synchronized.

Syntax

DocCADLink_*UpdateProperties(Batch, ToFile)

Occur when references to and from the document are updated.

Syntax

DocCADLink_*UpdateReferences(Batch, ToFile)