[gizmo_zx]

Добрый день.
Помогите с кодом на VBA
выбрать на чертеже полилинию, и считать из нее гиперссылку.

Код:

[Выделить все]

Dim Obj As AcadEntity
Dim objBlk As Object, objAtr
Dim varPoint, tmp_txt As Variant
Dim strPrompt As String
Dim atmp
strPrompt = "Выбирите полилинию"

ThisDrawing.Utility.GetEntity objBlk, varPoint, strPrompt
If TypeOf objBlk Is AcadPolyline Then
objBlk = Obj
'Set Hyperlinks = Obj.Hyperlinks
    atmp = objBlk.Hyperlinks.Count
    If atmp > 0 Then
        tmp_txt = Obj.Hyperlinks.Item(0).URLDescription
    End If
Else
MsgBox ("не вабрана полилиния")
GoTo Err_Handler
End If

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

Function GetHyper() As String
Dim Obj As AcadEntity
Dim objBlk As Object, objAtr
Dim varPoint, tmp_txt As Variant
Dim strPrompt As String, Result As String
Dim atmp
  strPrompt = "Выбирите полилинию"
  ThisDrawing.Utility.GetEntity objBlk, varPoint, strPrompt
  If objBlk.ObjectName = "AcDbPolyline" Then 'TypeOf objBlk Is AcadPolyline Then
    If objBlk.Hyperlinks.Count <> 0 Then
      Result = objBlk.Hyperlinks.Item(0).URLDescription
    End If
  End If
  GetHyper = Result
End Function

Sub Test()
  MsgBox GetHyper
End Sub