From b20f412f55476e5b2b4f204ee4a8fc339b868d4f Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Tue, 26 May 2015 06:52:54 +0000 Subject: [PATCH] TestEIn : - correzione ad alcuni prototipi dell'interfaccia. --- EgtInterface.vb | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index cdd0e1a..7d31dc7 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -1275,7 +1275,7 @@ End Function Private Function EgtGetGroupGlobFrame(ByVal nId As Integer, - ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean + ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function Public Function EgtGetGroupGlobFrame(ByVal nId As Integer, ByRef frGRef As Frame3d) As Boolean Dim PtOrig As Point3d @@ -1767,14 +1767,12 @@ Public Function EgtFrame(ByVal nId As Integer, ByVal nRefId As Integer, ByRef fr End If End Function - - Public Function EgtCurveLength(ByVal nId As Integer, ByRef dLen As Double) As Boolean End Function -Public Function EgtCurveLengthAtPoint(ByVal nId As Integer, ByVal ptOn As Point3d, ByVal dExtend As Double, ByRef dLen As Double) As Boolean +Public Function EgtCurveLengthAtPoint(ByVal nId As Integer, ByRef ptOn As Point3d, ByVal dExtend As Double, ByRef dLen As Double) As Boolean End Function Public Function EgtCurveLengthAtPoint(ByVal nId As Integer, ByVal ptOn As Point3d, ByRef dLen As Double) As Boolean Return EgtCurveLengthAtPoint(nId, ptOn, 0, dLen) @@ -1796,7 +1794,7 @@ Public Function EgtGetMinDistPointCurve(ByRef ptP As Point3d, ByVal nId As Integ End Function -Public Function EgtGetMinDistPntSidePointCurve(ByVal ptP As Point3d, ByVal nId As Integer, ByVal vtN As Vector3d, +Public Function EgtGetMinDistPntSidePointCurve(ByRef ptP As Point3d, ByVal nId As Integer, ByRef vtN As Vector3d, ByRef dDist As Double, ByRef ptMin As Point3d, ByRef nSide As Integer) As Boolean End Function @@ -1986,12 +1984,12 @@ End Function Private Function EgtGetGridSnapPointZ(ByVal bSketch As Boolean, - ByVal nWinX As Integer, ByVal nWinY As Integer, ByRef ptGrid As Point3d, - ByRef ptP As Point3d) As Boolean + ByVal nWinX As Integer, ByVal nWinY As Integer, ByRef ptGrid As Point3d, + ByRef ptP As Point3d) As Boolean End Function Public Function EgtGetGridSnapPointZ(ByVal bSketch As Boolean, - ByVal PtWin As Point, ByVal ptGrid As Point3d, - ByRef ptP As Point3d) As Boolean + ByVal PtWin As Point, ByVal ptGrid As Point3d, + ByRef ptP As Point3d) As Boolean Return EgtGetGridSnapPointZ(bSketch, PtWin.X, PtWin.Y, ptGrid, ptP) End Function @@ -2232,8 +2230,8 @@ End Function Private Function EgtFrameLocToLoc(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d, - ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean + ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d, + ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean End Function