exploding plines routine

Hi friends,         This is my first attempt to write a vba code.     My aim was to select all polylines among all selection
    and explode them.That worked fine!.But all the lines i     obtained were duplicates.Can anyone help me with this     problem? I would be very thankful.     Here goes the code.............. ----------------------------------------------------------------- Sub exp() Dim Mypline As AcadLWPolyline Dim fType(0) As Integer, fData(0) Set adSS = ThisDrawing.SelectionSets.Add("adSS") If Err Then Set adSS = ThisDrawing.SelectionSets.Add("adSS") adSS.Clear fType(0) = 0: fData(0) = "LWPOLYLINE" adSS.Select acSelectionSetAll, , , fType, fData For Each Mypline In adSS Mypline.Explode Next Mypline ThisDrawing.Application.Update adSS.Clear
End Sub ------------------------------------------------------------------
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
The Explode method does not remove the original object. Use MyPline.Delete after you explode it.

Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here. All logos and trade names are the property of their respective owners.