http://nickpisca.com/BLAST/index.php?title=SelSurfDup&feed=atom&action=historySelSurfDup - Revision history2024-03-28T22:31:41ZRevision history for this page on the wikiMediaWiki 1.28.1http://nickpisca.com/BLAST/index.php?title=SelSurfDup&diff=320&oldid=prevNickpisca: Created page with " Sub SelSurfDup(SurfArr As Variant) Dim SecArr() ReDim SecArr(0) For X = 0 To UBound(SurfArr) If HasArea(SurfArr(X)) Then Dim CMeas Set CMeas = The..."2017-04-24T19:58:46Z<p>Created page with " Sub SelSurfDup(SurfArr As Variant) Dim SecArr() ReDim SecArr(0) For X = 0 To UBound(SurfArr) If HasArea(SurfArr(X)) Then Dim CMeas Set CMeas = The..."</p>
<p><b>New page</b></p><div> Sub SelSurfDup(SurfArr As Variant)<br />
Dim SecArr()<br />
ReDim SecArr(0)<br />
<br />
For X = 0 To UBound(SurfArr)<br />
If HasArea(SurfArr(X)) Then<br />
Dim CMeas<br />
Set CMeas = TheSPAWorkbench.GetMeasurable(SurfArr(X))<br />
Dim CPerimeter As Double<br />
CPerimeter = CMeas.Perimeter<br />
Dim CArea As Double<br />
CArea = CMeas.Area<br />
Dim CCOG(2)<br />
CMeas.GetCOG CCOG<br />
<br />
For Y = X + 1 To UBound(SurfArr)<br />
If HasArea(SurfArr(Y)) Then<br />
Dim NMeas<br />
Set NMeas = TheSPAWorkbench.GetMeasurable(SurfArr(Y))<br />
Dim NPerimeter As Double<br />
NPerimeter = NMeas.Perimeter<br />
Dim NArea As Double<br />
NArea = NMeas.Area<br />
Dim NCOG(2)<br />
NMeas.GetCOG NCOG<br />
<br />
If NPerimeter = CPerimeter And CArea = NArea And NCOG(0) = CCOG(0) And NCOG(1) = CCOG(1) And NCOG(2) = CCOG(2) Then<br />
Set SecArr(UBound(SecArr)) = SurfArr(Y)<br />
ReDim Preserve SecArr(UBound(SecArr) + 1)<br />
End If<br />
End If<br />
Next Y<br />
End If<br />
Next X <br />
<br />
For Z = 0 To UBound(SecArr) - 1<br />
MyHSFactory.DeleteObjectForDatum SecArr(Z)<br />
Next Z<br />
End Sub<br />
<br />
<br />
<br />
[[Category:CATIA DP VB]]</div>Nickpisca