Hi Roland,
I tried to simulate the workflow you described and it works fine. My code is:
' Attach defined DGN file as reference with logical set to BORDER
Public Sub AttachReferenceBorder()
Dim refFile As String
refFile = "ref_A.dgn"
ActiveModelReference.Attachments.Add refFile, vbNullString, "BORDER", vbNullString, Point3dZero(), Point3dZero(), False, True
End Sub' Iterate through all attachments
Public Sub FindAndRenameLogicalBorder()
Dim att As Attachment
For Each att In ActiveModelReference.Attachments
ProcessAttachment att
Next
End Sub' Test if attachment logical is equal to BORDER
Private Sub ProcessAttachment(att As Attachment)
If (att.LogicalName = "BORDER") Then
ChangeAttachmentLogical att
End If
End Sub' Change attachment logical name to CHANGED BORDER
Private Sub ChangeAttachmentLogical(att As Attachment)
att.LogicalName = "CHANGED BORDER"
att.Rewrite
End SubIf I use AttachReferenceBorder method and after it I start FindAndRenameLogicalBorder method, stored in different mvba file, the attachment with BORDER logical name is renamed to CHANGED BORDER locagical name.
Without further information like more code (please use Syntaxhighlighter tool to place any code), design file examples and your configuration details (do you use plain MicroStation or some other apps or ProjectWise?) I am not sure if it's possible to guess what is wrong.
With regards,
Jan
