Infrastructure Map Server Developer

Infrastructure Map Server Developer

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

Edit Polyline Property in VBA

372 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
Announcements
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.