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

[sangvinik128]

Здравствуйте ! Могу ли я каким-то образом на VBA изменить у полилинии гиперссылку, которую в рамках моей задачи следует считать неверной ?

[Александр Ривилис]

Здравствуйте ! Могу ли я каким-то образом на 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

[sangvinik128]

Спасибо большое !