# Create and Attach HyperLink Example (VB.NET)

This example shows how to create and attach a HyperLink to a Circle.

'--------------------------------------------------------------
' Preconditions:
' 1. Create a VB.NET Windows console project.
' 2. Copy and paste this example into the VB.NET IDE.
' 3. Add a reference to:
' install_dir\APISDK\tlb\DraftSight.Interop.dsAutomation.dll.
' 4. Add references to System and System.Windows.Forms.
' 5. Start DraftSight and open a drawing document.
' 6. Click Start Debugging.
'
' Postconditions:
' 1. A Circle is constructed in the drawing document.
' 2. A HyperLink is created and attached to the Circle.
' 3. In DraftSight, put the cursor on the Circle to see the
' the hyperlink and Ctrl+click to open DraftSight's website.
'----------------------------------------------------------------
Imports System.Collections.Generic
Imports System.Text
Imports DraftSight.Interop.dsAutomation
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Imports System.Diagnostics
Module Module1
Sub Main()
Dim dsDoc As Document
Dim dsModel As Model
Dim dsSketchManager As SketchManager
Dim dsCircle As Circle
Dim centerX, centerY, centerZ, radius As Double
'Connect to DraftSight
Dim dsApp = GetObject(, "DraftSight.Application")
dsApp.AbortRunningCommand() ' abort any command currently running in DraftSight to avoid nested commands
'Get active document
dsDoc = dsApp.GetActiveDocument()
If Not dsDoc Is Nothing Then
'Get model space
dsModel = dsDoc.GetModel()
'Get Sketch Manager
dsSketchManager = dsModel.GetSketchManager()
'Circle parameters
centerX = 1.0#
centerY = 2.0#
centerZ = 0.0#
radius = 5.0#
'Construct a Circle
dsCircle = dsSketchManager.InsertCircle(centerX, centerY, centerZ, radius)
'Create and attach HyperLink to Circle
Dim startCornerX As Double
startCornerX = 0.0#
Dim startCornerY As Double
startCornerY = 0.0#
Dim startCornerZ As Double
startCornerZ = 0.0#
Dim oppositeCornerX As Double
startCornerX = 0.0#
Dim oppositeCornerY As Double
startCornerY = 0.0#
Dim oppositeCornerZ As Double
startCornerZ = 0.0#
Dim hyperLinkAddress As String
hyperLinkAddress = "http://www.3ds.com/products/draftsight/free-cad-software/"
Dim description As String
description = "DraftSight's website"
Dim ds3DPolyLine As PolyLine3D
Dim dsHyperLink As HyperLink
dsHyperLink = dsSketchManager.AttachLinkToArea(startCornerX, startCornerY, startCornerZ, oppositeCornerX, oppositeCornerY, oppositeCornerZ, hyperLinkAddress, description, ds3DPolyLine)
dsCircle.SetHyperLink(dsHyperLink)
Else
MsgBox("There are no open documents in DraftSight.")
End If
End Sub
End Module