超链接问题!!!!

路边

怎样用VBA编写超链接,实现点击文字链接到另一个dwg上!!而不用命令hy**link一个一个定义??请帮忙!!!不胜感激!!!

wyj7485

3. Sub Example_HyperLinks()    ' This example creates a Circle object in model space and    ' adds a new Hyperlink to its Hyperlink collection        Dim Hyperlinks As AcadHyperlinks    Dim Hyperlink As AcadHyperlink    Dim circleObj As AcadCircle    Dim centerPoint(0 To 2) As Double    Dim radius As Double    Dim HLList As String        ' Define the Circle object    centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0    radius = 5#        ' Create the Circle object in model space    Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)    ThisDrawing.Application.ZoomAll        ' Get reference to the Circle's Hyperlinks collection    Set Hyperlinks = circleObj.Hyperlinks        ' Add a new Hyperlink complete with all properties    Set Hyperlink = Hyperlinks.Add("AutoDesk")    Hyperlink.URL = "www.autodesk.com"    Hyperlink.URLDescription = "Autodesk Main Site"    Hyperlink.URLNamedLocation = "MY_LOCATION"        ' Read and display a list of existing Hyperlinks and    ' their properties for this object    For Each Hyperlink In Hyperlinks        HLList = HLList & "____________________________________" & vbCrLf   ' Separator        HLList = HLList & "URL: " & Hyperlink.URL & vbCrLf        HLList = HLList & "URL Description: " & Hyperlink.URLDescription & vbCrLf        HLList = HLList & "URL Named Location: " & Hyperlink.URLNamedLocation & vbCrLf    Next        MsgBox "The circle has " & Hyperlinks.count & " Hyperlink: " & vbCrLf & HLListEnd Sub

Sub Example_HyperLinks()    ' This example creates a Circle object in model space and    ' adds a new Hyperlink to its Hyperlink collection        Dim Hyperlinks As AcadHyperlinks    Dim Hyperlink As AcadHyperlink    Dim circleObj As AcadCircle    Dim centerPoint(0 To 2) As Double    Dim radius As Double    Dim HLList As String        ' Define the Circle object    centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0    radius = 5#        ' Create the Circle object in model space    Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)    ThisDrawing.Application.ZoomAll        ' Get reference to the Circle's Hyperlinks collection    Set Hyperlinks = circleObj.Hyperlinks        ' Add a new Hyperlink complete with all properties    Set Hyperlink = Hyperlinks.Add("AutoDesk")    Hyperlink.URL = "www.autodesk.com"    Hyperlink.URLDescription = "Autodesk Main Site"    Hyperlink.URLNamedLocation = "MY_LOCATION"        ' Read and display a list of existing Hyperlinks and    ' their properties for this object    For Each Hyperlink In Hyperlinks        HLList = HLList & "____________________________________" & vbCrLf   ' Separator        HLList = HLList & "URL: " & Hyperlink.URL & vbCrLf        HLList = HLList & "URL Description: " & Hyperlink.URLDescription & vbCrLf        HLList = HLList & "URL Named Location: " & Hyperlink.URLNamedLocation & vbCrLf    Next        MsgBox "The circle has " & Hyperlinks.count & " Hyperlink: " & vbCrLf & HLListEnd Sub