11-02-2018
10:07 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-02-2018
10:07 AM
Thank you Clusta! that works perfect. from there I was able to make everything I needed. Sketches would be nice but, know the variables, I figured it would be more work that it was worth.
I would recommend editing the code you have though. Although iFeatures are renamed, they are renamed as Ext.
What you have
oFeature.Name = oFeature.SurfaceBodies(1).Name & " - Ext. " & If (iFeat < 10, "0" + CStr(iFeat), CStr(iFeat))
Should be
oFeature.Name = oFeature.SurfaceBodies(1).Name & " - iFeat. " & If (iFeat < 10, "0" + CStr(iFeat), CStr(iFeat))
Thanks again for your help