Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for
Show only
|
Search instead for
Did you mean:
This page has been translated for your convenience with an automatic translation service. This is not an official translation and may contain errors and inaccurate translations. Autodesk does not warrant, either expressly or implied, the accuracy, reliability or completeness of the information translated by the machine translation service and will not be liable for damages or losses caused by the trust placed in the translation service.Translate
{code}
Sub plineWidth()
For Each item In ThisDrawing.ModelSpace
If TypeOf item Is AcadLWPolyline Then
item.ConstantWidth = item.ConstantWidth + 1
End If
Next
End Sub
{code}
Hi
Thanks very much for ur Response
But My exact Problem is this:
Status is :
1- there are several thousand polyline in my drawing
2- and i defined an object data named "CODENOS" and obgect data 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 Pline as ACADLWpolyline
For each object in selected Area
If Type of Object is ACADLWpolyline
Object.Hyperlink. = Object.ObjectData(CODENOS).Field(ADDRESS).value
End if
Next
----------------
WHAT IS EXACT VBA Code For up mentioned pesudo code ?
----------------
{quote}
PLEASE write me a VBA code to do that
{quote}
Search the group for 'filtered selection set' - many examples of creating
one and
iterating through it. There are also samples right in the help menu. If you
have a problem with the code post it back and someone will gladly help you.
Also search on 'SelectOnScreen' which should get you close to the proper
selection set type.
wrote in message news:6241992@discussion.autodesk.com...
Hi