' COPYRIGHT DASSAULT SYSTEMES 2006
Option Explicit


' ***********************************************************************
'   Purpose     : Create a hyperlink on a product and add URLs into.
'   Assumptions : A CATProduct document should be active.
'   Author      : 
'   Languages   : VBScript
'   Locales     : English 
'   CATIA Level : V5R17
' ***********************************************************************


Sub CATMain()

  ' Retrieve the Hyperlinks collection
  Dim TheHyperlinks As Hyperlinks
  Set TheHyperlinks = CATIA.ActiveDocument.Product.GetTechnologicalObject("Hyperlinks")

  ' Create a hyperlink on active product
  Dim MyHyperlink As Hyperlink
  Set MyHyperlink = TheHyperlinks.Add(CATIA.ActiveDocument.Product)
  MyHyperlink.Name = "My hyperlink on my product"

  ' Associate two URL with MyHyperlink
  Dim Url1 As String
  Url1 = "http://www.mycompany.com"
  MyHyperlink.AddUrl(Url1)
  Dim Url2 As String
  Url2 = "http://www.3ds.com"
  MyHyperlink.AddUrl(Url2)

  ' remove first URL on MyHyperlink
  MyHyperlink.RemoveObject(1)

End Sub