Hi
I have Several thousand Polyline
i define an Table named CODENOS and a field name ID typed character(From Map menu and select object data)
i want to select some of them and copy one property value to other like this
Sub test()
Dim SelOnScreen As AcadSelectionSet
Set SelOnScreen = ThisDrawing.SelectionSets.Add("b")
SelOnScreen.SelectOnScreen 'propmt user to select
' after selection, user must press Enter
For Each Item In SelOnScreen
If TypeOf Item Is AcadLWPolyline Then
Item.hyperlink.clear
------------------------------------------------------------------------------------------------------------------------------------------------------
Item.hyperlink.textToshow.value = Item.CODENOS.ID // pleaz write me a VBA code to do this
------------------------------------------------------------------------------------------------------------------------------------------------------
End If
Next
SelOnScreen.Delete
End Sub
pleaz write me a VBA code to do this