Гиперссылка полилинии

Автор Тема: Гиперссылка полилинии  (Прочитано 3017 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн sangvinik128Автор темы

  • ADN OPEN
  • **
  • Сообщений: 87
  • Карма: 0
Гиперссылка полилинии
« : 13-03-2020, 10:03:06 »
Здравствуйте ! Могу ли я каким-то образом на VBA изменить у полилинии гиперссылку, которую в рамках моей задачи следует считать неверной ?

Отмечено как Решение Александр Ривилис 13-03-2020, 12:14:44

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Гиперссылка полилинии
« Ответ #1 : 13-03-2020, 10:06:36 »
Здравствуйте ! Могу ли я каким-то образом на VBA изменить у полилинии гиперссылку, которую в рамках моей задачи следует считать неверной ?
Да. Пример из документации:
Код - Visual Basic [Выбрать]
  1. Sub Example_URLNamedLocation()
  2.     ' This example creates a Circle object in model space and
  3.    ' adds a new Hyperlink to its Hyperlink collection
  4.    
  5.     Dim Hyperlinks As AcadHyperlinks
  6.     Dim Hyperlink As AcadHyperlink
  7.     Dim circleObj As AcadCircle
  8.     Dim centerPoint(0 To 2) As Double
  9.     Dim radius As Double
  10.     Dim HLList As String
  11.    
  12.     ' Define the Circle object
  13.    centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0
  14.     radius = 5#
  15.    
  16.     ' Create the Circle object in model space
  17.    Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
  18.  
  19.     ThisDrawing.Application.ZoomAll
  20.    
  21.     ' Get reference to the Circle's Hyperlinks collection
  22.    Set Hyperlinks = circleObj.Hyperlinks
  23.    
  24.     ' Add a new Hyperlink complete with all properties
  25.    Set Hyperlink = Hyperlinks.Add("AutoDesk")
  26.     Hyperlink.URL = "www.autodesk.com"
  27.     Hyperlink.URLDescription = "Autodesk Main Site"
  28.     Hyperlink.URLNamedLocation = "MY_LOCATION"
  29.    
  30.     ' Read and display a list of existing Hyperlinks and
  31.    ' their properties for this object
  32.    For Each Hyperlink In Hyperlinks
  33.         HLList = HLList & "____________________________________" & vbCrLf   ' Separator
  34.        HLList = HLList & "URL: " & Hyperlink.URL & vbCrLf
  35.         HLList = HLList & "URL Description: " & Hyperlink.URLDescription & vbCrLf
  36.         HLList = HLList & "URL Named Location: " & Hyperlink.URLNamedLocation & vbCrLf
  37.     Next
  38.    
  39.     MsgBox "The circle has " & Hyperlinks.count & " Hyperlink: " & vbCrLf & HLList
  40. End Sub
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн sangvinik128Автор темы

  • ADN OPEN
  • **
  • Сообщений: 87
  • Карма: 0
Re: Гиперссылка полилинии
« Ответ #2 : 13-03-2020, 10:10:12 »
Спасибо большое !