As an example:
(defun c:test ( / e )
(vl-load-com)
(if (setq e (car (entsel "\nSelect Object to Add Hyperlink to: ")))
(vla-Add
(vla-get-Hyperlinks
(vlax-ename->vla-object e)
)
"http://www.google.co.uk"
"Google"
)
)
(princ)
)
The information for the hyperlink is stored in the XData of the object:
(-3
(
"PE_URL"
(1000 . "http://www.google.co.uk")
(1002 . "{")
(1000 . "Google")
(1002 . "{")
(1071 . 0)
(1002 . "}")
(1002 . "}")
)
)
I believe the argument order in the VLIDE Help files regarding adding the Hyperlink is incorrect, it should be:
(vla-Add <Hyperlinks Collection> <URL> <Description> <Name>)