Re: DVB file
Posted: Tue Nov 15, 2022 2:07 am
Try this:
Code: Select all
Sub DynamicFormLoad(d_Form As Variant, d_Handle As String)
Dim t_SREF As BlockInsert 'was AcadBlockReference
Dim t_SATT As Attributes
Dim t_Index As Integer
Dim t_FATT As Variant
Set t_SREF = ActiveDocument.HandleToObject(d_Handle) 'was ThisDrawing
If (t_SREF.HasAttributes) Then
Set t_SATT = t_SREF.GetAttributes
For t_Index = 0 To t_SATT.Count
On Error GoTo DynamicFormLoad1
Set t_FATT = d_Form.Controls.Item(t_SATT(t_Index).TagString)
t_FATT.Text = t_SATT(t_Index).TextString
DynamicFormLoad2:
On Error GoTo 0
Next t_Index
End If
d_Form.Tag = d_Handle
Exit Sub
DynamicFormLoad1:
Resume DynamicFormLoad2
End Sub