Infrastructure Map Server Developer

Infrastructure Map Server Developer

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

Edit Polyline Property in VBA

374 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
Are You Going To Be @ AU 2014? Feel free to drop by our AU topic post and share your plans, plug a class that you're teaching, or simply check out who else from the community might be in attendance. Ohh and don't forgot to stop by the Autodesk Help | Learn | Collaborate booths in the Exhibit Hall and meet our community team if you get a chance!