Infrastructure Map Server Developer

Infrastructure Map Server Developer

Reply
Active Member
Syrus1356
Posts: 6
Registered: ‎08-24-2009
Message 1 of 1 (375 Views)

Edit Polyline Property in VBA

375 Views, 0 Replies
08-30-2009 12:01 AM
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
Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.