Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: clutsa

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