[Puroshev]

Очень нужен пример на VBA (AutoCAD) считывания данных HYPERLINKa из выбранного объекта, котороve руками вставили HYPERLINK.
Сижу дома, а в наличии только справка по ZwCAD.
Заранее спсибо.

[evgm]

Public Sub Hyperlinks()

Dim SSetColl As AcadSelectionSet
Dim i As Long

Set SSetColl = Application.ActiveDocument.SelectionSets.Add("123")
SSetColl.SelectOnScreen

If SSetColl.Count > 0 Then
For i = 0 To SSetColl.Count - 1
Debug.Print SSetColl.Item(i).Hyperlinks(0).URL
Next i
End If

Call SSetColl.Delete
Set SSetColl = Nothing

End Sub