Edit Selected Polyline.Hyperlink.TextToDisplay in VBA

[Anonymous]

Hi
My exact Problem is this:

Status is :
1- There are several thousand polyline in my drawing
2- and i defined an Object Data(Table) named "CODENOS" and Object Data Field(Field) named "ADDRESS" (type is

character) and attached to that polylines

What I want to Do is like This:
1- User select several polylines
2- And by running a VBA macro I want take place under below event :

------------------------------------------------------------
------------------------------------------------------------

Dim SelOnScreen As AcadSelectionSet
Set SelOnScreen = ThisDrawing.SelectionSets.Add("b")
SelOnScreen.SelectOnScreen

For Each Item In SelOnScreen
If TypeOf Item Is AcadLWPolyline Then
Item .Hyperlink.clear //EXACT VBA Code For This pesudo code ?
Item .Hyperlink.TextToDisplay = Item .ObjectData(CODENOS).Field(ADDRESS).value //EXACT VBA Code For This pesudo code ?
End If
Next

SelOnScreen.Delete

------------------------------------------------------------
WHAT IS EXACT VBA Code For up mentioned pesudo code ?
------------------------------------------------------------

Sincerely

Edited by: Syrus1356 on Aug 25, 2009 8:58 AM Edited by: Syrus1356 on Aug 26, 2009 8:55 AM