From 83c764189bbec3a243d694adec1c07d30cda26d4 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Mon, 22 Feb 2016 07:49:36 +0000 Subject: [PATCH] TestEIn 1.6n7 : - aggiornamenti interfaccia verso codice nativo. --- EgtInterface.vb | 3220 +++++++++++++++++++----------------- My Project/AssemblyInfo.vb | 4 +- 2 files changed, 1688 insertions(+), 1536 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index 9ccf659..0db6cb3 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -19,7 +19,7 @@ Structure Vector3d ' Membri Dim x, y, z As Double ' Costruttori - Sub New(ByVal dX As Double, ByVal dY As Double, ByVal dZ As Double) + Sub New(dX As Double, dY As Double, dZ As Double) x = dX y = dY z = dZ @@ -30,7 +30,7 @@ Structure Vector3d z = VtV.z End Sub ' Calcolatori da componenti polari / sferici - Shared Function FromSpherical(ByVal dLen As Double, ByVal dAngVertDeg As Double, ByVal dAngOrizzDeg As Double) As Vector3d + Shared Function FromSpherical(dLen As Double, dAngVertDeg As Double, dAngOrizzDeg As Double) As Vector3d Dim dAngVertRad As Double = dAngVertDeg * Math.PI / 180 Dim dAngOrizzRad As Double = dAngOrizzDeg * Math.PI / 180 Dim dSinAngVert As Double = Math.Sin(dAngVertRad) @@ -39,7 +39,7 @@ Structure Vector3d dLen * Math.Cos(dAngVertRad)) Return vtV End Function - Shared Function FromPolar(ByVal dLen As Double, ByVal dAngOrizzDeg As Double) As Vector3d + Shared Function FromPolar(dLen As Double, dAngOrizzDeg As Double) As Vector3d Dim dAngOrizzRad As Double = dAngOrizzDeg * Math.PI / 180 Dim vtV As New Vector3d(dLen * Math.Cos(dAngOrizzRad), dLen * Math.Sin(dAngOrizzRad), @@ -47,52 +47,52 @@ Structure Vector3d Return vtV End Function ' Vettore opposto - Shared Operator -(ByVal VtV1 As Vector3d) As Vector3d + Shared Operator -(VtV1 As Vector3d) As Vector3d Dim vtV As New Vector3d(-VtV1.x, -VtV1.y, -VtV1.z) Return vtV End Operator ' Somma - Shared Operator +(ByVal VtV1 As Vector3d, ByVal VtV2 As Vector3d) As Vector3d + Shared Operator +(VtV1 As Vector3d, VtV2 As Vector3d) As Vector3d Dim vtV As New Vector3d(VtV1.x + VtV2.x, VtV1.y + VtV2.y, VtV1.z + VtV2.z) Return vtV End Operator ' Sottrazione - Shared Operator -(ByVal VtV1 As Vector3d, ByVal VtV2 As Vector3d) As Vector3d + Shared Operator -(VtV1 As Vector3d, VtV2 As Vector3d) As Vector3d Dim vtV As New Vector3d(VtV1.x - VtV2.x, VtV1.y - VtV2.y, VtV1.z - VtV2.z) Return vtV End Operator ' Prodotto con un numero - Shared Operator *(ByVal dNum As Double, ByVal VtV2 As Vector3d) As Vector3d + Shared Operator *(dNum As Double, VtV2 As Vector3d) As Vector3d Dim vtV As New Vector3d(dNum * VtV2.x, dNum * VtV2.y, dNum * VtV2.z) Return vtV End Operator - Shared Operator *(ByVal VtV1 As Vector3d, ByVal dNum As Double) As Vector3d + Shared Operator *(VtV1 As Vector3d, dNum As Double) As Vector3d Dim vtV As New Vector3d(dNum * VtV1.x, dNum * VtV1.y, dNum * VtV1.z) Return vtV End Operator ' Divisione per un numero - Shared Operator /(ByVal VtV1 As Vector3d, ByVal dDiv As Double) As Vector3d + Shared Operator /(VtV1 As Vector3d, dDiv As Double) As Vector3d Dim dMul As Double = 1 / dDiv Dim vtV As New Vector3d(dMul * VtV1.x, dMul * VtV1.y, dMul * VtV1.z) Return vtV End Operator ' Prodotto scalare - Shared Operator *(ByVal VtV1 As Vector3d, ByVal VtV2 As Vector3d) As Double + Shared Operator *(VtV1 As Vector3d, VtV2 As Vector3d) As Double Return (VtV1.x * VtV2.x + VtV1.y * VtV2.y + VtV1.z * VtV2.z) End Operator ' Prodotto scalare nel piano XY - Shared Function ScalarXY(ByVal VtV1 As Vector3d, ByVal VtV2 As Vector3d) As Double + Shared Function ScalarXY(VtV1 As Vector3d, VtV2 As Vector3d) As Double Return (VtV1.x * VtV2.x + VtV1.y * VtV2.y) End Function ' Prodotto vettoriale - Shared Operator ^(ByVal VtV1 As Vector3d, ByVal VtV2 As Vector3d) As Vector3d + Shared Operator ^(VtV1 As Vector3d, VtV2 As Vector3d) As Vector3d Dim vtV As New Vector3d(VtV1.y * VtV2.z - VtV1.z * VtV2.y, VtV1.z * VtV2.x - VtV1.x * VtV2.z, VtV1.x * VtV2.y - VtV1.y * VtV2.x) Return vtV End Operator ' Prodotto vettoriale nel piano XY - Shared Function CrossXY(ByVal VtV1 As Vector3d, ByVal VtV2 As Vector3d) As Double + Shared Function CrossXY(VtV1 As Vector3d, VtV2 As Vector3d) As Double Return (VtV1.x * VtV2.y - VtV1.y * VtV2.x) End Function ' Quadrato della lunghezza @@ -116,7 +116,7 @@ Structure Vector3d Return ((x * x + y * y + z * z) < EPS_SMALL * EPS_SMALL) End Function ' Normalizzazione - Function Normalize(Optional ByVal dEps As Double = EPS_SMALL) As Boolean + Function Normalize(Optional dEps As Double = EPS_SMALL) As Boolean Return EgtVectorNormalize(x, y, z, dEps) End Function ' Ritorna la rappresentazione in coordinate sferiche @@ -149,11 +149,11 @@ Structure Vector3d End If End Sub ' Rotazione - Function Rotate(ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + Function Rotate(ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean Return EgtVectorRotate(x, y, z, VtAx, dAngRotDeg) End Function ' Scalatura - Function Scale(ByRef frRef As Frame3d, ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean + Function Scale(ByRef frRef As Frame3d, dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean Return EgtVectorScale(x, y, z, frRef.Orig(), frRef.VersX(), frRef.VersY(), frRef.VersZ(), dCoeffX, dCoeffY, dCoeffZ) End Function @@ -162,7 +162,7 @@ Structure Vector3d Return EgtVectorMirror(x, y, z, VtNorm) End Function ' Shear - Function Shear(ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean + Function Shear(ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, dCoeff As Double) As Boolean Return EgtVectorShear(x, y, z, VtNorm, VtDir, dCoeff) End Function ' Cambio di riferimento : dal riferimento al globale @@ -192,19 +192,19 @@ Structure Vector3d End If End Function ' Restituisce vettore in globale partendo da espressione nel riferimento dell'oggetto - Function Glob(ByVal nId As Integer) As Vector3d + Function Glob(nId As Integer) As Vector3d Dim vtV As New Vector3d(x, y, z) EgtVectorToIdGlob(vtV, nId) Return vtV End Function ' Restituisce vettore nel riferimento dell'oggetto partendo da espressione in globale - Function Loc(ByVal nId As Integer) As Vector3d + Function Loc(nId As Integer) As Vector3d Dim vtV As New Vector3d(x, y, z) EgtVectorToIdLoc(vtV, nId) Return vtV End Function ' Restituisce vettore nel riferimento del 2°oggetto partendo da espressione nel riferimento del 1° oggetto - Function LocLoc(ByVal nIdSou As Integer, ByVal nIdDest As Integer) As Vector3d + Function LocLoc(nIdSou As Integer, nIdDest As Integer) As Vector3d Dim vtV As New Vector3d(x, y, z) If EgtVectorToIdGlob(vtV, nIdSou) And EgtVectorToIdLoc(vtV, nIdDest) Then Return vtV @@ -234,7 +234,7 @@ Structure Point3d ' Membri Dim x, y, z As Double ' Costruttori - Sub New(ByVal dX As Double, ByVal dY As Double, ByVal dZ As Double) + Sub New(dX As Double, dY As Double, dZ As Double) x = dX y = dY z = dZ @@ -245,16 +245,16 @@ Structure Point3d z = PtP.z End Sub ' Somma di un punto e un vettore - Shared Operator +(ByVal PtP1 As Point3d, ByVal VtV2 As Vector3d) As Point3d + Shared Operator +(PtP1 As Point3d, VtV2 As Vector3d) As Point3d Dim ptP As New Point3d(PtP1.x + VtV2.x, PtP1.y + VtV2.y, PtP1.z + VtV2.z) Return ptP End Operator - Shared Operator +(ByVal VtV1 As Vector3d, ByVal PtP2 As Point3d) As Point3d + Shared Operator +(VtV1 As Vector3d, PtP2 As Point3d) As Point3d Dim ptP As New Point3d(VtV1.x + PtP2.x, VtV1.y + PtP2.y, VtV1.z + PtP2.z) Return ptP End Operator ' Differenza di due punti (produce un vettore) - Shared Operator -(ByVal PtP1 As Point3d, ByVal PtP2 As Point3d) As Vector3d + Shared Operator -(PtP1 As Point3d, PtP2 As Point3d) As Vector3d Dim vtV As New Vector3d(PtP1.x - PtP2.x, PtP1.y - PtP2.y, PtP1.z - PtP2.z) Return vtV End Operator @@ -264,7 +264,7 @@ Structure Point3d Return ptP End Operator ' Media pesata di due punti (con 0 è il primo, con 1 il secondo, con 0.5 il medio, ...) - Shared Function Media(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, Optional ByVal dCoeff As Double = 0.5) As Point3d + Shared Function Media(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, Optional dCoeff As Double = 0.5) As Point3d Dim ptMedia As New Point3d((1 - dCoeff) * ptP1.x + dCoeff * ptP2.x, (1 - dCoeff) * ptP1.y + dCoeff * ptP2.y, (1 - dCoeff) * ptP1.z + dCoeff * ptP2.z) @@ -295,11 +295,11 @@ Structure Point3d Return EgtPointTranslate(x, y, z, VtMove) End Function ' Rotazione - Function Rotate(ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + Function Rotate(ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean Return EgtPointRotate(x, y, z, PtAx, VtAx, dAngRotDeg) End Function ' Scalatura - Function Scale(ByRef frRef As Frame3d, ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean + Function Scale(ByRef frRef As Frame3d, dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean Return EgtPointScale(x, y, z, frRef.Orig(), frRef.VersX(), frRef.VersY(), frRef.VersZ(), dCoeffX, dCoeffY, dCoeffZ) End Function @@ -308,7 +308,7 @@ Structure Point3d Return EgtPointMirror(x, y, z, PtOn, VtNorm) End Function ' Shear - Function Shear(ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean + Function Shear(ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, dCoeff As Double) As Boolean Return EgtPointShear(x, y, z, PtOn, VtNorm, VtDir, dCoeff) End Function ' Cambio di riferimento : dal riferimento al globale @@ -338,19 +338,19 @@ Structure Point3d End If End Function ' Restituisce punto in globale partendo da espressione nel riferimento dell'oggetto - Function Glob(ByVal nId As Integer) As Point3d + Function Glob(nId As Integer) As Point3d Dim ptP As New Point3d(x, y, z) EgtPointToIdGlob(ptP, nId) Return ptP End Function ' Restituisce punto nel riferimento dell'oggetto partendo da espressione in globale - Function Loc(ByVal nId As Integer) As Point3d + Function Loc(nId As Integer) As Point3d Dim ptP As New Point3d(x, y, z) EgtPointToIdLoc(ptP, nId) Return ptP End Function ' Restituisce punto nel riferimento del 2°oggetto partendo da espressione nel riferimento del 1° oggetto - Function LocLoc(ByVal nIdSou As Integer, ByVal nIdDest As Integer) As Point3d + Function LocLoc(nIdSou As Integer, nIdDest As Integer) As Point3d Dim ptP As New Point3d(x, y, z) If EgtPointToIdGlob(ptP, nIdSou) And EgtPointToIdLoc(ptP, nIdDest) Then Return ptP @@ -468,7 +468,7 @@ Class Frame3d End If End Function ' Rotazione - Function Rotate(ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + Function Rotate(ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean If bOk Then Return EgtFrameRotate(PtOrig, VtDirX, VtDirY, VtDirZ, PtAx, VtAx, dAngRotDeg) Else @@ -513,7 +513,7 @@ Structure Color3d ' Membri Dim R, G, B, A As Integer ' Costruttori - Sub New(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer, Optional ByVal nAlpha As Integer = 100) + Sub New(nRed As Integer, nGreen As Integer, nBlue As Integer, Optional nAlpha As Integer = 100) R = nRed G = nGreen B = nBlue @@ -526,7 +526,7 @@ Structure Color3d A = colSou.A End Sub ' Inizializzatori - Sub Setup(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer, Optional ByVal nAlpha As Integer = 100) + Sub Setup(nRed As Integer, nGreen As Integer, nBlue As Integer, Optional nAlpha As Integer = 100) R = nRed G = nGreen B = nBlue @@ -537,7 +537,7 @@ Structure Color3d Return System.Drawing.Color.FromArgb(A * 255 / 100, R, G, B) End Function ' Conversione da System.Drawing.Color - Sub FromColor(ByVal SysCol As System.Drawing.Color) + Sub FromColor(SysCol As System.Drawing.Color) R = SysCol.R G = SysCol.G B = SysCol.B @@ -556,12 +556,12 @@ Const EgtIntDll64 As String = "EgtInterfaceR64.dll" '---------- General ------------------------------------------------------------ -Private Function EgtInit_32(ByVal nDebug As Integer, ByVal sLogFile As String, Optional ByVal sLogMsg As String = "") As Boolean +Private Function EgtInit_32(nDebug As Integer, sLogFile As String, Optional sLogMsg As String = "") As Boolean End Function -Private Function EgtInit_64(ByVal nDebug As Integer, ByVal sLogFile As String, Optional ByVal sLogMsg As String = "") As Boolean +Private Function EgtInit_64(nDebug As Integer, sLogFile As String, Optional sLogMsg As String = "") As Boolean End Function -Public Function EgtInit(ByVal nDebug As Integer, ByVal sLogFile As String, Optional ByVal sLogMsg As String = "") As Boolean +Public Function EgtInit(nDebug As Integer, sLogFile As String, Optional sLogMsg As String = "") As Boolean If IntPtr.Size = 4 Then Return EgtInit_32(nDebug, sLogFile, sLogMsg) Else @@ -584,12 +584,12 @@ Public Function EgtExit() As Boolean End Function -Private Function EgtSetKey_32(ByVal sKey As String) As Boolean +Private Function EgtSetKey_32(sKey As String) As Boolean End Function -Private Function EgtSetKey_64(ByVal sKey As String) As Boolean +Private Function EgtSetKey_64(sKey As String) As Boolean End Function -Public Function EgtSetKey(ByVal sKey As String) As Boolean +Public Function EgtSetKey(sKey As String) As Boolean If IntPtr.Size = 4 Then Return EgtSetKey_32(sKey) Else @@ -598,12 +598,12 @@ Public Function EgtSetKey(ByVal sKey As String) As Boolean End Function -Private Function EgtSetFont_32(ByVal sNfeFontDir As String, ByVal sDefaultFont As String) As Boolean +Private Function EgtSetFont_32(sNfeFontDir As String, sDefaultFont As String) As Boolean End Function -Private Function EgtSetFont_64(ByVal sNfeFontDir As String, ByVal sDefaultFont As String) As Boolean +Private Function EgtSetFont_64(sNfeFontDir As String, sDefaultFont As String) As Boolean End Function -Public Function EgtSetFont(ByVal sNfeFontDir As String, ByVal sDefaultFont As String) As Boolean +Public Function EgtSetFont(sNfeFontDir As String, sDefaultFont As String) As Boolean If IntPtr.Size = 4 Then Return EgtSetFont_32(sNfeFontDir, sDefaultFont) Else @@ -658,12 +658,12 @@ Public Function EgtGetDefaultFont(ByRef sDefaultFont As String) As Boolean End Function -Private Function EgtSetLuaLibs_32(ByVal sLuaLibsDir As String) As Boolean +Private Function EgtSetLuaLibs_32(sLuaLibsDir As String) As Boolean End Function -Private Function EgtSetLuaLibs_64(ByVal sLuaLibsDir As String) As Boolean +Private Function EgtSetLuaLibs_64(sLuaLibsDir As String) As Boolean End Function -Public Function EgtSetLuaLibs(ByVal sLuaLibsDir As String) As Boolean +Public Function EgtSetLuaLibs(sLuaLibsDir As String) As Boolean If IntPtr.Size = 4 Then Return EgtSetLuaLibs_32(sLuaLibsDir) Else @@ -672,12 +672,12 @@ Public Function EgtSetLuaLibs(ByVal sLuaLibsDir As String) As Boolean End Function -Private Function EgtSetCommandLogger_32(ByVal sLogFile As String) As Boolean +Private Function EgtSetCommandLogger_32(sLogFile As String) As Boolean End Function -Private Function EgtSetCommandLogger_64(ByVal sLogFile As String) As Boolean +Private Function EgtSetCommandLogger_64(sLogFile As String) As Boolean End Function -Public Function EgtSetCommandLogger(ByVal sLogFile As String) As Boolean +Public Function EgtSetCommandLogger(sLogFile As String) As Boolean If IntPtr.Size = 4 Then Return EgtSetCommandLogger_32(sLogFile) Else @@ -829,12 +829,12 @@ Public Function EgtGetMemoryInfo(ByRef sMemInfo As String) As Boolean End Function -Private Function EgtFreeMemory_32(ByVal sB As IntPtr) As Boolean +Private Function EgtFreeMemory_32(sB As IntPtr) As Boolean End Function -Private Function EgtFreeMemory_64(ByVal sB As IntPtr) As Boolean +Private Function EgtFreeMemory_64(sB As IntPtr) As Boolean End Function -Public Function EgtFreeMemory(ByVal sB As IntPtr) As Boolean +Public Function EgtFreeMemory(sB As IntPtr) As Boolean If IntPtr.Size = 4 Then Return EgtFreeMemory_32(sB) Else @@ -843,12 +843,12 @@ Public Function EgtFreeMemory(ByVal sB As IntPtr) As Boolean End Function -Private Function EgtOutLog_32(ByVal sMsg As String) As Boolean +Private Function EgtOutLog_32(sMsg As String) As Boolean End Function -Private Function EgtOutLog_64(ByVal sMsg As String) As Boolean +Private Function EgtOutLog_64(sMsg As String) As Boolean End Function -Public Function EgtOutLog(ByVal sMsg As String) As Boolean +Public Function EgtOutLog(sMsg As String) As Boolean If IntPtr.Size = 4 Then Return EgtOutLog_32(sMsg) Else @@ -856,15 +856,15 @@ Public Function EgtOutLog(ByVal sMsg As String) As Boolean End If End Function -Public Delegate Function ProcessEventsCallback(ByVal nProg As Integer, ByVal nPause As Integer) As Integer +Public Delegate Function ProcessEventsCallback(nProg As Integer, nPause As Integer) As Integer -Private Function EgtSetProcessEvents_32(ByVal Callback As ProcessEventsCallback) As Boolean +Private Function EgtSetProcessEvents_32(Callback As ProcessEventsCallback) As Boolean End Function -Private Function EgtSetProcessEvents_64(ByVal Callback As ProcessEventsCallback) As Boolean +Private Function EgtSetProcessEvents_64(Callback As ProcessEventsCallback) As Boolean End Function -Public Function EgtSetProcessEvents(ByVal Callback As ProcessEventsCallback) As Boolean +Public Function EgtSetProcessEvents(Callback As ProcessEventsCallback) As Boolean If IntPtr.Size = 4 Then Return EgtSetProcessEvents_32(Callback) Else @@ -875,12 +875,12 @@ End Function Public Delegate Function OutTextCallback(ByRef psText As IntPtr) As Boolean -Private Function EgtSetOutText_32(ByVal Callback As OutTextCallback) As Boolean +Private Function EgtSetOutText_32(Callback As OutTextCallback) As Boolean End Function -Private Function EgtSetOutText_64(ByVal Callback As OutTextCallback) As Boolean +Private Function EgtSetOutText_64(Callback As OutTextCallback) As Boolean End Function -Public Function EgtSetOutText(ByVal Callback As OutTextCallback) As Boolean +Public Function EgtSetOutText(Callback As OutTextCallback) As Boolean If IntPtr.Size = 4 Then Return EgtSetOutText_32(Callback) Else @@ -890,12 +890,12 @@ End Function '---------- UiUnits ------------------------------------------------------------ -Private Function EgtSetUiUnits_32(ByVal bMM As Boolean) As Boolean +Private Function EgtSetUiUnits_32(bMM As Boolean) As Boolean End Function -Private Function EgtSetUiUnits_64(ByVal bMM As Boolean) As Boolean +Private Function EgtSetUiUnits_64(bMM As Boolean) As Boolean End Function -Public Function EgtSetUiUnits(ByVal bMM As Boolean) As Boolean +Public Function EgtSetUiUnits(bMM As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtSetUiUnits_32(bMM) Else @@ -918,12 +918,12 @@ Public Function EgtUiUnitsAreMM() As Boolean End Function -Private Function EgtFromUiUnits_32(ByVal dVal As Double) As Double +Private Function EgtFromUiUnits_32(dVal As Double) As Double End Function -Private Function EgtFromUiUnits_64(ByVal dVal As Double) As Double +Private Function EgtFromUiUnits_64(dVal As Double) As Double End Function -Public Function EgtFromUiUnits(ByVal dVal As Double) As Double +Public Function EgtFromUiUnits(dVal As Double) As Double If IntPtr.Size = 4 Then Return EgtFromUiUnits_32(dVal) Else @@ -932,12 +932,12 @@ Public Function EgtFromUiUnits(ByVal dVal As Double) As Double End Function -Private Function EgtToUiUnits_32(ByVal dVal As Double) As Double +Private Function EgtToUiUnits_32(dVal As Double) As Double End Function -Private Function EgtToUiUnits_64(ByVal dVal As Double) As Double +Private Function EgtToUiUnits_64(dVal As Double) As Double End Function -Public Function EgtToUiUnits(ByVal dVal As Double) As Double +Public Function EgtToUiUnits(dVal As Double) As Double If IntPtr.Size = 4 Then Return EgtToUiUnits_32(dVal) Else @@ -962,12 +962,12 @@ Public Function EgtInitContext() As Integer End Function -Private Function EgtDeleteContext_32(ByVal nCtx As Integer) As Boolean +Private Function EgtDeleteContext_32(nCtx As Integer) As Boolean End Function -Private Function EgtDeleteContext_64(ByVal nCtx As Integer) As Boolean +Private Function EgtDeleteContext_64(nCtx As Integer) As Boolean End Function -Public Function EgtDeleteContext(ByVal nCtx As Integer) As Boolean +Public Function EgtDeleteContext(nCtx As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtDeleteContext_32(nCtx) Else @@ -976,12 +976,12 @@ Public Function EgtDeleteContext(ByVal nCtx As Integer) As Boolean End Function -Private Function EgtSetCurrentContext_32(ByVal nCtx As Integer) As Boolean +Private Function EgtSetCurrentContext_32(nCtx As Integer) As Boolean End Function -Private Function EgtSetCurrentContext_64(ByVal nCtx As Integer) As Boolean +Private Function EgtSetCurrentContext_64(nCtx As Integer) As Boolean End Function -Public Function EgtSetCurrentContext(ByVal nCtx As Integer) As Boolean +Public Function EgtSetCurrentContext(nCtx As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetCurrentContext_32(nCtx) Else @@ -1114,12 +1114,12 @@ Public Function EgtGetGridVersZ() As Vector3d End Function -Private Function EgtSetCurrFilePath_32(ByVal sFilePath As String) As Boolean +Private Function EgtSetCurrFilePath_32(sFilePath As String) As Boolean End Function -Private Function EgtSetCurrFilePath_64(ByVal sFilePath As String) As Boolean +Private Function EgtSetCurrFilePath_64(sFilePath As String) As Boolean End Function -Public Function EgtSetCurrFilePath(ByVal sFilePath As String) As Boolean +Public Function EgtSetCurrFilePath(sFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtSetCurrFilePath_32(sFilePath) Else @@ -1235,12 +1235,12 @@ Public Function EgtNewFile() As Boolean End Function -Private Function EgtOpenFile_32(ByVal sFilePath As String) As Boolean +Private Function EgtOpenFile_32(sFilePath As String) As Boolean End Function -Private Function EgtOpenFile_64(ByVal sFilePath As String) As Boolean +Private Function EgtOpenFile_64(sFilePath As String) As Boolean End Function -Public Function EgtOpenFile(ByVal sFilePath As String) As Boolean +Public Function EgtOpenFile(sFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtOpenFile_32(sFilePath) Else @@ -1249,12 +1249,12 @@ Public Function EgtOpenFile(ByVal sFilePath As String) As Boolean End Function -Private Function EgtInsertFile_32(ByVal sFilePath As String) As Boolean +Private Function EgtInsertFile_32(sFilePath As String) As Boolean End Function -Private Function EgtInsertFile_64(ByVal sFilePath As String) As Boolean +Private Function EgtInsertFile_64(sFilePath As String) As Boolean End Function -Public Function EgtInsertFile(ByVal sFilePath As String) As Boolean +Public Function EgtInsertFile(sFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtInsertFile_32(sFilePath) Else @@ -1263,12 +1263,12 @@ Public Function EgtInsertFile(ByVal sFilePath As String) As Boolean End Function -Private Function EgtSaveFile_32(ByVal sFilePath As String, ByVal nFlag As NGE) As Boolean +Private Function EgtSaveFile_32(sFilePath As String, nFlag As NGE) As Boolean End Function -Private Function EgtSaveFile_64(ByVal sFilePath As String, ByVal nFlag As NGE) As Boolean +Private Function EgtSaveFile_64(sFilePath As String, nFlag As NGE) As Boolean End Function -Public Function EgtSaveFile(ByVal sFilePath As String, ByVal nFlag As NGE) As Boolean +Public Function EgtSaveFile(sFilePath As String, nFlag As NGE) As Boolean If IntPtr.Size = 4 Then Return EgtSaveFile_32(sFilePath, nFlag) Else @@ -1277,12 +1277,12 @@ Public Function EgtSaveFile(ByVal sFilePath As String, ByVal nFlag As NGE) As Bo End Function -Private Function EgtSaveObjToFile_32(ByVal nId As Integer, ByVal sFilePath As String, ByVal nFlag As NGE) As Boolean +Private Function EgtSaveObjToFile_32(nId As Integer, sFilePath As String, nFlag As NGE) As Boolean End Function -Private Function EgtSaveObjToFile_64(ByVal nId As Integer, ByVal sFilePath As String, ByVal nFlag As NGE) As Boolean +Private Function EgtSaveObjToFile_64(nId As Integer, sFilePath As String, nFlag As NGE) As Boolean End Function -Public Function EgtSaveObjToFile(ByVal nId As Integer, ByVal sFilePath As String, ByVal nFlag As NGE) As Boolean +Public Function EgtSaveObjToFile(nId As Integer, sFilePath As String, nFlag As NGE) As Boolean If IntPtr.Size = 4 Then Return EgtSaveObjToFile_32(nId, sFilePath, nFlag) Else @@ -1293,12 +1293,12 @@ End Function '---------- Exchange ----------------------------------------------------------- -Private Function EgtGetFileType_32(ByVal sFilePath As String) As Integer +Private Function EgtGetFileType_32(sFilePath As String) As Integer End Function -Private Function EgtGetFileType_64(ByVal sFilePath As String) As Integer +Private Function EgtGetFileType_64(sFilePath As String) As Integer End Function -Public Function EgtGetFileType(ByVal sFilePath As String) As Integer +Public Function EgtGetFileType(sFilePath As String) As Integer If IntPtr.Size = 4 Then Return EgtGetFileType_32(sFilePath) Else @@ -1307,12 +1307,12 @@ Public Function EgtGetFileType(ByVal sFilePath As String) As Integer End Function -Private Function EgtImportDxf_32(ByVal sFilePath As String, ByVal dScaleFactor As Double) As Boolean +Private Function EgtImportDxf_32(sFilePath As String, dScaleFactor As Double) As Boolean End Function -Private Function EgtImportDxf_64(ByVal sFilePath As String, ByVal dScaleFactor As Double) As Boolean +Private Function EgtImportDxf_64(sFilePath As String, dScaleFactor As Double) As Boolean End Function -Public Function EgtImportDxf(ByVal sFilePath As String, ByVal dScaleFactor As Double) As Boolean +Public Function EgtImportDxf(sFilePath As String, dScaleFactor As Double) As Boolean If IntPtr.Size = 4 Then Return EgtImportDxf_32(sFilePath, dScaleFactor) Else @@ -1321,12 +1321,12 @@ Public Function EgtImportDxf(ByVal sFilePath As String, ByVal dScaleFactor As Do End Function -Private Function EgtImportStl_32(ByVal sFilePath As String, ByVal dScaleFactor As Double) As Boolean +Private Function EgtImportStl_32(sFilePath As String, dScaleFactor As Double) As Boolean End Function -Private Function EgtImportStl_64(ByVal sFilePath As String, ByVal dScaleFactor As Double) As Boolean +Private Function EgtImportStl_64(sFilePath As String, dScaleFactor As Double) As Boolean End Function -Public Function EgtImportStl(ByVal sFilePath As String, ByVal dScaleFactor As Double) As Boolean +Public Function EgtImportStl(sFilePath As String, dScaleFactor As Double) As Boolean If IntPtr.Size = 4 Then Return EgtImportStl_32(sFilePath, dScaleFactor) Else @@ -1335,12 +1335,12 @@ Public Function EgtImportStl(ByVal sFilePath As String, ByVal dScaleFactor As Do End Function -Private Function EgtImportCnc_32(ByVal sFilePath As String) As Boolean +Private Function EgtImportCnc_32(sFilePath As String) As Boolean End Function -Private Function EgtImportCnc_64(ByVal sFilePath As String) As Boolean +Private Function EgtImportCnc_64(sFilePath As String) As Boolean End Function -Public Function EgtImportCnc(ByVal sFilePath As String) As Boolean +Public Function EgtImportCnc(sFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtImportCnc_32(sFilePath) Else @@ -1349,12 +1349,12 @@ Public Function EgtImportCnc(ByVal sFilePath As String) As Boolean End Function -Private Function EgtImportCsf_32(ByVal sFilePath As String) As Boolean +Private Function EgtImportCsf_32(sFilePath As String) As Boolean End Function -Private Function EgtImportCsf_64(ByVal sFilePath As String) As Boolean +Private Function EgtImportCsf_64(sFilePath As String) As Boolean End Function -Public Function EgtImportCsf(ByVal sFilePath As String) As Boolean +Public Function EgtImportCsf(sFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtImportCsf_32(sFilePath) Else @@ -1363,12 +1363,12 @@ Public Function EgtImportCsf(ByVal sFilePath As String) As Boolean End Function -Private Function EgtImportBtl_32(ByVal sFilePath As String, ByVal bFlatPos As Boolean, ByVal bSpecialTrim As Boolean) As Boolean +Private Function EgtImportBtl_32(sFilePath As String, bFlatPos As Boolean, bSpecialTrim As Boolean) As Boolean End Function -Private Function EgtImportBtl_64(ByVal sFilePath As String, ByVal bFlatPos As Boolean, ByVal bSpecialTrim As Boolean) As Boolean +Private Function EgtImportBtl_64(sFilePath As String, bFlatPos As Boolean, bSpecialTrim As Boolean) As Boolean End Function -Public Function EgtImportBtl(ByVal sFilePath As String, ByVal bFlatPos As Boolean, ByVal bSpecialTrim As Boolean) As Boolean +Public Function EgtImportBtl(sFilePath As String, bFlatPos As Boolean, bSpecialTrim As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtImportBtl_32(sFilePath, bFlatPos, bSpecialTrim) Else @@ -1377,12 +1377,12 @@ Public Function EgtImportBtl(ByVal sFilePath As String, ByVal bFlatPos As Boolea End Function -Private Function EgtExportDxf_32(ByVal nId As Integer, ByVal sFilePath As String) As Boolean +Private Function EgtExportDxf_32(nId As Integer, sFilePath As String) As Boolean End Function -Private Function EgtExportDxf_64(ByVal nId As Integer, ByVal sFilePath As String) As Boolean +Private Function EgtExportDxf_64(nId As Integer, sFilePath As String) As Boolean End Function -Public Function EgtExportDxf(ByVal nId As Integer, ByVal sFilePath As String) As Boolean +Public Function EgtExportDxf(nId As Integer, sFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtExportDxf_32(nId, sFilePath) Else @@ -1391,12 +1391,12 @@ Public Function EgtExportDxf(ByVal nId As Integer, ByVal sFilePath As String) As End Function -Private Function EgtExportStl_32(ByVal nId As Integer, ByVal sFilePath As String) As Boolean +Private Function EgtExportStl_32(nId As Integer, sFilePath As String) As Boolean End Function -Private Function EgtExportStl_64(ByVal nId As Integer, ByVal sFilePath As String) As Boolean +Private Function EgtExportStl_64(nId As Integer, sFilePath As String) As Boolean End Function -Public Function EgtExportStl(ByVal nId As Integer, ByVal sFilePath As String) As Boolean +Public Function EgtExportStl(nId As Integer, sFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtExportStl_32(nId, sFilePath) Else @@ -1421,12 +1421,12 @@ Public Function EgtInitTscExec() As Boolean End Function -Private Function EgtTscExecFile_32(ByVal sFilePath As String) As Boolean +Private Function EgtTscExecFile_32(sFilePath As String) As Boolean End Function -Private Function EgtTscExecFile_64(ByVal sFilePath As String) As Boolean +Private Function EgtTscExecFile_64(sFilePath As String) As Boolean End Function -Public Function EgtTscExecFile(ByVal sFilePath As String) As Boolean +Public Function EgtTscExecFile(sFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtTscExecFile_32(sFilePath) Else @@ -1435,12 +1435,12 @@ Public Function EgtTscExecFile(ByVal sFilePath As String) As Boolean End Function -Private Function EgtTscExecLine_32(ByVal sLine As String) As Boolean +Private Function EgtTscExecLine_32(sLine As String) As Boolean End Function -Private Function EgtTscExecLine_64(ByVal sLine As String) As Boolean +Private Function EgtTscExecLine_64(sLine As String) As Boolean End Function -Public Function EgtTscExecLine(ByVal sLine As String) As Boolean +Public Function EgtTscExecLine(sLine As String) As Boolean If IntPtr.Size = 4 Then Return EgtTscExecLine_32(sLine) Else @@ -1451,12 +1451,12 @@ End Function '---------- LUA Executor ------------------------------------------------------- -Private Function EgtLuaCreateGlobTable_32(ByVal sVar As String) As Boolean +Private Function EgtLuaCreateGlobTable_32(sVar As String) As Boolean End Function -Private Function EgtLuaCreateGlobTable_64(ByVal sVar As String) As Boolean +Private Function EgtLuaCreateGlobTable_64(sVar As String) As Boolean End Function -Public Function EgtLuaCreateGlobTable(ByVal sVar As String) As Boolean +Public Function EgtLuaCreateGlobTable(sVar As String) As Boolean If IntPtr.Size = 4 Then Return EgtLuaCreateGlobTable_32(sVar) Else @@ -1465,12 +1465,12 @@ Public Function EgtLuaCreateGlobTable(ByVal sVar As String) As Boolean End Function -Private Function EgtLuaSetGlobBoolVar_32(ByVal sVar As String, ByVal bVal As Boolean) As Boolean +Private Function EgtLuaSetGlobBoolVar_32(sVar As String, bVal As Boolean) As Boolean End Function -Private Function EgtLuaSetGlobBoolVar_64(ByVal sVar As String, ByVal bVal As Boolean) As Boolean +Private Function EgtLuaSetGlobBoolVar_64(sVar As String, bVal As Boolean) As Boolean End Function -Public Function EgtLuaSetGlobBoolVar(ByVal sVar As String, ByVal bVal As Boolean) As Boolean +Public Function EgtLuaSetGlobBoolVar(sVar As String, bVal As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtLuaSetGlobBoolVar_32(sVar, bVal) Else @@ -1479,12 +1479,12 @@ Public Function EgtLuaSetGlobBoolVar(ByVal sVar As String, ByVal bVal As Boolean End Function -Private Function EgtLuaSetGlobIntVar_32(ByVal sVar As String, ByVal nVal As Integer) As Boolean +Private Function EgtLuaSetGlobIntVar_32(sVar As String, nVal As Integer) As Boolean End Function -Private Function EgtLuaSetGlobIntVar_64(ByVal sVar As String, ByVal nVal As Integer) As Boolean +Private Function EgtLuaSetGlobIntVar_64(sVar As String, nVal As Integer) As Boolean End Function -Public Function EgtLuaSetGlobIntVar(ByVal sVar As String, ByVal nVal As Integer) As Boolean +Public Function EgtLuaSetGlobIntVar(sVar As String, nVal As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtLuaSetGlobIntVar_32(sVar, nVal) Else @@ -1493,12 +1493,12 @@ Public Function EgtLuaSetGlobIntVar(ByVal sVar As String, ByVal nVal As Integer) End Function -Private Function EgtLuaSetGlobNumVar_32(ByVal sVar As String, ByVal dVal As Double) As Boolean +Private Function EgtLuaSetGlobNumVar_32(sVar As String, dVal As Double) As Boolean End Function -Private Function EgtLuaSetGlobNumVar_64(ByVal sVar As String, ByVal dVal As Double) As Boolean +Private Function EgtLuaSetGlobNumVar_64(sVar As String, dVal As Double) As Boolean End Function -Public Function EgtLuaSetGlobNumVar(ByVal sVar As String, ByVal dVal As Double) As Boolean +Public Function EgtLuaSetGlobNumVar(sVar As String, dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtLuaSetGlobNumVar_32(sVar, dVal) Else @@ -1507,12 +1507,12 @@ Public Function EgtLuaSetGlobNumVar(ByVal sVar As String, ByVal dVal As Double) End Function -Private Function EgtLuaSetGlobStringVar_32(ByVal sVar As String, ByVal sVal As String) As Boolean +Private Function EgtLuaSetGlobStringVar_32(sVar As String, sVal As String) As Boolean End Function -Private Function EgtLuaSetGlobStringVar_64(ByVal sVar As String, ByVal sVal As String) As Boolean +Private Function EgtLuaSetGlobStringVar_64(sVar As String, sVal As String) As Boolean End Function -Public Function EgtLuaSetGlobStringVar(ByVal sVar As String, ByVal sVal As String) As Boolean +Public Function EgtLuaSetGlobStringVar(sVar As String, sVal As String) As Boolean If IntPtr.Size = 4 Then Return EgtLuaSetGlobStringVar_32(sVar, sVal) Else @@ -1521,12 +1521,12 @@ Public Function EgtLuaSetGlobStringVar(ByVal sVar As String, ByVal sVal As Strin End Function -Private Function EgtLuaGetGlobBoolVar_32(ByVal sVar As String, ByRef bVal As Boolean) As Boolean +Private Function EgtLuaGetGlobBoolVar_32(sVar As String, ByRef bVal As Boolean) As Boolean End Function -Private Function EgtLuaGetGlobBoolVar_64(ByVal sVar As String, ByRef bVal As Boolean) As Boolean +Private Function EgtLuaGetGlobBoolVar_64(sVar As String, ByRef bVal As Boolean) As Boolean End Function -Public Function EgtLuaGetGlobBoolVar(ByVal sVar As String, ByRef bVal As Boolean) As Boolean +Public Function EgtLuaGetGlobBoolVar(sVar As String, ByRef bVal As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtLuaGetGlobBoolVar_32(sVar, bVal) Else @@ -1535,12 +1535,12 @@ Public Function EgtLuaGetGlobBoolVar(ByVal sVar As String, ByRef bVal As Boolean End Function -Private Function EgtLuaGetGlobIntVar_32(ByVal sVar As String, ByRef nVal As Integer) As Boolean +Private Function EgtLuaGetGlobIntVar_32(sVar As String, ByRef nVal As Integer) As Boolean End Function -Private Function EgtLuaGetGlobIntVar_64(ByVal sVar As String, ByRef nVal As Integer) As Boolean +Private Function EgtLuaGetGlobIntVar_64(sVar As String, ByRef nVal As Integer) As Boolean End Function -Public Function EgtLuaGetGlobIntVar(ByVal sVar As String, ByRef nVal As Integer) As Boolean +Public Function EgtLuaGetGlobIntVar(sVar As String, ByRef nVal As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtLuaGetGlobIntVar_32(sVar, nVal) Else @@ -1549,12 +1549,12 @@ Public Function EgtLuaGetGlobIntVar(ByVal sVar As String, ByRef nVal As Integer) End Function -Private Function EgtLuaGetGlobNumVar_32(ByVal sVar As String, ByRef dVal As Double) As Boolean +Private Function EgtLuaGetGlobNumVar_32(sVar As String, ByRef dVal As Double) As Boolean End Function -Private Function EgtLuaGetGlobNumVar_64(ByVal sVar As String, ByRef dVal As Double) As Boolean +Private Function EgtLuaGetGlobNumVar_64(sVar As String, ByRef dVal As Double) As Boolean End Function -Public Function EgtLuaGetGlobNumVar(ByVal sVar As String, ByRef dVal As Double) As Boolean +Public Function EgtLuaGetGlobNumVar(sVar As String, ByRef dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtLuaGetGlobNumVar_32(sVar, dVal) Else @@ -1563,12 +1563,12 @@ Public Function EgtLuaGetGlobNumVar(ByVal sVar As String, ByRef dVal As Double) End Function -Private Function EgtLuaGetGlobStringVar_32(ByVal sVar As String, ByRef psVal As IntPtr) As Boolean +Private Function EgtLuaGetGlobStringVar_32(sVar As String, ByRef psVal As IntPtr) As Boolean End Function -Private Function EgtLuaGetGlobStringVar_64(ByVal sVar As String, ByRef psVal As IntPtr) As Boolean +Private Function EgtLuaGetGlobStringVar_64(sVar As String, ByRef psVal As IntPtr) As Boolean End Function -Public Function EgtLuaGetGlobStringVar(ByVal sVar As String, ByRef sVal As String) As Boolean +Public Function EgtLuaGetGlobStringVar(sVar As String, ByRef sVal As String) As Boolean Dim psVal As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -1586,12 +1586,12 @@ Public Function EgtLuaGetGlobStringVar(ByVal sVar As String, ByRef sVal As Strin End Function -Private Function EgtLuaResetGlobVar_32(ByVal sVar As String) As Boolean +Private Function EgtLuaResetGlobVar_32(sVar As String) As Boolean End Function -Private Function EgtLuaResetGlobVar_64(ByVal sVar As String) As Boolean +Private Function EgtLuaResetGlobVar_64(sVar As String) As Boolean End Function -Public Function EgtLuaResetGlobVar(ByVal sVar As String) As Boolean +Public Function EgtLuaResetGlobVar(sVar As String) As Boolean If IntPtr.Size = 4 Then Return EgtLuaResetGlobVar_32(sVar) Else @@ -1600,12 +1600,12 @@ Public Function EgtLuaResetGlobVar(ByVal sVar As String) As Boolean End Function -Private Function EgtLuaCallFunction_32(ByVal sFun As String) As Boolean +Private Function EgtLuaCallFunction_32(sFun As String) As Boolean End Function -Private Function EgtLuaCallFunction_64(ByVal sFun As String) As Boolean +Private Function EgtLuaCallFunction_64(sFun As String) As Boolean End Function -Public Function EgtLuaCallFunction(ByVal sFun As String) As Boolean +Public Function EgtLuaCallFunction(sFun As String) As Boolean If IntPtr.Size = 4 Then Return EgtLuaCallFunction_32(sFun) Else @@ -1614,12 +1614,12 @@ Public Function EgtLuaCallFunction(ByVal sFun As String) As Boolean End Function -Private Function EgtLuaEvalNumExpr_32(ByVal sLine As String, ByRef dVal As Double) As Boolean +Private Function EgtLuaEvalNumExpr_32(sLine As String, ByRef dVal As Double) As Boolean End Function -Private Function EgtLuaEvalNumExpr_64(ByVal sLine As String, ByRef dVal As Double) As Boolean +Private Function EgtLuaEvalNumExpr_64(sLine As String, ByRef dVal As Double) As Boolean End Function -Public Function EgtLuaEvalNumExpr(ByVal sLine As String, ByRef dVal As Double) As Boolean +Public Function EgtLuaEvalNumExpr(sLine As String, ByRef dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtLuaEvalNumExpr_32(sLine, dVal) Else @@ -1628,12 +1628,12 @@ Public Function EgtLuaEvalNumExpr(ByVal sLine As String, ByRef dVal As Double) A End Function -Private Function EgtLuaEvalStringExpr_32(ByVal sLine As String, ByRef psVal As IntPtr) As Boolean +Private Function EgtLuaEvalStringExpr_32(sLine As String, ByRef psVal As IntPtr) As Boolean End Function -Private Function EgtLuaEvalStringExpr_64(ByVal sLine As String, ByRef psVal As IntPtr) As Boolean +Private Function EgtLuaEvalStringExpr_64(sLine As String, ByRef psVal As IntPtr) As Boolean End Function -Public Function EgtLuaEvalStringExpr(ByVal sLine As String, ByRef sVal As String) As Boolean +Public Function EgtLuaEvalStringExpr(sLine As String, ByRef sVal As String) As Boolean Dim psVal As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -1651,12 +1651,12 @@ Public Function EgtLuaEvalStringExpr(ByVal sLine As String, ByRef sVal As String End Function -Private Function EgtLuaExecLine_32(ByVal sLine As String) As Boolean +Private Function EgtLuaExecLine_32(sLine As String) As Boolean End Function -Private Function EgtLuaExecLine_64(ByVal sLine As String) As Boolean +Private Function EgtLuaExecLine_64(sLine As String) As Boolean End Function -Public Function EgtLuaExecLine(ByVal sLine As String) As Boolean +Public Function EgtLuaExecLine(sLine As String) As Boolean If IntPtr.Size = 4 Then Return EgtLuaExecLine_32(sLine) Else @@ -1665,12 +1665,12 @@ Public Function EgtLuaExecLine(ByVal sLine As String) As Boolean End Function -Private Function EgtLuaExecFile_32(ByVal sFilePath As String) As Boolean +Private Function EgtLuaExecFile_32(sFilePath As String) As Boolean End Function -Private Function EgtLuaExecFile_64(ByVal sFilePath As String) As Boolean +Private Function EgtLuaExecFile_64(sFilePath As String) As Boolean End Function -Public Function EgtLuaExecFile(ByVal sFilePath As String) As Boolean +Public Function EgtLuaExecFile(sFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtLuaExecFile_32(sFilePath) Else @@ -1679,12 +1679,12 @@ Public Function EgtLuaExecFile(ByVal sFilePath As String) As Boolean End Function -Private Function EgtLuaRequire_32(ByVal sFilePath As String) As Boolean +Private Function EgtLuaRequire_32(sFilePath As String) As Boolean End Function -Private Function EgtLuaRequire_64(ByVal sFilePath As String) As Boolean +Private Function EgtLuaRequire_64(sFilePath As String) As Boolean End Function -Public Function EgtLuaRequire(ByVal sFilePath As String) As Boolean +Public Function EgtLuaRequire(sFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtLuaRequire_32(sFilePath) Else @@ -1718,21 +1718,21 @@ End Function '---------- GeomDb Objects Create ---------------------------------------------- -Private Function EgtCreateGroup_32(ByVal nParentId As Integer, - ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByVal nRefType As GDB_RT) As Integer +Private Function EgtCreateGroup_32(nParentId As Integer, + ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, nRefType As GDB_RT) As Integer End Function -Private Function EgtCreateGroup_64(ByVal nParentId As Integer, - ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByVal nRefType As GDB_RT) As Integer +Private Function EgtCreateGroup_64(nParentId As Integer, + ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, nRefType As GDB_RT) As Integer End Function -Public Function EgtCreateGroup(ByVal nParentId As Integer, ByRef frRef As Frame3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateGroup(nParentId As Integer, ByRef frRef As Frame3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateGroup_32(nParentId, frRef.Orig(), frRef.VersX(), frRef.VersY(), frRef.VersZ(), nRefType) Else Return EgtCreateGroup_64(nParentId, frRef.Orig(), frRef.VersX(), frRef.VersY(), frRef.VersZ(), nRefType) End If End Function -Public Function EgtCreateGroup(ByVal nParentId As Integer) As Integer +Public Function EgtCreateGroup(nParentId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtCreateGroup_32(nParentId, Point3d.ORIG(), Vector3d.X_AX, Vector3d.Y_AX, Vector3d.Z_AX, GDB_RT.LOC) Else @@ -1741,15 +1741,15 @@ Public Function EgtCreateGroup(ByVal nParentId As Integer) As Integer End Function -Private Function EgtCreateGeoPoint_32(ByVal nParentId As Integer, - ByRef PtP As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateGeoPoint_32(nParentId As Integer, + ByRef PtP As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateGeoPoint_64(ByVal nParentId As Integer, - ByRef PtP As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateGeoPoint_64(nParentId As Integer, + ByRef PtP As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateGeoPoint(ByVal nParentId As Integer, - ByRef PtP As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateGeoPoint(nParentId As Integer, + ByRef PtP As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateGeoPoint_32(nParentId, PtP, nRefType) Else @@ -1758,15 +1758,15 @@ Public Function EgtCreateGeoPoint(ByVal nParentId As Integer, End Function -Private Function EgtCreateGeoVector_32(ByVal nParentId As Integer, - ByRef vtV As Vector3d, ByRef PtB As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateGeoVector_32(nParentId As Integer, + ByRef vtV As Vector3d, ByRef PtB As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateGeoVector_64(ByVal nParentId As Integer, - ByRef vtV As Vector3d, ByRef PtB As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateGeoVector_64(nParentId As Integer, + ByRef vtV As Vector3d, ByRef PtB As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateGeoVector(ByVal nParentId As Integer, - ByRef vtV As Vector3d, ByRef PtB As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateGeoVector(nParentId As Integer, + ByRef vtV As Vector3d, ByRef PtB As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateGeoVector_32(nParentId, vtV, PtB, nRefType) Else @@ -1775,14 +1775,14 @@ Public Function EgtCreateGeoVector(ByVal nParentId As Integer, End Function -Private Function EgtCreateGeoFrame_32(ByVal nParentId As Integer, - ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByVal nRefType As GDB_RT) As Integer +Private Function EgtCreateGeoFrame_32(nParentId As Integer, + ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, nRefType As GDB_RT) As Integer End Function -Private Function EgtCreateGeoFrame_64(ByVal nParentId As Integer, - ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByVal nRefType As GDB_RT) As Integer +Private Function EgtCreateGeoFrame_64(nParentId As Integer, + ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, nRefType As GDB_RT) As Integer End Function -Public Function EgtCreateGeoFrame(ByVal nParentId As Integer, ByRef frRef As Frame3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateGeoFrame(nParentId As Integer, ByRef frRef As Frame3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateGeoFrame_32(nParentId, frRef.Orig(), frRef.VersX(), frRef.VersY(), frRef.VersZ(), nRefType) Else @@ -1791,15 +1791,15 @@ Public Function EgtCreateGeoFrame(ByVal nParentId As Integer, ByRef frRef As Fra End Function -Private Function EgtCreateLine_32(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateLine_32(nParentId As Integer, + ByRef PtStart As Point3d, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateLine_64(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateLine_64(nParentId As Integer, + ByRef PtStart As Point3d, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateLine(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateLine(nParentId As Integer, + ByRef PtStart As Point3d, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateLine_32(nParentId, PtStart, PtEnd, nRefType) Else @@ -1808,18 +1808,18 @@ Public Function EgtCreateLine(ByVal nParentId As Integer, End Function -Private Function EgtCreateLineEx_32(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByVal nSepS As SEP, ByVal nIdS As Integer, - ByRef PtEnd As Point3d, ByVal nSepE As SEP, ByVal nIdE As Integer, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateLineEx_32(nParentId As Integer, + ByRef PtStart As Point3d, nSepS As SEP, nIdS As Integer, + ByRef PtEnd As Point3d, nSepE As SEP, nIdE As Integer, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateLineEx_64(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByVal nSepS As SEP, ByVal nIdS As Integer, - ByRef PtEnd As Point3d, ByVal nSepE As SEP, ByVal nIdE As Integer, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateLineEx_64(nParentId As Integer, + ByRef PtStart As Point3d, nSepS As SEP, nIdS As Integer, + ByRef PtEnd As Point3d, nSepE As SEP, nIdE As Integer, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateLineEx(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByVal nSepS As SEP, ByVal nIdS As Integer, - ByRef PtEnd As Point3d, ByVal nSepE As SEP, ByVal nIdE As Integer, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateLineEx(nParentId As Integer, + ByRef PtStart As Point3d, nSepS As SEP, nIdS As Integer, + ByRef PtEnd As Point3d, nSepE As SEP, nIdE As Integer, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateLineEx_32(nParentId, PtStart, nSepS, nIdS, PtEnd, nSepE, nIdE, nRefType) Else @@ -1828,15 +1828,15 @@ Public Function EgtCreateLineEx(ByVal nParentId As Integer, End Function -Private Function EgtCreateLinePDL_32(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByVal dDirDeg As Double, ByVal dLen As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateLinePDL_32(nParentId As Integer, + ByRef PtStart As Point3d, dDirDeg As Double, dLen As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateLinePDL_64(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByVal dDirDeg As Double, ByVal dLen As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateLinePDL_64(nParentId As Integer, + ByRef PtStart As Point3d, dDirDeg As Double, dLen As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateLinePDL(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByVal dDirDeg As Double, ByVal dLen As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateLinePDL(nParentId As Integer, + ByRef PtStart As Point3d, dDirDeg As Double, dLen As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateLinePDL_32(nParentId, PtStart, dDirDeg, dLen, nRefType) Else @@ -1845,15 +1845,15 @@ Public Function EgtCreateLinePDL(ByVal nParentId As Integer, End Function -Private Function EgtCreateLinePVL_32(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByRef VtDir As Vector3d, ByVal dLen As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateLinePVL_32(nParentId As Integer, + ByRef PtStart As Point3d, ByRef VtDir As Vector3d, dLen As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateLinePVL_64(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByRef VtDir As Vector3d, ByVal dLen As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateLinePVL_64(nParentId As Integer, + ByRef PtStart As Point3d, ByRef VtDir As Vector3d, dLen As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateLinePVL(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByRef VtDir As Vector3d, ByVal dLen As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateLinePVL(nParentId As Integer, + ByRef PtStart As Point3d, ByRef VtDir As Vector3d, dLen As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateLinePVL_32(nParentId, PtStart, VtDir, dLen, nRefType) Else @@ -1862,15 +1862,15 @@ Public Function EgtCreateLinePVL(ByVal nParentId As Integer, End Function -Private Function EgtCreateCircle_32(ByVal nParentId As Integer, - ByRef PtCen As Point3d, ByVal dRad As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCircle_32(nParentId As Integer, + ByRef PtCen As Point3d, dRad As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateCircle_64(ByVal nParentId As Integer, - ByRef PtCen As Point3d, ByVal dRad As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCircle_64(nParentId As Integer, + ByRef PtCen As Point3d, dRad As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateCircle(ByVal nParentId As Integer, - ByRef PtCen As Point3d, ByVal dRad As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateCircle(nParentId As Integer, + ByRef PtCen As Point3d, dRad As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateCircle_32(nParentId, PtCen, dRad, nRefType) Else @@ -1879,15 +1879,15 @@ Public Function EgtCreateCircle(ByVal nParentId As Integer, End Function -Private Function EgtCreateCircleCP_32(ByVal nParentId As Integer, - ByRef PtCen As Point3d, ByRef PtOn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCircleCP_32(nParentId As Integer, + ByRef PtCen As Point3d, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateCircleCP_64(ByVal nParentId As Integer, - ByRef PtCen As Point3d, ByRef PtOn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCircleCP_64(nParentId As Integer, + ByRef PtCen As Point3d, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateCircleCP(ByVal nParentId As Integer, - ByRef PtCen As Point3d, ByRef PtOn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateCircleCP(nParentId As Integer, + ByRef PtCen As Point3d, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateCircleCP_32(nParentId, PtCen, PtOn, nRefType) Else @@ -1896,18 +1896,18 @@ Public Function EgtCreateCircleCP(ByVal nParentId As Integer, End Function -Private Function EgtCreateCircleCPEx_32(ByVal nParentId As Integer, ByRef PtCen As Point3d, - ByRef PtOn As Point3d, ByVal nSepO As SEP, ByVal nIdO As Integer, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCircleCPEx_32(nParentId As Integer, ByRef PtCen As Point3d, + ByRef PtOn As Point3d, nSepO As SEP, nIdO As Integer, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateCircleCPEx_64(ByVal nParentId As Integer, ByRef PtCen As Point3d, - ByRef PtOn As Point3d, ByVal nSepO As SEP, ByVal nIdO As Integer, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCircleCPEx_64(nParentId As Integer, ByRef PtCen As Point3d, + ByRef PtOn As Point3d, nSepO As SEP, nIdO As Integer, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateCircleCPEx(ByVal nParentId As Integer, ByRef PtCen As Point3d, - ByRef PtOn As Point3d, ByVal nSepO As SEP, ByVal nIdO As Integer, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateCircleCPEx(nParentId As Integer, ByRef PtCen As Point3d, + ByRef PtOn As Point3d, nSepO As SEP, nIdO As Integer, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateCircleCPEx_32(nParentId, PtCen, PtOn, nSepO, nIdO, nRefType) Else @@ -1916,15 +1916,15 @@ Public Function EgtCreateCircleCPEx(ByVal nParentId As Integer, ByRef PtCen As P End Function -Private Function EgtCreateArc3P_32(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByRef PtMid As Point3d, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateArc3P_32(nParentId As Integer, + ByRef PtStart As Point3d, ByRef PtMid As Point3d, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateArc3P_64(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByRef PtMid As Point3d, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateArc3P_64(nParentId As Integer, + ByRef PtStart As Point3d, ByRef PtMid As Point3d, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateArc3P(ByVal nParentId As Integer, - ByRef PtStart As Point3d, ByRef PtMid As Point3d, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateArc3P(nParentId As Integer, + ByRef PtStart As Point3d, ByRef PtMid As Point3d, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateArc3P_32(nParentId, PtStart, PtMid, PtEnd, nRefType) Else @@ -1933,18 +1933,18 @@ Public Function EgtCreateArc3P(ByVal nParentId As Integer, End Function -Private Function EgtCreateArcC2P_32(ByVal nParentId As Integer, +Private Function EgtCreateArcC2P_32(nParentId As Integer, ByRef PtCen As Point3d, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateArcC2P_64(ByVal nParentId As Integer, +Private Function EgtCreateArcC2P_64(nParentId As Integer, ByRef PtCen As Point3d, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateArcC2P(ByVal nParentId As Integer, +Public Function EgtCreateArcC2P(nParentId As Integer, ByRef PtCen As Point3d, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateArcC2P_32(nParentId, PtCen, PtStart, PtEnd, nRefType) Else @@ -1953,18 +1953,18 @@ Public Function EgtCreateArcC2P(ByVal nParentId As Integer, End Function -Private Function EgtCreateArcC2PEx_32(ByVal nParentId As Integer, - ByRef PtCen As Point3d, ByRef PtStart As Point3d, ByVal nSepS As SEP, ByVal nIdS As Integer, - ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateArcC2PEx_32(nParentId As Integer, + ByRef PtCen As Point3d, ByRef PtStart As Point3d, nSepS As SEP, nIdS As Integer, + ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateArcC2PEx_64(ByVal nParentId As Integer, - ByRef PtCen As Point3d, ByRef PtStart As Point3d, ByVal nSepS As SEP, ByVal nIdS As Integer, - ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateArcC2PEx_64(nParentId As Integer, + ByRef PtCen As Point3d, ByRef PtStart As Point3d, nSepS As SEP, nIdS As Integer, + ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateArcC2PEx(ByVal nParentId As Integer, - ByRef PtCen As Point3d, ByRef PtStart As Point3d, ByVal nSepS As SEP, ByVal nIdS As Integer, - ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateArcC2PEx(nParentId As Integer, + ByRef PtCen As Point3d, ByRef PtStart As Point3d, nSepS As SEP, nIdS As Integer, + ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateArcC2PEx_32(nParentId, PtCen, PtStart, nSepS, nIdS, PtEnd, nRefType) Else @@ -1973,15 +1973,15 @@ Public Function EgtCreateArcC2PEx(ByVal nParentId As Integer, End Function -Private Function EgtCreateArc2PD_32(ByVal nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, - ByVal dDirSDeg As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateArc2PD_32(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, + dDirSDeg As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateArc2PD_64(ByVal nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, - ByVal dDirSDeg As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateArc2PD_64(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, + dDirSDeg As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateArc2PD(ByVal nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, - ByVal dDirSDeg As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateArc2PD(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, + dDirSDeg As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateArc2PD_32(nParentId, PtStart, PtEnd, dDirSDeg, nRefType) Else @@ -1990,18 +1990,18 @@ Public Function EgtCreateArc2PD(ByVal nParentId As Integer, ByRef PtStart As Poi End Function -Private Function EgtCreateArc2PDEx_32(ByVal nParentId As Integer, ByRef PtStart As Point3d, - ByRef PtEnd As Point3d, ByVal nSepE As SEP, ByVal nIdE As Integer, - ByVal dDirSDeg As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateArc2PDEx_32(nParentId As Integer, ByRef PtStart As Point3d, + ByRef PtEnd As Point3d, nSepE As SEP, nIdE As Integer, + dDirSDeg As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateArc2PDEx_64(ByVal nParentId As Integer, ByRef PtStart As Point3d, - ByRef PtEnd As Point3d, ByVal nSepE As SEP, ByVal nIdE As Integer, - ByVal dDirSDeg As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateArc2PDEx_64(nParentId As Integer, ByRef PtStart As Point3d, + ByRef PtEnd As Point3d, nSepE As SEP, nIdE As Integer, + dDirSDeg As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateArc2PDEx(ByVal nParentId As Integer, ByRef PtStart As Point3d, - ByRef PtEnd As Point3d, ByVal nSepE As SEP, ByVal nIdE As Integer, - ByVal dDirSDeg As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateArc2PDEx(nParentId As Integer, ByRef PtStart As Point3d, + ByRef PtEnd As Point3d, nSepE As SEP, nIdE As Integer, + dDirSDeg As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateArc2PDEx_32(nParentId, PtStart, PtEnd, nSepE, nIdE, dDirSDeg, nRefType) Else @@ -2010,18 +2010,18 @@ Public Function EgtCreateArc2PDEx(ByVal nParentId As Integer, ByRef PtStart As P End Function -Private Function EgtCreateArc2PV_32(ByVal nParentId As Integer, +Private Function EgtCreateArc2PV_32(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, ByRef VtDirS As Vector3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateArc2PV_64(ByVal nParentId As Integer, +Private Function EgtCreateArc2PV_64(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, ByRef VtDirS As Vector3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateArc2PV(ByVal nParentId As Integer, +Public Function EgtCreateArc2PV(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, ByRef VtDirS As Vector3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateArc2PV_32(nParentId, PtStart, PtEnd, VtDirS, nRefType) Else @@ -2030,18 +2030,18 @@ Public Function EgtCreateArc2PV(ByVal nParentId As Integer, End Function -Private Function EgtCreateBiArc_32(ByVal nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, - ByVal dDirSDeg As Double, ByVal dDirEDeg As Double, ByVal dPar As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateBiArc_32(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, + dDirSDeg As Double, dDirEDeg As Double, dPar As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateBiArc_64(ByVal nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, - ByVal dDirSDeg As Double, ByVal dDirEDeg As Double, ByVal dPar As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateBiArc_64(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, + dDirSDeg As Double, dDirEDeg As Double, dPar As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateBiArc(ByVal nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, - ByVal dDirSDeg As Double, ByVal dDirEDeg As Double, ByVal dPar As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateBiArc(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, + dDirSDeg As Double, dDirEDeg As Double, dPar As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateBiArc_32(nParentId, PtStart, PtEnd, dDirSDeg, dDirEDeg, dPar, nRefType) Else @@ -2050,18 +2050,18 @@ Public Function EgtCreateBiArc(ByVal nParentId As Integer, ByRef PtStart As Poin End Function -Private Function EgtCreateCurveFillet_32(ByVal nParentId As Integer, ByVal nCrv1 As Integer, ByRef PtNear1 As Point3d, - ByVal nCrv2 As Integer, ByRef PtNear2 As Point3d, - ByVal dRad As Double, ByVal bTrimExt As Boolean, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCurveFillet_32(nParentId As Integer, nCrv1 As Integer, ByRef PtNear1 As Point3d, + nCrv2 As Integer, ByRef PtNear2 As Point3d, + dRad As Double, bTrimExt As Boolean, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateCurveFillet_64(ByVal nParentId As Integer, ByVal nCrv1 As Integer, ByRef PtNear1 As Point3d, - ByVal nCrv2 As Integer, ByRef PtNear2 As Point3d, - ByVal dRad As Double, ByVal bTrimExt As Boolean, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCurveFillet_64(nParentId As Integer, nCrv1 As Integer, ByRef PtNear1 As Point3d, + nCrv2 As Integer, ByRef PtNear2 As Point3d, + dRad As Double, bTrimExt As Boolean, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateCurveFillet(ByVal nParentId As Integer, ByVal nCrv1 As Integer, ByRef PtNear1 As Point3d, - ByVal nCrv2 As Integer, ByRef PtNear2 As Point3d, - ByVal dRad As Double, ByVal bTrimExt As Boolean, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateCurveFillet(nParentId As Integer, nCrv1 As Integer, ByRef PtNear1 As Point3d, + nCrv2 As Integer, ByRef PtNear2 As Point3d, + dRad As Double, bTrimExt As Boolean, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateCurveFillet_32(nParentId, nCrv1, PtNear1, nCrv2, PtNear2, dRad, bTrimExt, nRefType) Else @@ -2070,18 +2070,18 @@ Public Function EgtCreateCurveFillet(ByVal nParentId As Integer, ByVal nCrv1 As End Function -Private Function EgtCreateCurveChamfer_32(ByVal nParentId As Integer, ByVal nCrv1 As Integer, ByRef PtNear1 As Point3d, - ByVal nCrv2 As Integer, ByRef PtNear2 As Point3d, - ByVal dDist As Double, ByVal bTrimExt As Boolean, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCurveChamfer_32(nParentId As Integer, nCrv1 As Integer, ByRef PtNear1 As Point3d, + nCrv2 As Integer, ByRef PtNear2 As Point3d, + dDist As Double, bTrimExt As Boolean, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateCurveChamfer_64(ByVal nParentId As Integer, ByVal nCrv1 As Integer, ByRef PtNear1 As Point3d, - ByVal nCrv2 As Integer, ByRef PtNear2 As Point3d, - ByVal dDist As Double, ByVal bTrimExt As Boolean, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCurveChamfer_64(nParentId As Integer, nCrv1 As Integer, ByRef PtNear1 As Point3d, + nCrv2 As Integer, ByRef PtNear2 As Point3d, + dDist As Double, bTrimExt As Boolean, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateCurveChamfer(ByVal nParentId As Integer, ByVal nCrv1 As Integer, ByRef PtNear1 As Point3d, - ByVal nCrv2 As Integer, ByRef PtNear2 As Point3d, - ByVal dDist As Double, ByVal bTrimExt As Boolean, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateCurveChamfer(nParentId As Integer, nCrv1 As Integer, ByRef PtNear1 As Point3d, + nCrv2 As Integer, ByRef PtNear2 As Point3d, + dDist As Double, bTrimExt As Boolean, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateCurveChamfer_32(nParentId, nCrv1, PtNear1, nCrv2, PtNear2, dDist, bTrimExt, nRefType) Else @@ -2090,15 +2090,15 @@ Public Function EgtCreateCurveChamfer(ByVal nParentId As Integer, ByVal nCrv1 As End Function -Private Function EgtCreateCurveCompoByChain_32(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, - ByRef PtNearStart As Point3d, ByVal bCrvErase As Boolean, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCurveCompoByChain_32(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, + ByRef PtNearStart As Point3d, bCrvErase As Boolean, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateCurveCompoByChain_64(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, - ByRef PtNearStart As Point3d, ByVal bCrvErase As Boolean, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateCurveCompoByChain_64(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, + ByRef PtNearStart As Point3d, bCrvErase As Boolean, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateCurveCompoByChain(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, - ByRef PtNearStart As Point3d, ByVal bCrvErase As Boolean, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateCurveCompoByChain(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, + ByRef PtNearStart As Point3d, bCrvErase As Boolean, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateCurveCompoByChain_32(nParentId, nNumCrv, nCrvId, PtNearStart, bCrvErase, nRefType) Else @@ -2107,18 +2107,18 @@ Public Function EgtCreateCurveCompoByChain(ByVal nParentId As Integer, ByVal nNu End Function -Private Function EgtCreateRectangle2P_32(ByVal nParentId As Integer, +Private Function EgtCreateRectangle2P_32(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtCross As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateRectangle2P_64(ByVal nParentId As Integer, +Private Function EgtCreateRectangle2P_64(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtCross As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateRectangle2P(ByVal nParentId As Integer, +Public Function EgtCreateRectangle2P(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtCross As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateRectangle2P_32(nParentId, PtStart, PtCross, nRefType) Else @@ -2127,18 +2127,18 @@ Public Function EgtCreateRectangle2P(ByVal nParentId As Integer, End Function -Private Function EgtCreateRectangle3P_32(ByVal nParentId As Integer, +Private Function EgtCreateRectangle3P_32(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtCross As Point3d, - ByRef PtDir As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + ByRef PtDir As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateRectangle3P_64(ByVal nParentId As Integer, +Private Function EgtCreateRectangle3P_64(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtCross As Point3d, - ByRef PtDir As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + ByRef PtDir As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateRectangle3P(ByVal nParentId As Integer, +Public Function EgtCreateRectangle3P(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtCross As Point3d, - ByRef PtDir As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + ByRef PtDir As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateRectangle3P_32(nParentId, PtStart, PtCross, PtDir, nRefType) Else @@ -2147,15 +2147,15 @@ Public Function EgtCreateRectangle3P(ByVal nParentId As Integer, End Function -Private Function EgtCreatePolygonFromRadius_32(ByVal nParentId As Integer, ByVal nNumSides As Integer, ByRef PtCen As Point3d, - ByRef PtCorn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreatePolygonFromRadius_32(nParentId As Integer, nNumSides As Integer, ByRef PtCen As Point3d, + ByRef PtCorn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreatePolygonFromRadius_64(ByVal nParentId As Integer, ByVal nNumSides As Integer, ByRef PtCen As Point3d, - ByRef PtCorn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreatePolygonFromRadius_64(nParentId As Integer, nNumSides As Integer, ByRef PtCen As Point3d, + ByRef PtCorn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreatePolygonFromRadius(ByVal nParentId As Integer, ByVal nNumSides As Integer, ByRef PtCen As Point3d, - ByRef PtCorn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreatePolygonFromRadius(nParentId As Integer, nNumSides As Integer, ByRef PtCen As Point3d, + ByRef PtCorn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreatePolygonFromRadius_32(nParentId, nNumSides, PtCen, PtCorn, nRefType) Else @@ -2164,15 +2164,15 @@ Public Function EgtCreatePolygonFromRadius(ByVal nParentId As Integer, ByVal nNu End Function -Private Function EgtCreatePolygonFromApothem_32(ByVal nParentId As Integer, ByVal nNumSides As Integer, ByRef PtCen As Point3d, - ByRef PtMid As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreatePolygonFromApothem_32(nParentId As Integer, nNumSides As Integer, ByRef PtCen As Point3d, + ByRef PtMid As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreatePolygonFromApothem_64(ByVal nParentId As Integer, ByVal nNumSides As Integer, ByRef PtCen As Point3d, - ByRef PtMid As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreatePolygonFromApothem_64(nParentId As Integer, nNumSides As Integer, ByRef PtCen As Point3d, + ByRef PtMid As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreatePolygonFromApothem(ByVal nParentId As Integer, ByVal nNumSides As Integer, ByRef PtCen As Point3d, - ByRef PtMid As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreatePolygonFromApothem(nParentId As Integer, nNumSides As Integer, ByRef PtCen As Point3d, + ByRef PtMid As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreatePolygonFromApothem_32(nParentId, nNumSides, PtCen, PtMid, nRefType) Else @@ -2181,15 +2181,15 @@ Public Function EgtCreatePolygonFromApothem(ByVal nParentId As Integer, ByVal nN End Function -Private Function EgtCreatePolygonFromSide_32(ByVal nParentId As Integer, ByVal nNumSides As Integer, ByRef PtStart As Point3d, - ByRef PtFin As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreatePolygonFromSide_32(nParentId As Integer, nNumSides As Integer, ByRef PtStart As Point3d, + ByRef PtFin As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreatePolygonFromSide_64(ByVal nParentId As Integer, ByVal nNumSides As Integer, ByRef PtStart As Point3d, - ByRef PtFin As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreatePolygonFromSide_64(nParentId As Integer, nNumSides As Integer, ByRef PtStart As Point3d, + ByRef PtFin As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreatePolygonFromSide(ByVal nParentId As Integer, ByVal nNumSides As Integer, ByRef PtStart As Point3d, - ByRef PtFin As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreatePolygonFromSide(nParentId As Integer, nNumSides As Integer, ByRef PtStart As Point3d, + ByRef PtFin As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreatePolygonFromSide_32(nParentId, nNumSides, PtStart, PtFin, nRefType) Else @@ -2198,15 +2198,15 @@ Public Function EgtCreatePolygonFromSide(ByVal nParentId As Integer, ByVal nNumS End Function -Private Function EgtCreateSurfFrRectangle_32(ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateSurfFrRectangle_32(nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateSurfFrRectangle_64(ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateSurfFrRectangle_64(nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateSurfFrRectangle(ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateSurfFrRectangle(nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfFrRectangle_32(nParentId, ptMin, ptMax, nRefType) Else @@ -2215,12 +2215,12 @@ Public Function EgtCreateSurfFrRectangle(ByVal nParentId As Integer, ByRef ptMin End Function -Private Function EgtCreateSurfFlatRegion_32(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer) As Integer +Private Function EgtCreateSurfFlatRegion_32(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer) As Integer End Function -Private Function EgtCreateSurfFlatRegion_64(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer) As Integer +Private Function EgtCreateSurfFlatRegion_64(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer) As Integer End Function -Public Function EgtCreateSurfFlatRegion(ByVal nParentId As Integer, ByVal nCrvId() As Integer) As Integer +Public Function EgtCreateSurfFlatRegion(nParentId As Integer, nCrvId() As Integer) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfFlatRegion_32(nParentId, nCrvId.Length(), nCrvId) Else @@ -2229,15 +2229,15 @@ Public Function EgtCreateSurfFlatRegion(ByVal nParentId As Integer, ByVal nCrvId End Function -Private Function EgtCreateSurfTmBBox_32(ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateSurfTmBBox_32(nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateSurfTmBBox_64(ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateSurfTmBBox_64(nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateSurfTmBBox(ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateSurfTmBBox(nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfTmBBox_32(nParentId, ptMin, ptMax, nRefType) Else @@ -2246,12 +2246,12 @@ Public Function EgtCreateSurfTmBBox(ByVal nParentId As Integer, ByRef ptMin As P End Function -Private Function EgtCreateSurfTmByFlatContour_32(ByVal nParentId As Integer, ByVal nCrvId As Integer, ByVal dLinTol As Double) As Integer +Private Function EgtCreateSurfTmByFlatContour_32(nParentId As Integer, nCrvId As Integer, dLinTol As Double) As Integer End Function -Private Function EgtCreateSurfTmByFlatContour_64(ByVal nParentId As Integer, ByVal nCrvId As Integer, ByVal dLinTol As Double) As Integer +Private Function EgtCreateSurfTmByFlatContour_64(nParentId As Integer, nCrvId As Integer, dLinTol As Double) As Integer End Function -Public Function EgtCreateSurfTmByFlatContour(ByVal nParentId As Integer, ByVal nCrvId As Integer, ByVal dLinTol As Double) As Integer +Public Function EgtCreateSurfTmByFlatContour(nParentId As Integer, nCrvId As Integer, dLinTol As Double) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfTmByFlatContour_32(nParentId, nCrvId, dLinTol) Else @@ -2260,12 +2260,12 @@ Public Function EgtCreateSurfTmByFlatContour(ByVal nParentId As Integer, ByVal n End Function -Private Function EgtCreateSurfTmByRegion_32(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, ByVal dLinTol As Double) As Integer +Private Function EgtCreateSurfTmByRegion_32(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, dLinTol As Double) As Integer End Function -Private Function EgtCreateSurfTmByRegion_64(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, ByVal dLinTol As Double) As Integer +Private Function EgtCreateSurfTmByRegion_64(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, dLinTol As Double) As Integer End Function -Public Function EgtCreateSurfTmByRegion(ByVal nParentId As Integer, ByVal nCrvId() As Integer, ByVal dLinTol As Double) As Integer +Public Function EgtCreateSurfTmByRegion(nParentId As Integer, nCrvId() As Integer, dLinTol As Double) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfTmByRegion_32(nParentId, nCrvId.Length(), nCrvId, dLinTol) Else @@ -2274,18 +2274,18 @@ Public Function EgtCreateSurfTmByRegion(ByVal nParentId As Integer, ByVal nCrvId End Function -Private Function EgtCreateSurfTmByExtrusion_32(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, - ByRef VtExtr As Vector3d, ByVal dLinTol As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateSurfTmByExtrusion_32(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, + ByRef VtExtr As Vector3d, dLinTol As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateSurfTmByExtrusion_64(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, - ByRef VtExtr As Vector3d, ByVal dLinTol As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateSurfTmByExtrusion_64(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, + ByRef VtExtr As Vector3d, dLinTol As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateSurfTmByExtrusion(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, - ByRef VtExtr As Vector3d, ByVal dLinTol As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateSurfTmByExtrusion(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, + ByRef VtExtr As Vector3d, dLinTol As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfTmByExtrusion_32(nParentId, nNumCrv, nCrvId, VtExtr, dLinTol, nRefType) Else @@ -2294,18 +2294,18 @@ Public Function EgtCreateSurfTmByExtrusion(ByVal nParentId As Integer, ByVal nNu End Function -Private Function EgtCreateSurfTmByRegionExtrusion_32(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, - ByRef VtExtr As Vector3d, ByVal dLinTol As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateSurfTmByRegionExtrusion_32(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, + ByRef VtExtr As Vector3d, dLinTol As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateSurfTmByRegionExtrusion_64(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, - ByRef VtExtr As Vector3d, ByVal dLinTol As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateSurfTmByRegionExtrusion_64(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, + ByRef VtExtr As Vector3d, dLinTol As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateSurfTmByRegionExtrusion(ByVal nParentId As Integer, ByVal nNumCrv As Integer, ByVal nCrvId() As Integer, - ByRef VtExtr As Vector3d, ByVal dLinTol As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateSurfTmByRegionExtrusion(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, + ByRef VtExtr As Vector3d, dLinTol As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfTmByRegionExtrusion_32(nParentId, nNumCrv, nCrvId, VtExtr, dLinTol, nRefType) Else @@ -2314,21 +2314,21 @@ Public Function EgtCreateSurfTmByRegionExtrusion(ByVal nParentId As Integer, ByV End Function -Private Function EgtCreateSurfTmByRevolve_32(ByVal nParentId As Integer, ByVal nCrvId As Integer, +Private Function EgtCreateSurfTmByRevolve_32(nParentId As Integer, nCrvId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, - ByVal bCapEnds As Boolean, ByVal dLinTol As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + bCapEnds As Boolean, dLinTol As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateSurfTmByRevolve_64(ByVal nParentId As Integer, ByVal nCrvId As Integer, +Private Function EgtCreateSurfTmByRevolve_64(nParentId As Integer, nCrvId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, - ByVal bCapEnds As Boolean, ByVal dLinTol As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + bCapEnds As Boolean, dLinTol As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateSurfTmByRevolve(ByVal nParentId As Integer, ByVal nCrvId As Integer, +Public Function EgtCreateSurfTmByRevolve(nParentId As Integer, nCrvId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, - ByVal bCapEnds As Boolean, ByVal dLinTol As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + bCapEnds As Boolean, dLinTol As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfTmByRevolve_32(nParentId, nCrvId, PtAx, VtAx, bCapEnds, dLinTol, nRefType) Else @@ -2337,21 +2337,21 @@ Public Function EgtCreateSurfTmByRevolve(ByVal nParentId As Integer, ByVal nCrvI End Function -Private Function EgtCreateSurfTmByScrewing_32(ByVal nParentId As Integer, ByVal nCrvId As Integer, +Private Function EgtCreateSurfTmByScrewing_32(nParentId As Integer, nCrvId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, - ByVal dAngRotDeg As Double, ByVal dMove As Double, - ByVal dLinTol As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + dAngRotDeg As Double, dMove As Double, + dLinTol As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateSurfTmByScrewing_64(ByVal nParentId As Integer, ByVal nCrvId As Integer, +Private Function EgtCreateSurfTmByScrewing_64(nParentId As Integer, nCrvId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, - ByVal dAngRotDeg As Double, ByVal dMove As Double, - ByVal dLinTol As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + dAngRotDeg As Double, dMove As Double, + dLinTol As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateSurfTmByScrewing(ByVal nParentId As Integer, ByVal nCrvId As Integer, +Public Function EgtCreateSurfTmByScrewing(nParentId As Integer, nCrvId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, - ByVal dAngRotDeg As Double, ByVal dMove As Double, - ByVal dLinTol As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer + dAngRotDeg As Double, dMove As Double, + dLinTol As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfTmByScrewing_32(nParentId, nCrvId, PtAx, VtAx, dAngRotDeg, dMove, dLinTol, nRefType) Else @@ -2360,12 +2360,12 @@ Public Function EgtCreateSurfTmByScrewing(ByVal nParentId As Integer, ByVal nCrv End Function -Private Function EgtCreateSurfTmRuled_32(ByVal nParentId As Integer, ByVal nCrvId1 As Integer, ByVal nCrvId2 As Integer, ByVal dLinTol As Double) As Integer +Private Function EgtCreateSurfTmRuled_32(nParentId As Integer, nCrvId1 As Integer, nCrvId2 As Integer, dLinTol As Double) As Integer End Function -Private Function EgtCreateSurfTmRuled_64(ByVal nParentId As Integer, ByVal nCrvId1 As Integer, ByVal nCrvId2 As Integer, ByVal dLinTol As Double) As Integer +Private Function EgtCreateSurfTmRuled_64(nParentId As Integer, nCrvId1 As Integer, nCrvId2 As Integer, dLinTol As Double) As Integer End Function -Public Function EgtCreateSurfTmRuled(ByVal nParentId As Integer, ByVal nCrvId1 As Integer, ByVal nCrvId2 As Integer, ByVal dLinTol As Double) As Integer +Public Function EgtCreateSurfTmRuled(nParentId As Integer, nCrvId1 As Integer, nCrvId2 As Integer, dLinTol As Double) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfTmRuled_32(nParentId, nCrvId1, nCrvId2, dLinTol) Else @@ -2374,12 +2374,12 @@ Public Function EgtCreateSurfTmRuled(ByVal nParentId As Integer, ByVal nCrvId1 A End Function -Private Function EgtCreateSurfTmByTriangles_32(ByVal nParentId As Integer, ByVal nNumSrf As Integer, ByVal nSrfId() As Integer, ByVal bSrfErase As Boolean) As Integer +Private Function EgtCreateSurfTmByTriangles_32(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer End Function -Private Function EgtCreateSurfTmByTriangles_64(ByVal nParentId As Integer, ByVal nNumSrf As Integer, ByVal nSrfId() As Integer, ByVal bSrfErase As Boolean) As Integer +Private Function EgtCreateSurfTmByTriangles_64(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer End Function -Public Function EgtCreateSurfTmByTriangles(ByVal nParentId As Integer, ByVal nNumSrf As Integer, ByVal nSrfId() As Integer, ByVal bSrfErase As Boolean) As Integer +Public Function EgtCreateSurfTmByTriangles(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfTmByTriangles_32(nParentId, nNumSrf, nSrfId, bSrfErase) Else @@ -2388,12 +2388,12 @@ Public Function EgtCreateSurfTmByTriangles(ByVal nParentId As Integer, ByVal nNu End Function -Private Function EgtCreateSurfTmBySewing_32(ByVal nParentId As Integer, ByVal nNumSrf As Integer, ByVal nSrfId() As Integer, ByVal bSrfErase As Boolean) As Integer +Private Function EgtCreateSurfTmBySewing_32(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer End Function -Private Function EgtCreateSurfTmBySewing_64(ByVal nParentId As Integer, ByVal nNumSrf As Integer, ByVal nSrfId() As Integer, ByVal bSrfErase As Boolean) As Integer +Private Function EgtCreateSurfTmBySewing_64(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer End Function -Public Function EgtCreateSurfTmBySewing(ByVal nParentId As Integer, ByVal nNumSrf As Integer, ByVal nSrfId() As Integer, ByVal bSrfErase As Boolean) As Integer +Public Function EgtCreateSurfTmBySewing(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer If IntPtr.Size = 4 Then Return EgtCreateSurfTmBySewing_32(nParentId, nNumSrf, nSrfId, bSrfErase) Else @@ -2402,15 +2402,15 @@ Public Function EgtCreateSurfTmBySewing(ByVal nParentId As Integer, ByVal nNumSr End Function -Private Function EgtCreateText_32(ByVal nParentId As Integer, ByRef ptP As Point3d, - ByVal sText As String, ByVal dH As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateText_32(nParentId As Integer, ByRef ptP As Point3d, + sText As String, dH As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateText_64(ByVal nParentId As Integer, ByRef ptP As Point3d, - ByVal sText As String, ByVal dH As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateText_64(nParentId As Integer, ByRef ptP As Point3d, + sText As String, dH As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateText(ByVal nParentId As Integer, ByRef ptP As Point3d, - ByVal sText As String, ByVal dH As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateText(nParentId As Integer, ByRef ptP As Point3d, + sText As String, dH As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateText_32(nParentId, ptP, sText, dH, nRefType) Else @@ -2419,18 +2419,18 @@ Public Function EgtCreateText(ByVal nParentId As Integer, ByRef ptP As Point3d, End Function -Private Function EgtCreateTextEx_32(ByVal nParentId As Integer, ByRef ptP As Point3d, ByVal dAngRotDeg As Double, - ByVal sText As String, ByVal sFont As String, ByVal bItalic As Boolean, ByVal dH As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateTextEx_32(nParentId As Integer, ByRef ptP As Point3d, dAngRotDeg As Double, + sText As String, sFont As String, bItalic As Boolean, dH As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateTextEx_64(ByVal nParentId As Integer, ByRef ptP As Point3d, ByVal dAngRotDeg As Double, - ByVal sText As String, ByVal sFont As String, ByVal bItalic As Boolean, ByVal dH As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateTextEx_64(nParentId As Integer, ByRef ptP As Point3d, dAngRotDeg As Double, + sText As String, sFont As String, bItalic As Boolean, dH As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateTextEx(ByVal nParentId As Integer, ByRef ptP As Point3d, ByVal dAngRotDeg As Double, - ByVal sText As String, ByVal sFont As String, ByVal bItalic As Boolean, ByVal dH As Double, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateTextEx(nParentId As Integer, ByRef ptP As Point3d, dAngRotDeg As Double, + sText As String, sFont As String, bItalic As Boolean, dH As Double, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateTextEx_32(nParentId, ptP, dAngRotDeg, sText, sFont, bItalic, dH, nRefType) Else @@ -2439,21 +2439,21 @@ Public Function EgtCreateTextEx(ByVal nParentId As Integer, ByRef ptP As Point3d End Function -Private Function EgtCreateTextAdv_32(ByVal nParentId As Integer, ByRef ptP As Point3d, ByVal dAngRotDeg As Double, - ByVal sText As String, ByVal sFont As String, ByVal nW As Integer, ByVal bItalic As Boolean, - ByVal dH As Double, ByVal dRat As Double, ByVal dAddAdv As Double, ByVal nInsPos As Integer, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateTextAdv_32(nParentId As Integer, ByRef ptP As Point3d, dAngRotDeg As Double, + sText As String, sFont As String, nW As Integer, bItalic As Boolean, + dH As Double, dRat As Double, dAddAdv As Double, nInsPos As Integer, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtCreateTextAdv_64(ByVal nParentId As Integer, ByRef ptP As Point3d, ByVal dAngRotDeg As Double, - ByVal sText As String, ByVal sFont As String, ByVal nW As Integer, ByVal bItalic As Boolean, - ByVal dH As Double, ByVal dRat As Double, ByVal dAddAdv As Double, ByVal nInsPos As Integer, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtCreateTextAdv_64(nParentId As Integer, ByRef ptP As Point3d, dAngRotDeg As Double, + sText As String, sFont As String, nW As Integer, bItalic As Boolean, + dH As Double, dRat As Double, dAddAdv As Double, nInsPos As Integer, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtCreateTextAdv(ByVal nParentId As Integer, ByRef ptP As Point3d, ByVal dAngRotDeg As Double, - ByVal sText As String, ByVal sFont As String, ByVal nW As Integer, ByVal bItalic As Boolean, - ByVal dH As Double, ByVal dRat As Double, ByVal dAddAdv As Double, ByVal nInsPos As Integer, - Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtCreateTextAdv(nParentId As Integer, ByRef ptP As Point3d, dAngRotDeg As Double, + sText As String, sFont As String, nW As Integer, bItalic As Boolean, + dH As Double, dRat As Double, dAddAdv As Double, nInsPos As Integer, + Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtCreateTextAdv_32(nParentId, ptP, dAngRotDeg, sText, sFont, nW, bItalic, dH, dRat, dAddAdv, nInsPos, nRefType) Else @@ -2464,14 +2464,14 @@ End Function '---------- GeomDb Objects Modify ---------------------------------------------- -Private Function EgtChangeGroupFrame_32(ByVal nId As Integer, ByRef PtOrig As Point3d, - ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByVal nRefType As GDB_RT) As Boolean +Private Function EgtChangeGroupFrame_32(nId As Integer, ByRef PtOrig As Point3d, + ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, nRefType As GDB_RT) As Boolean End Function -Private Function EgtChangeGroupFrame_64(ByVal nId As Integer, ByRef PtOrig As Point3d, - ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByVal nRefType As GDB_RT) As Boolean +Private Function EgtChangeGroupFrame_64(nId As Integer, ByRef PtOrig As Point3d, + ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, nRefType As GDB_RT) As Boolean End Function -Public Function EgtChangeGroupFrame(ByVal nId As Integer, ByRef frRef As Frame3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtChangeGroupFrame(nId As Integer, ByRef frRef As Frame3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtChangeGroupFrame_32(nId, frRef.Orig(), frRef.VersX(), frRef.VersY(), frRef.VersZ(), nRefType) Else @@ -2480,12 +2480,12 @@ Public Function EgtChangeGroupFrame(ByVal nId As Integer, ByRef frRef As Frame3d End Function -Private Function EgtChangeVectorBase_32(ByVal nId As Integer, ByRef PtBase As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtChangeVectorBase_32(nId As Integer, ByRef PtBase As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtChangeVectorBase_64(ByVal nId As Integer, ByRef PtBase As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtChangeVectorBase_64(nId As Integer, ByRef PtBase As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtChangeVectorBase(ByVal nId As Integer, ByRef PtBase As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtChangeVectorBase(nId As Integer, ByRef PtBase As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtChangeVectorBase_32(nId, PtBase, nRefType) Else @@ -2494,12 +2494,12 @@ Public Function EgtChangeVectorBase(ByVal nId As Integer, ByRef PtBase As Point3 End Function -Private Function EgtFlipText_32(ByVal nId As Integer) As Boolean +Private Function EgtFlipText_32(nId As Integer) As Boolean End Function -Private Function EgtFlipText_64(ByVal nId As Integer) As Boolean +Private Function EgtFlipText_64(nId As Integer) As Boolean End Function -Public Function EgtFlipText(ByVal nId As Integer) As Boolean +Public Function EgtFlipText(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtFlipText_32(nId) Else @@ -2508,12 +2508,12 @@ Public Function EgtFlipText(ByVal nId As Integer) As Boolean End Function -Private Function EgtMirrorText_32(ByVal nId As Integer, ByVal bOnL As Boolean) As Boolean +Private Function EgtMirrorText_32(nId As Integer, bOnL As Boolean) As Boolean End Function -Private Function EgtMirrorText_64(ByVal nId As Integer, ByVal bOnL As Boolean) As Boolean +Private Function EgtMirrorText_64(nId As Integer, bOnL As Boolean) As Boolean End Function -Public Function EgtMirrorText(ByVal nId As Integer, ByVal bOnL As Boolean) As Boolean +Public Function EgtMirrorText(nId As Integer, bOnL As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtMirrorText_32(nId, bOnL) Else @@ -2522,12 +2522,12 @@ Public Function EgtMirrorText(ByVal nId As Integer, ByVal bOnL As Boolean) As Bo End Function -Private Function EgtExplodeText_32(ByVal nId As Integer, ByRef nCount As Integer) As Integer +Private Function EgtExplodeText_32(nId As Integer, ByRef nCount As Integer) As Integer End Function -Private Function EgtExplodeText_64(ByVal nId As Integer, ByRef nCount As Integer) As Integer +Private Function EgtExplodeText_64(nId As Integer, ByRef nCount As Integer) As Integer End Function -Public Function EgtExplodeText(ByVal nId As Integer, ByRef nCount As Integer) As Integer +Public Function EgtExplodeText(nId As Integer, ByRef nCount As Integer) As Integer If IntPtr.Size = 4 Then Return EgtExplodeText_32(nId, nCount) Else @@ -2538,12 +2538,12 @@ End Function '---------- GeomDb Curves Modify ----------------------------------------------- -Private Function EgtInvertCurve_32(ByVal nId As Integer) As Boolean +Private Function EgtInvertCurve_32(nId As Integer) As Boolean End Function -Private Function EgtInvertCurve_64(ByVal nId As Integer) As Boolean +Private Function EgtInvertCurve_64(nId As Integer) As Boolean End Function -Public Function EgtInvertCurve(ByVal nId As Integer) As Boolean +Public Function EgtInvertCurve(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtInvertCurve_32(nId) Else @@ -2552,12 +2552,12 @@ Public Function EgtInvertCurve(ByVal nId As Integer) As Boolean End Function -Private Function EgtOffsetCurve_32(ByVal nId As Integer, ByVal dDist As Double, ByVal nType As OFF_TYPE) As Boolean +Private Function EgtOffsetCurve_32(nId As Integer, dDist As Double, nType As OFF_TYPE) As Boolean End Function -Private Function EgtOffsetCurve_64(ByVal nId As Integer, ByVal dDist As Double, ByVal nType As OFF_TYPE) As Boolean +Private Function EgtOffsetCurve_64(nId As Integer, dDist As Double, nType As OFF_TYPE) As Boolean End Function -Public Function EgtOffsetCurve(ByVal nId As Integer, ByVal dDist As Double, ByVal nType As OFF_TYPE) As Boolean +Public Function EgtOffsetCurve(nId As Integer, dDist As Double, nType As OFF_TYPE) As Boolean If IntPtr.Size = 4 Then Return EgtOffsetCurve_32(nId, dDist, nType) Else @@ -2566,12 +2566,12 @@ Public Function EgtOffsetCurve(ByVal nId As Integer, ByVal dDist As Double, ByVa End Function -Private Function EgtOffsetCurveAdv_32(ByVal nId As Integer, ByVal dDist As Double, ByVal nType As OFF_TYPE, ByRef nCount As Integer) As Integer +Private Function EgtOffsetCurveAdv_32(nId As Integer, dDist As Double, nType As OFF_TYPE, ByRef nCount As Integer) As Integer End Function -Private Function EgtOffsetCurveAdv_64(ByVal nId As Integer, ByVal dDist As Double, ByVal nType As OFF_TYPE, ByRef nCount As Integer) As Integer +Private Function EgtOffsetCurveAdv_64(nId As Integer, dDist As Double, nType As OFF_TYPE, ByRef nCount As Integer) As Integer End Function -Public Function EgtOffsetCurveAdv(ByVal nId As Integer, ByVal dDist As Double, ByVal nType As OFF_TYPE, ByRef nCount As Integer) As Integer +Public Function EgtOffsetCurveAdv(nId As Integer, dDist As Double, nType As OFF_TYPE, ByRef nCount As Integer) As Integer If IntPtr.Size = 4 Then Return EgtOffsetCurveAdv_32(nId, dDist, nType, nCount) Else @@ -2580,12 +2580,12 @@ Public Function EgtOffsetCurveAdv(ByVal nId As Integer, ByVal dDist As Double, B End Function -Private Function EgtApproxCurve_32(ByVal nId As Integer, ByVal nApprType As Integer, ByVal dLinTol As Double) As Boolean +Private Function EgtApproxCurve_32(nId As Integer, nApprType As Integer, dLinTol As Double) As Boolean End Function -Private Function EgtApproxCurve_64(ByVal nId As Integer, ByVal nApprType As Integer, ByVal dLinTol As Double) As Boolean +Private Function EgtApproxCurve_64(nId As Integer, nApprType As Integer, dLinTol As Double) As Boolean End Function -Public Function EgtApproxCurve(ByVal nId As Integer, ByVal nApprType As Integer, ByVal dLinTol As Double) As Boolean +Public Function EgtApproxCurve(nId As Integer, nApprType As Integer, dLinTol As Double) As Boolean If IntPtr.Size = 4 Then Return EgtApproxCurve_32(nId, nApprType, dLinTol) Else @@ -2594,12 +2594,12 @@ Public Function EgtApproxCurve(ByVal nId As Integer, ByVal nApprType As Integer, End Function -Private Function EgtChangeClosedCurveStartPoint_32(ByVal nId As Integer, ByRef PtStart As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtChangeClosedCurveStartPoint_32(nId As Integer, ByRef PtStart As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtChangeClosedCurveStartPoint_64(ByVal nId As Integer, ByRef PtStart As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtChangeClosedCurveStartPoint_64(nId As Integer, ByRef PtStart As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtChangeClosedCurveStartPoint(ByVal nId As Integer, ByRef PtStart As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtChangeClosedCurveStartPoint(nId As Integer, ByRef PtStart As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtChangeClosedCurveStartPoint_32(nId, PtStart, nRefType) Else @@ -2608,12 +2608,12 @@ Public Function EgtChangeClosedCurveStartPoint(ByVal nId As Integer, ByRef PtSta End Function -Private Function EgtModifyCurveStartPoint_32(ByVal nId As Integer, ByRef PtStart As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyCurveStartPoint_32(nId As Integer, ByRef PtStart As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtModifyCurveStartPoint_64(ByVal nId As Integer, ByRef PtStart As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyCurveStartPoint_64(nId As Integer, ByRef PtStart As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtModifyCurveStartPoint(ByVal nId As Integer, ByRef PtStart As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtModifyCurveStartPoint(nId As Integer, ByRef PtStart As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtModifyCurveStartPoint_32(nId, PtStart, nRefType) Else @@ -2622,12 +2622,12 @@ Public Function EgtModifyCurveStartPoint(ByVal nId As Integer, ByRef PtStart As End Function -Private Function EgtModifyCurveEndPoint_32(ByVal nId As Integer, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyCurveEndPoint_32(nId As Integer, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtModifyCurveEndPoint_64(ByVal nId As Integer, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyCurveEndPoint_64(nId As Integer, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtModifyCurveEndPoint(ByVal nId As Integer, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtModifyCurveEndPoint(nId As Integer, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtModifyCurveEndPoint_32(nId, PtEnd, nRefType) Else @@ -2636,12 +2636,12 @@ Public Function EgtModifyCurveEndPoint(ByVal nId As Integer, ByRef PtEnd As Poin End Function -Private Function EgtModifyCurveExtrusion_32(ByVal nId As Integer, ByRef VtExtr As Vector3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyCurveExtrusion_32(nId As Integer, ByRef VtExtr As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtModifyCurveExtrusion_64(ByVal nId As Integer, ByRef VtExtr As Vector3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyCurveExtrusion_64(nId As Integer, ByRef VtExtr As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtModifyCurveExtrusion(ByVal nId As Integer, ByRef VtExtr As Vector3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtModifyCurveExtrusion(nId As Integer, ByRef VtExtr As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtModifyCurveExtrusion_32(nId, VtExtr, nRefType) Else @@ -2650,12 +2650,12 @@ Public Function EgtModifyCurveExtrusion(ByVal nId As Integer, ByRef VtExtr As Ve End Function -Private Function EgtModifyCurveThickness_32(ByVal nId As Integer, ByVal dTh As Double) As Boolean +Private Function EgtModifyCurveThickness_32(nId As Integer, dTh As Double) As Boolean End Function -Private Function EgtModifyCurveThickness_64(ByVal nId As Integer, ByVal dTh As Double) As Boolean +Private Function EgtModifyCurveThickness_64(nId As Integer, dTh As Double) As Boolean End Function -Public Function EgtModifyCurveThickness(ByVal nId As Integer, ByVal dTh As Double) As Boolean +Public Function EgtModifyCurveThickness(nId As Integer, dTh As Double) As Boolean If IntPtr.Size = 4 Then Return EgtModifyCurveThickness_32(nId, dTh) Else @@ -2664,12 +2664,12 @@ Public Function EgtModifyCurveThickness(ByVal nId As Integer, ByVal dTh As Doubl End Function -Private Function EgtExtendCurveStartByLen_32(ByVal nId As Integer, ByVal dLen As Double) As Boolean +Private Function EgtExtendCurveStartByLen_32(nId As Integer, dLen As Double) As Boolean End Function -Private Function EgtExtendCurveStartByLen_64(ByVal nId As Integer, ByVal dLen As Double) As Boolean +Private Function EgtExtendCurveStartByLen_64(nId As Integer, dLen As Double) As Boolean End Function -Public Function EgtExtendCurveStartByLen(ByVal nId As Integer, ByVal dLen As Double) As Boolean +Public Function EgtExtendCurveStartByLen(nId As Integer, dLen As Double) As Boolean If IntPtr.Size = 4 Then Return EgtExtendCurveStartByLen_32(nId, dLen) Else @@ -2678,12 +2678,12 @@ Public Function EgtExtendCurveStartByLen(ByVal nId As Integer, ByVal dLen As Dou End Function -Private Function EgtExtendCurveEndByLen_32(ByVal nId As Integer, ByVal dLen As Double) As Boolean +Private Function EgtExtendCurveEndByLen_32(nId As Integer, dLen As Double) As Boolean End Function -Private Function EgtExtendCurveEndByLen_64(ByVal nId As Integer, ByVal dLen As Double) As Boolean +Private Function EgtExtendCurveEndByLen_64(nId As Integer, dLen As Double) As Boolean End Function -Public Function EgtExtendCurveEndByLen(ByVal nId As Integer, ByVal dLen As Double) As Boolean +Public Function EgtExtendCurveEndByLen(nId As Integer, dLen As Double) As Boolean If IntPtr.Size = 4 Then Return EgtExtendCurveEndByLen_32(nId, dLen) Else @@ -2692,12 +2692,12 @@ Public Function EgtExtendCurveEndByLen(ByVal nId As Integer, ByVal dLen As Doubl End Function -Private Function EgtTrimExtendCurveByLen_32(ByVal nId As Integer, ByVal dLen As Double, ByRef PtNear As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtTrimExtendCurveByLen_32(nId As Integer, dLen As Double, ByRef PtNear As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtTrimExtendCurveByLen_64(ByVal nId As Integer, ByVal dLen As Double, ByRef PtNear As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtTrimExtendCurveByLen_64(nId As Integer, dLen As Double, ByRef PtNear As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtTrimExtendCurveByLen(ByVal nId As Integer, ByVal dLen As Double, ByRef PtNear As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtTrimExtendCurveByLen(nId As Integer, dLen As Double, ByRef PtNear As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtTrimExtendCurveByLen_32(nId, dLen, PtNear, nRefType) Else @@ -2706,12 +2706,12 @@ Public Function EgtTrimExtendCurveByLen(ByVal nId As Integer, ByVal dLen As Doub End Function -Private Function EgtSplitCurve_32(ByVal nId As Integer, ByVal nParts As Integer) As Integer +Private Function EgtSplitCurve_32(nId As Integer, nParts As Integer) As Integer End Function -Private Function EgtSplitCurve_64(ByVal nId As Integer, ByVal nParts As Integer) As Integer +Private Function EgtSplitCurve_64(nId As Integer, nParts As Integer) As Integer End Function -Public Function EgtSplitCurve(ByVal nId As Integer, ByVal nParts As Integer) As Integer +Public Function EgtSplitCurve(nId As Integer, nParts As Integer) As Integer If IntPtr.Size = 4 Then Return EgtSplitCurve_32(nId, nParts) Else @@ -2720,12 +2720,12 @@ Public Function EgtSplitCurve(ByVal nId As Integer, ByVal nParts As Integer) As End Function -Private Function EgtSplitCurveAtPoint_32(ByVal nId As Integer, ByRef PtOn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtSplitCurveAtPoint_32(nId As Integer, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Private Function EgtSplitCurveAtPoint_64(ByVal nId As Integer, ByRef PtOn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Private Function EgtSplitCurveAtPoint_64(nId As Integer, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function -Public Function EgtSplitCurveAtPoint(ByVal nId As Integer, ByRef PtOn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer +Public Function EgtSplitCurveAtPoint(nId As Integer, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer If IntPtr.Size = 4 Then Return EgtSplitCurveAtPoint_32(nId, PtOn, nRefType) Else @@ -2734,12 +2734,12 @@ Public Function EgtSplitCurveAtPoint(ByVal nId As Integer, ByRef PtOn As Point3d End Function -Private Function EgtModifyCircleCP_32(ByVal nId As Integer, ByRef PtOn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyCircleCP_32(nId As Integer, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtModifyCircleCP_64(ByVal nId As Integer, ByRef PtOn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyCircleCP_64(nId As Integer, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtModifyCircleCP(ByVal nId As Integer, ByRef PtOn As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtModifyCircleCP(nId As Integer, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtModifyCircleCP_32(nId, PtOn, nRefType) Else @@ -2748,12 +2748,12 @@ Public Function EgtModifyCircleCP(ByVal nId As Integer, ByRef PtOn As Point3d, O End Function -Private Function EgtModifyArcRadius_32(ByVal nId As Integer, ByVal dRad As Double) As Boolean +Private Function EgtModifyArcRadius_32(nId As Integer, dRad As Double) As Boolean End Function -Private Function EgtModifyArcRadius_64(ByVal nId As Integer, ByVal dRad As Double) As Boolean +Private Function EgtModifyArcRadius_64(nId As Integer, dRad As Double) As Boolean End Function -Public Function EgtModifyArcRadius(ByVal nId As Integer, ByVal dRad As Double) As Boolean +Public Function EgtModifyArcRadius(nId As Integer, dRad As Double) As Boolean If IntPtr.Size = 4 Then Return EgtModifyArcRadius_32(nId, dRad) Else @@ -2762,12 +2762,12 @@ Public Function EgtModifyArcRadius(ByVal nId As Integer, ByVal dRad As Double) A End Function -Private Function EgtModifyArcC2P_32(ByVal nId As Integer, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyArcC2P_32(nId As Integer, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtModifyArcC2P_64(ByVal nId As Integer, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyArcC2P_64(nId As Integer, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtModifyArcC2P(ByVal nId As Integer, ByRef PtEnd As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtModifyArcC2P(nId As Integer, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtModifyArcC2P_32(nId, PtEnd, nRefType) Else @@ -2776,12 +2776,12 @@ Public Function EgtModifyArcC2P(ByVal nId As Integer, ByRef PtEnd As Point3d, Op End Function -Private Function EgtModifyArc3P_32(ByVal nId As Integer, ByRef PtMid As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyArc3P_32(nId As Integer, ByRef PtMid As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtModifyArc3P_64(ByVal nId As Integer, ByRef PtMid As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtModifyArc3P_64(nId As Integer, ByRef PtMid As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtModifyArc3P(ByVal nId As Integer, ByRef PtMid As Point3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtModifyArc3P(nId As Integer, ByRef PtMid As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtModifyArc3P_32(nId, PtMid, nRefType) Else @@ -2789,13 +2789,55 @@ Public Function EgtModifyArc3P(ByVal nId As Integer, ByRef PtMid As Point3d, Opt End If End Function + +Private Function EgtAddCurveCompoJoint_32(nId As Integer, dU As Double) As Boolean +End Function + +Private Function EgtAddCurveCompoJoint_64(nId As Integer, dU As Double) As Boolean +End Function +Public Function EgtAddCurveCompoJoint(nId As Integer, dU As Double) As Boolean + If IntPtr.Size = 4 Then + Return EgtAddCurveCompoJoint_32(nId, dU) + Else + Return EgtAddCurveCompoJoint_64(nId, dU) + End If +End Function + + +Private Function EgtModifyCurveCompoJoint_32(nId As Integer, nU As Integer, ByRef PtJoint As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean +End Function + +Private Function EgtModifyCurveCompoJoint_64(nId As Integer, nU As Integer, ByRef PtJoint As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean +End Function +Public Function EgtModifyCurveCompoJoint(nId As Integer, nU As Integer, ByRef PtJoint As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean + If IntPtr.Size = 4 Then + Return EgtModifyCurveCompoJoint_32(nId, nU, PtJoint, nRefType) + Else + Return EgtModifyCurveCompoJoint_64(nId, nU, PtJoint, nRefType) + End If +End Function + + +Private Function EgtRemoveCurveCompoJoint_32(nId As Integer, nU As Integer) As Boolean +End Function + +Private Function EgtRemoveCurveCompoJoint_64(nId As Integer, nU As Integer) As Boolean +End Function +Public Function EgtRemoveCurveCompoJoint(nId As Integer, nU As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtRemoveCurveCompoJoint_32(nId, nU) + Else + Return EgtRemoveCurveCompoJoint_64(nId, nU) + End If +End Function + -Private Function EgtExplodeCurveCompo_32(ByVal nId As Integer, ByRef nCount As Integer) As Integer +Private Function EgtExplodeCurveCompo_32(nId As Integer, ByRef nCount As Integer) As Integer End Function -Private Function EgtExplodeCurveCompo_64(ByVal nId As Integer, ByRef nCount As Integer) As Integer +Private Function EgtExplodeCurveCompo_64(nId As Integer, ByRef nCount As Integer) As Integer End Function -Public Function EgtExplodeCurveCompo(ByVal nId As Integer, ByRef nCount As Integer) As Integer +Public Function EgtExplodeCurveCompo(nId As Integer, ByRef nCount As Integer) As Integer If IntPtr.Size = 4 Then Return EgtExplodeCurveCompo_32(nId, nCount) Else @@ -2804,12 +2846,12 @@ Public Function EgtExplodeCurveCompo(ByVal nId As Integer, ByRef nCount As Integ End Function -Private Function EgtMergeCurvesInCurveCompo_32(ByVal nId As Integer, ByVal dLinTol As Double) As Boolean +Private Function EgtMergeCurvesInCurveCompo_32(nId As Integer, dLinTol As Double) As Boolean End Function -Private Function EgtMergeCurvesInCurveCompo_64(ByVal nId As Integer, ByVal dLinTol As Double) As Boolean +Private Function EgtMergeCurvesInCurveCompo_64(nId As Integer, dLinTol As Double) As Boolean End Function -Public Function EgtMergeCurvesInCurveCompo(ByVal nId As Integer, ByVal dLinTol As Double) As Boolean +Public Function EgtMergeCurvesInCurveCompo(nId As Integer, dLinTol As Double) As Boolean If IntPtr.Size = 4 Then Return EgtMergeCurvesInCurveCompo_32(nId, dLinTol) Else @@ -2820,12 +2862,12 @@ End Function '---------- GeomDb Surfaces Modify --------------------------------------------- -Private Function EgtInvertSurface_32(ByVal nId As Integer) As Boolean +Private Function EgtInvertSurface_32(nId As Integer) As Boolean End Function -Private Function EgtInvertSurface_64(ByVal nId As Integer) As Boolean +Private Function EgtInvertSurface_64(nId As Integer) As Boolean End Function -Public Function EgtInvertSurface(ByVal nId As Integer) As Boolean +Public Function EgtInvertSurface(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtInvertSurface_32(nId) Else @@ -2834,12 +2876,12 @@ Public Function EgtInvertSurface(ByVal nId As Integer) As Boolean End Function -Private Function EgtExplodeSurface_32(ByVal nId As Integer, ByRef nCount As Integer) As Integer +Private Function EgtExplodeSurface_32(nId As Integer, ByRef nCount As Integer) As Integer End Function -Private Function EgtExplodeSurface_64(ByVal nId As Integer, ByRef nCount As Integer) As Integer +Private Function EgtExplodeSurface_64(nId As Integer, ByRef nCount As Integer) As Integer End Function -Public Function EgtExplodeSurface(ByVal nId As Integer, ByRef nCount As Integer) As Integer +Public Function EgtExplodeSurface(nId As Integer, ByRef nCount As Integer) As Integer If IntPtr.Size = 4 Then Return EgtExplodeSurface_32(nId, nCount) Else @@ -2850,12 +2892,12 @@ End Function '---------- GeomDb Parts & Layers ---------------------------------------------- -Private Function EgtIsPart_32(ByVal nPartId As Integer) As Boolean +Private Function EgtIsPart_32(nPartId As Integer) As Boolean End Function -Private Function EgtIsPart_64(ByVal nPartId As Integer) As Boolean +Private Function EgtIsPart_64(nPartId As Integer) As Boolean End Function -Public Function EgtIsPart(ByVal nPartId As Integer) As Boolean +Public Function EgtIsPart(nPartId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtIsPart_32(nPartId) Else @@ -2864,12 +2906,12 @@ Public Function EgtIsPart(ByVal nPartId As Integer) As Boolean End Function -Private Function EgtIsLayer_32(ByVal nLayerId As Integer) As Boolean +Private Function EgtIsLayer_32(nLayerId As Integer) As Boolean End Function -Private Function EgtIsLayer_64(ByVal nLayerId As Integer) As Boolean +Private Function EgtIsLayer_64(nLayerId As Integer) As Boolean End Function -Public Function EgtIsLayer(ByVal nLayerId As Integer) As Boolean +Public Function EgtIsLayer(nLayerId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtIsLayer_32(nLayerId) Else @@ -2906,12 +2948,12 @@ Public Function EgtGetCurrLayer() As Integer End Function -Private Function EgtSetCurrPartLayer_32(ByVal nPartId As Integer, ByVal nLayerId As Integer) As Integer +Private Function EgtSetCurrPartLayer_32(nPartId As Integer, nLayerId As Integer) As Integer End Function -Private Function EgtSetCurrPartLayer_64(ByVal nPartId As Integer, ByVal nLayerId As Integer) As Integer +Private Function EgtSetCurrPartLayer_64(nPartId As Integer, nLayerId As Integer) As Integer End Function -Public Function EgtSetCurrPartLayer(ByVal nPartId As Integer, ByVal nLayerId As Integer) As Integer +Public Function EgtSetCurrPartLayer(nPartId As Integer, nLayerId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtSetCurrPartLayer_32(nPartId, nLayerId) Else @@ -2934,12 +2976,12 @@ Public Function EgtResetCurrPartLayer() As Integer End Function -Private Function EgtGetFirstPart_32(Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetFirstPart_32(Optional bOnlyVisible As Boolean = False) As Integer End Function -Private Function EgtGetFirstPart_64(Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetFirstPart_64(Optional bOnlyVisible As Boolean = False) As Integer End Function -Public Function EgtGetFirstPart(Optional ByVal bOnlyVisible As Boolean = False) As Integer +Public Function EgtGetFirstPart(Optional bOnlyVisible As Boolean = False) As Integer If IntPtr.Size = 4 Then Return EgtGetFirstPart_32(bOnlyVisible) Else @@ -2948,12 +2990,12 @@ Public Function EgtGetFirstPart(Optional ByVal bOnlyVisible As Boolean = False) End Function -Private Function EgtGetNextPart_32(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetNextPart_32(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Private Function EgtGetNextPart_64(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetNextPart_64(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Public Function EgtGetNextPart(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Public Function EgtGetNextPart(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer If IntPtr.Size = 4 Then Return EgtGetNextPart_32(nPartId, bOnlyVisible) Else @@ -2962,12 +3004,12 @@ Public Function EgtGetNextPart(ByVal nPartId As Integer, Optional ByVal bOnlyVis End Function -Private Function EgtGetLastPart_32(Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetLastPart_32(Optional bOnlyVisible As Boolean = False) As Integer End Function -Private Function EgtGetLastPart_64(Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetLastPart_64(Optional bOnlyVisible As Boolean = False) As Integer End Function -Public Function EgtGetLastPart(Optional ByVal bOnlyVisible As Boolean = False) As Integer +Public Function EgtGetLastPart(Optional bOnlyVisible As Boolean = False) As Integer If IntPtr.Size = 4 Then Return EgtGetLastPart_32(bOnlyVisible) Else @@ -2976,12 +3018,12 @@ Public Function EgtGetLastPart(Optional ByVal bOnlyVisible As Boolean = False) A End Function -Private Function EgtGetPrevPart_32(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetPrevPart_32(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Private Function EgtGetPrevPart_64(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetPrevPart_64(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Public Function EgtGetPrevPart(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Public Function EgtGetPrevPart(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer If IntPtr.Size = 4 Then Return EgtGetPrevPart_32(nPartId, bOnlyVisible) Else @@ -2990,12 +3032,12 @@ Public Function EgtGetPrevPart(ByVal nPartId As Integer, Optional ByVal bOnlyVis End Function -Private Function EgtGetFirstLayer_32(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetFirstLayer_32(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Private Function EgtGetFirstLayer_64(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetFirstLayer_64(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Public Function EgtGetFirstLayer(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Public Function EgtGetFirstLayer(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer If IntPtr.Size = 4 Then Return EgtGetFirstLayer_32(nPartId, bOnlyVisible) Else @@ -3004,12 +3046,12 @@ Public Function EgtGetFirstLayer(ByVal nPartId As Integer, Optional ByVal bOnlyV End Function -Private Function EgtGetNextLayer_32(ByVal nLayerId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetNextLayer_32(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Private Function EgtGetNextLayer_64(ByVal nLayerId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetNextLayer_64(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Public Function EgtGetNextLayer(ByVal nLayerId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Public Function EgtGetNextLayer(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer If IntPtr.Size = 4 Then Return EgtGetNextLayer_32(nLayerId, bOnlyVisible) Else @@ -3018,12 +3060,12 @@ Public Function EgtGetNextLayer(ByVal nLayerId As Integer, Optional ByVal bOnlyV End Function -Private Function EgtGetLastLayer_32(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetLastLayer_32(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Private Function EgtGetlastLayer_64(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetlastLayer_64(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Public Function EgtGetLastLayer(ByVal nPartId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Public Function EgtGetLastLayer(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer If IntPtr.Size = 4 Then Return EgtGetLastLayer_32(nPartId, bOnlyVisible) Else @@ -3032,12 +3074,12 @@ Public Function EgtGetLastLayer(ByVal nPartId As Integer, Optional ByVal bOnlyVi End Function -Private Function EgtGetPrevLayer_32(ByVal nLayerId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetPrevLayer_32(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Private Function EgtGetPrevLayer_64(ByVal nLayerId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Private Function EgtGetPrevLayer_64(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function -Public Function EgtGetPrevLayer(ByVal nLayerId As Integer, Optional ByVal bOnlyVisible As Boolean = False) As Integer +Public Function EgtGetPrevLayer(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer If IntPtr.Size = 4 Then Return EgtGetPrevLayer_32(nLayerId, bOnlyVisible) Else @@ -3060,12 +3102,12 @@ Public Function EgtEraseEmptyParts() As Boolean End Function -Private Function EgtSelectPartObjs_32(ByVal nPartId As Integer) As Boolean +Private Function EgtSelectPartObjs_32(nPartId As Integer) As Boolean End Function -Private Function EgtSelectPartObjs_64(ByVal nPartId As Integer) As Boolean +Private Function EgtSelectPartObjs_64(nPartId As Integer) As Boolean End Function -Public Function EgtSelectPartObjs(ByVal nPartId As Integer) As Boolean +Public Function EgtSelectPartObjs(nPartId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSelectPartObjs_32(nPartId) Else @@ -3074,12 +3116,12 @@ Public Function EgtSelectPartObjs(ByVal nPartId As Integer) As Boolean End Function -Private Function EgtDeselectPartObjs_32(ByVal nPartId As Integer) As Boolean +Private Function EgtDeselectPartObjs_32(nPartId As Integer) As Boolean End Function -Private Function EgtDeselectPartObjs_64(ByVal nPartId As Integer) As Boolean +Private Function EgtDeselectPartObjs_64(nPartId As Integer) As Boolean End Function -Public Function EgtDeselectPartObjs(ByVal nPartId As Integer) As Boolean +Public Function EgtDeselectPartObjs(nPartId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtDeselectPartObjs_32(nPartId) Else @@ -3088,12 +3130,12 @@ Public Function EgtDeselectPartObjs(ByVal nPartId As Integer) As Boolean End Function -Private Function EgtSelectLayerObjs_32(ByVal nLayerId As Integer) As Boolean +Private Function EgtSelectLayerObjs_32(nLayerId As Integer) As Boolean End Function -Private Function EgtSelectLayerObjs_64(ByVal nLayerId As Integer) As Boolean +Private Function EgtSelectLayerObjs_64(nLayerId As Integer) As Boolean End Function -Public Function EgtSelectLayerObjs(ByVal nLayerId As Integer) As Boolean +Public Function EgtSelectLayerObjs(nLayerId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSelectLayerObjs_32(nLayerId) Else @@ -3102,12 +3144,12 @@ Public Function EgtSelectLayerObjs(ByVal nLayerId As Integer) As Boolean End Function -Private Function EgtDeselectLayerObjs_32(ByVal nLayerId As Integer) As Boolean +Private Function EgtDeselectLayerObjs_32(nLayerId As Integer) As Boolean End Function -Private Function EgtDeselectLayerObjs_64(ByVal nLayerId As Integer) As Boolean +Private Function EgtDeselectLayerObjs_64(nLayerId As Integer) As Boolean End Function -Public Function EgtDeselectLayerObjs(ByVal nLayerId As Integer) As Boolean +Public Function EgtDeselectLayerObjs(nLayerId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtDeselectLayerObjs_32(nLayerId) Else @@ -3116,12 +3158,12 @@ Public Function EgtDeselectLayerObjs(ByVal nLayerId As Integer) As Boolean End Function -Private Function EgtSelectPathObjs_32(ByVal nId As Integer, ByVal bHaltOnFork As Boolean) As Boolean +Private Function EgtSelectPathObjs_32(nId As Integer, bHaltOnFork As Boolean) As Boolean End Function -Private Function EgtSelectPathObjs_64(ByVal nId As Integer, ByVal bHaltOnFork As Boolean) As Boolean +Private Function EgtSelectPathObjs_64(nId As Integer, bHaltOnFork As Boolean) As Boolean End Function -Public Function EgtSelectPathObjs(ByVal nId As Integer, ByVal bHaltOnFork As Boolean) As Boolean +Public Function EgtSelectPathObjs(nId As Integer, bHaltOnFork As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtSelectPathObjs_32(nId, bHaltOnFork) Else @@ -3132,12 +3174,12 @@ End Function '---------- GeomDb Objects ----------------------------------------------------- -Private Function EgtExistsObj_32(ByVal nId As Integer) As Boolean +Private Function EgtExistsObj_32(nId As Integer) As Boolean End Function -Private Function EgtExistsObj_64(ByVal nId As Integer) As Boolean +Private Function EgtExistsObj_64(nId As Integer) As Boolean End Function -Public Function EgtExistsObj(ByVal nId As Integer) As Boolean +Public Function EgtExistsObj(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtExistsObj_32(nId) Else @@ -3146,12 +3188,12 @@ Public Function EgtExistsObj(ByVal nId As Integer) As Boolean End Function -Private Function EgtGetParent_32(ByVal nId As Integer) As Integer +Private Function EgtGetParent_32(nId As Integer) As Integer End Function -Private Function EgtGetParent_64(ByVal nId As Integer) As Integer +Private Function EgtGetParent_64(nId As Integer) As Integer End Function -Public Function EgtGetParent(ByVal nId As Integer) As Integer +Public Function EgtGetParent(nId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetParent_32(nId) Else @@ -3160,14 +3202,14 @@ Public Function EgtGetParent(ByVal nId As Integer) As Integer End Function -Private Function EgtGetGroupGlobFrame_32(ByVal nId As Integer, +Private Function EgtGetGroupGlobFrame_32(nId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function -Private Function EgtGetGroupGlobFrame_64(ByVal nId As Integer, +Private Function EgtGetGroupGlobFrame_64(nId As Integer, 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 +Public Function EgtGetGroupGlobFrame(nId As Integer, ByRef frGRef As Frame3d) As Boolean Dim PtOrig As Point3d Dim VtDirX, VtDirY, VtDirZ As Vector3d Dim bOk As Boolean @@ -3184,12 +3226,12 @@ Public Function EgtGetGroupGlobFrame(ByVal nId As Integer, ByRef frGRef As Frame End Function -Private Function EgtGetGroupObjs_32(ByVal nGroupId As Integer) As Integer +Private Function EgtGetGroupObjs_32(nGroupId As Integer) As Integer End Function -Private Function EgtGetGroupObjs_64(ByVal nGroupId As Integer) As Integer +Private Function EgtGetGroupObjs_64(nGroupId As Integer) As Integer End Function -Public Function EgtGetGroupObjs(ByVal nGroupId As Integer) As Integer +Public Function EgtGetGroupObjs(nGroupId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetGroupObjs_32(nGroupId) Else @@ -3198,12 +3240,12 @@ Public Function EgtGetGroupObjs(ByVal nGroupId As Integer) As Integer End Function -Private Function EgtGetFirstInGroup_32(ByVal nGroupId As Integer) As Integer +Private Function EgtGetFirstInGroup_32(nGroupId As Integer) As Integer End Function -Private Function EgtGetFirstInGroup_64(ByVal nGroupId As Integer) As Integer +Private Function EgtGetFirstInGroup_64(nGroupId As Integer) As Integer End Function -Public Function EgtGetFirstInGroup(ByVal nGroupId As Integer) As Integer +Public Function EgtGetFirstInGroup(nGroupId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetFirstInGroup_32(nGroupId) Else @@ -3212,12 +3254,12 @@ Public Function EgtGetFirstInGroup(ByVal nGroupId As Integer) As Integer End Function -Private Function EgtGetNext_32(ByVal nId As Integer) As Integer +Private Function EgtGetNext_32(nId As Integer) As Integer End Function -Private Function EgtGetNext_64(ByVal nId As Integer) As Integer +Private Function EgtGetNext_64(nId As Integer) As Integer End Function -Public Function EgtGetNext(ByVal nId As Integer) As Integer +Public Function EgtGetNext(nId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetNext_32(nId) Else @@ -3226,12 +3268,12 @@ Public Function EgtGetNext(ByVal nId As Integer) As Integer End Function -Private Function EgtGetLastInGroup_32(ByVal nGroupId As Integer) As Integer +Private Function EgtGetLastInGroup_32(nGroupId As Integer) As Integer End Function -Private Function EgtGetLastInGroup_64(ByVal nGroupId As Integer) As Integer +Private Function EgtGetLastInGroup_64(nGroupId As Integer) As Integer End Function -Public Function EgtGetLastInGroup(ByVal nGroupId As Integer) As Integer +Public Function EgtGetLastInGroup(nGroupId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetLastInGroup_32(nGroupId) Else @@ -3240,12 +3282,12 @@ Public Function EgtGetLastInGroup(ByVal nGroupId As Integer) As Integer End Function -Private Function EgtGetPrev_32(ByVal nId As Integer) As Integer +Private Function EgtGetPrev_32(nId As Integer) As Integer End Function -Private Function EgtGetPrev_64(ByVal nId As Integer) As Integer +Private Function EgtGetPrev_64(nId As Integer) As Integer End Function -Public Function EgtGetPrev(ByVal nId As Integer) As Integer +Public Function EgtGetPrev(nId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetPrev_32(nId) Else @@ -3254,12 +3296,12 @@ Public Function EgtGetPrev(ByVal nId As Integer) As Integer End Function -Private Function EgtGetFirstGroupInGroup_32(ByVal nGroupId As Integer) As Integer +Private Function EgtGetFirstGroupInGroup_32(nGroupId As Integer) As Integer End Function -Private Function EgtGetFirstGroupInGroup_64(ByVal nGroupId As Integer) As Integer +Private Function EgtGetFirstGroupInGroup_64(nGroupId As Integer) As Integer End Function -Public Function EgtGetFirstGroupInGroup(ByVal nGroupId As Integer) As Integer +Public Function EgtGetFirstGroupInGroup(nGroupId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetFirstGroupInGroup_32(nGroupId) Else @@ -3268,12 +3310,12 @@ Public Function EgtGetFirstGroupInGroup(ByVal nGroupId As Integer) As Integer End Function -Private Function EgtGetNextGroup_32(ByVal nId As Integer) As Integer +Private Function EgtGetNextGroup_32(nId As Integer) As Integer End Function -Private Function EgtGetNextGroup_64(ByVal nId As Integer) As Integer +Private Function EgtGetNextGroup_64(nId As Integer) As Integer End Function -Public Function EgtGetNextGroup(ByVal nId As Integer) As Integer +Public Function EgtGetNextGroup(nId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetNextGroup_32(nId) Else @@ -3282,12 +3324,12 @@ Public Function EgtGetNextGroup(ByVal nId As Integer) As Integer End Function -Private Function EgtGetLastGroupInGroup_32(ByVal nGroupId As Integer) As Integer +Private Function EgtGetLastGroupInGroup_32(nGroupId As Integer) As Integer End Function -Private Function EgtGetLastGroupInGroup_64(ByVal nGroupId As Integer) As Integer +Private Function EgtGetLastGroupInGroup_64(nGroupId As Integer) As Integer End Function -Public Function EgtGetLastGroupInGroup(ByVal nGroupId As Integer) As Integer +Public Function EgtGetLastGroupInGroup(nGroupId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetLastGroupInGroup_32(nGroupId) Else @@ -3296,12 +3338,12 @@ Public Function EgtGetLastGroupInGroup(ByVal nGroupId As Integer) As Integer End Function -Private Function EgtGetPrevGroup_32(ByVal nId As Integer) As Integer +Private Function EgtGetPrevGroup_32(nId As Integer) As Integer End Function -Private Function EgtGetPrevGroup_64(ByVal nId As Integer) As Integer +Private Function EgtGetPrevGroup_64(nId As Integer) As Integer End Function -Public Function EgtGetPrevGroup(ByVal nId As Integer) As Integer +Public Function EgtGetPrevGroup(nId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetPrevGroup_32(nId) Else @@ -3310,12 +3352,12 @@ Public Function EgtGetPrevGroup(ByVal nId As Integer) As Integer End Function -Private Function EgtGetFirstNameInGroup_32(ByVal nGroupId As Integer, ByVal sName As String) As Integer +Private Function EgtGetFirstNameInGroup_32(nGroupId As Integer, sName As String) As Integer End Function -Private Function EgtGetFirstNameInGroup_64(ByVal nGroupId As Integer, ByVal sName As String) As Integer +Private Function EgtGetFirstNameInGroup_64(nGroupId As Integer, sName As String) As Integer End Function -Public Function EgtGetFirstNameInGroup(ByVal nGroupId As Integer, ByVal sName As String) As Integer +Public Function EgtGetFirstNameInGroup(nGroupId As Integer, sName As String) As Integer If IntPtr.Size = 4 Then Return EgtGetFirstNameInGroup_32(nGroupId, sName) Else @@ -3324,12 +3366,12 @@ Public Function EgtGetFirstNameInGroup(ByVal nGroupId As Integer, ByVal sName As End Function -Private Function EgtGetNextName_32(ByVal nId As Integer, ByVal sName As String) As Integer +Private Function EgtGetNextName_32(nId As Integer, sName As String) As Integer End Function -Private Function EgtGetNextName_64(ByVal nId As Integer, ByVal sName As String) As Integer +Private Function EgtGetNextName_64(nId As Integer, sName As String) As Integer End Function -Public Function EgtGetNextName(ByVal nId As Integer, ByVal sName As String) As Integer +Public Function EgtGetNextName(nId As Integer, sName As String) As Integer If IntPtr.Size = 4 Then Return EgtGetNextName_32(nId, sName) Else @@ -3338,12 +3380,12 @@ Public Function EgtGetNextName(ByVal nId As Integer, ByVal sName As String) As I End Function -Private Function EgtGetLastNameInGroup_32(ByVal nGroupId As Integer, ByVal sName As String) As Integer +Private Function EgtGetLastNameInGroup_32(nGroupId As Integer, sName As String) As Integer End Function -Private Function EgtGetLastNameInGroup_64(ByVal nGroupId As Integer, ByVal sName As String) As Integer +Private Function EgtGetLastNameInGroup_64(nGroupId As Integer, sName As String) As Integer End Function -Public Function EgtGetLastNameInGroup(ByVal nGroupId As Integer, ByVal sName As String) As Integer +Public Function EgtGetLastNameInGroup(nGroupId As Integer, sName As String) As Integer If IntPtr.Size = 4 Then Return EgtGetLastNameInGroup_32(nGroupId, sName) Else @@ -3352,12 +3394,12 @@ Public Function EgtGetLastNameInGroup(ByVal nGroupId As Integer, ByVal sName As End Function -Private Function EgtGetPrevName_32(ByVal nId As Integer, ByVal sName As String) As Integer +Private Function EgtGetPrevName_32(nId As Integer, sName As String) As Integer End Function -Private Function EgtGetPrevName_64(ByVal nId As Integer, ByVal sName As String) As Integer +Private Function EgtGetPrevName_64(nId As Integer, sName As String) As Integer End Function -Public Function EgtGetPrevName(ByVal nId As Integer, ByVal sName As String) As Integer +Public Function EgtGetPrevName(nId As Integer, sName As String) As Integer If IntPtr.Size = 4 Then Return EgtGetPrevName_32(nId, sName) Else @@ -3366,14 +3408,14 @@ Public Function EgtGetPrevName(ByVal nId As Integer, ByVal sName As String) As I End Function -Private Function EgtGetBBox_32(ByVal nId As Integer, ByVal nFlag As Integer, +Private Function EgtGetBBox_32(nId As Integer, nFlag As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function -Private Function EgtGetBBox_64(ByVal nId As Integer, ByVal nFlag As Integer, +Private Function EgtGetBBox_64(nId As Integer, nFlag As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function -Public Function EgtGetBBox(ByVal nId As Integer, ByVal nFlag As Integer, +Public Function EgtGetBBox(nId As Integer, nFlag As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtGetBBox_32(nId, nFlag, PtMin, PtMax) @@ -3383,14 +3425,14 @@ Public Function EgtGetBBox(ByVal nId As Integer, ByVal nFlag As Integer, End Function -Private Function EgtGetBBoxGlob_32(ByVal nId As Integer, ByVal nFlag As Integer, +Private Function EgtGetBBoxGlob_32(nId As Integer, nFlag As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function -Private Function EgtGetBBoxGlob_64(ByVal nId As Integer, ByVal nFlag As Integer, +Private Function EgtGetBBoxGlob_64(nId As Integer, nFlag As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function -Public Function EgtGetBBoxGlob(ByVal nId As Integer, ByVal nFlag As Integer, +Public Function EgtGetBBoxGlob(nId As Integer, nFlag As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtGetBBoxGlob_32(nId, nFlag, PtMin, PtMax) @@ -3400,12 +3442,12 @@ Public Function EgtGetBBoxGlob(ByVal nId As Integer, ByVal nFlag As Integer, End Function -Private Function EgtCopy_32(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Private Function EgtCopy_32(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer End Function -Private Function EgtCopy_64(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Private Function EgtCopy_64(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer End Function -Public Function EgtCopy(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Public Function EgtCopy(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer If IntPtr.Size = 4 Then Return EgtCopy_32(nId, nRefId, nSonBeforeAfter) Else @@ -3414,12 +3456,12 @@ Public Function EgtCopy(ByVal nId As Integer, ByVal nRefId As Integer, Optional End Function -Private Function EgtCopyGlob_32(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Private Function EgtCopyGlob_32(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer End Function -Private Function EgtCopyGlob_64(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Private Function EgtCopyGlob_64(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer End Function -Public Function EgtCopyGlob(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Public Function EgtCopyGlob(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer If IntPtr.Size = 4 Then Return EgtCopyGlob_32(nId, nRefId, nSonBeforeAfter) Else @@ -3428,12 +3470,12 @@ Public Function EgtCopyGlob(ByVal nId As Integer, ByVal nRefId As Integer, Optio End Function -Private Function EgtRelocate_32(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Private Function EgtRelocate_32(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer End Function -Private Function EgtRelocate_64(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Private Function EgtRelocate_64(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer End Function -Public Function EgtRelocate(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Public Function EgtRelocate(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer If IntPtr.Size = 4 Then Return EgtRelocate_32(nId, nRefId, nSonBeforeAfter) Else @@ -3442,12 +3484,12 @@ Public Function EgtRelocate(ByVal nId As Integer, ByVal nRefId As Integer, Optio End Function -Private Function EgtRelocateGlob_32(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Private Function EgtRelocateGlob_32(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer End Function -Private Function EgtRelocateGlob_64(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Private Function EgtRelocateGlob_64(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer End Function -Public Function EgtRelocateGlob(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer +Public Function EgtRelocateGlob(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer If IntPtr.Size = 4 Then Return EgtRelocateGlob_32(nId, nRefId, nSonBeforeAfter) Else @@ -3456,12 +3498,12 @@ Public Function EgtRelocateGlob(ByVal nId As Integer, ByVal nRefId As Integer, O End Function -Private Function EgtErase_32(ByVal nId As Integer) As Boolean +Private Function EgtErase_32(nId As Integer) As Boolean End Function -Private Function EgtErase_64(ByVal nId As Integer) As Boolean +Private Function EgtErase_64(nId As Integer) As Boolean End Function -Public Function EgtErase(ByVal nId As Integer) As Boolean +Public Function EgtErase(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtErase_32(nId) Else @@ -3470,12 +3512,12 @@ Public Function EgtErase(ByVal nId As Integer) As Boolean End Function -Private Function EgtEmptyGroup_32(ByVal nId As Integer) As Boolean +Private Function EgtEmptyGroup_32(nId As Integer) As Boolean End Function -Private Function EgtEmptyGroup_64(ByVal nId As Integer) As Boolean +Private Function EgtEmptyGroup_64(nId As Integer) As Boolean End Function -Public Function EgtEmptyGroup(ByVal nId As Integer) As Boolean +Public Function EgtEmptyGroup(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtEmptyGroup_32(nId) Else @@ -3484,12 +3526,12 @@ Public Function EgtEmptyGroup(ByVal nId As Integer) As Boolean End Function -Private Function EgtGetType_32(ByVal nId As Integer) As GDB_TY +Private Function EgtGetType_32(nId As Integer) As GDB_TY End Function -Private Function EgtGetType_64(ByVal nId As Integer) As GDB_TY +Private Function EgtGetType_64(nId As Integer) As GDB_TY End Function -Public Function EgtGetType(ByVal nId As Integer) As GDB_TY +Public Function EgtGetType(nId As Integer) As GDB_TY If IntPtr.Size = 4 Then Return EgtGetType_32(nId) Else @@ -3498,12 +3540,12 @@ Public Function EgtGetType(ByVal nId As Integer) As GDB_TY End Function -Private Function EgtGetTitle_32(ByVal nId As Integer, ByRef psTitle As IntPtr) As Boolean +Private Function EgtGetTitle_32(nId As Integer, ByRef psTitle As IntPtr) As Boolean End Function -Private Function EgtGetTitle_64(ByVal nId As Integer, ByRef psTitle As IntPtr) As Boolean +Private Function EgtGetTitle_64(nId As Integer, ByRef psTitle As IntPtr) As Boolean End Function -Public Function EgtGetTitle(ByVal nId As Integer, ByRef sTitle As String) As Boolean +Public Function EgtGetTitle(nId As Integer, ByRef sTitle As String) As Boolean Dim psTitle As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -3521,12 +3563,12 @@ Public Function EgtGetTitle(ByVal nId As Integer, ByRef sTitle As String) As Boo End Function -Private Function EgtGroupDump_32(ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean +Private Function EgtGroupDump_32(nId As Integer, ByRef psDump As IntPtr) As Boolean End Function -Private Function EgtGroupDump_64(ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean +Private Function EgtGroupDump_64(nId As Integer, ByRef psDump As IntPtr) As Boolean End Function -Public Function EgtGroupDump(ByVal nId As Integer, ByRef sDump As String) As Boolean +Public Function EgtGroupDump(nId As Integer, ByRef sDump As String) As Boolean Dim psDump As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -3544,12 +3586,12 @@ Public Function EgtGroupDump(ByVal nId As Integer, ByRef sDump As String) As Boo End Function -Private Function EgtGeoObjDump_32(ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean +Private Function EgtGeoObjDump_32(nId As Integer, ByRef psDump As IntPtr) As Boolean End Function -Private Function EgtGeoObjDump_64(ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean +Private Function EgtGeoObjDump_64(nId As Integer, ByRef psDump As IntPtr) As Boolean End Function -Public Function EgtGeoObjDump(ByVal nId As Integer, ByRef sDump As String) As Boolean +Public Function EgtGeoObjDump(nId As Integer, ByRef sDump As String) As Boolean Dim psDump As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -3569,12 +3611,12 @@ End Function '---------- GeomDb Obj Attributes ---------------------------------------------- -Private Function EgtSetLevel_32(ByVal nId As Integer, ByVal nLevel As Integer) As Boolean +Private Function EgtSetLevel_32(nId As Integer, nLevel As Integer) As Boolean End Function -Private Function EgtSetLevel_64(ByVal nId As Integer, ByVal nLevel As Integer) As Boolean +Private Function EgtSetLevel_64(nId As Integer, nLevel As Integer) As Boolean End Function -Public Function EgtSetLevel(ByVal nId As Integer, ByVal nLevel As Integer) As Boolean +Public Function EgtSetLevel(nId As Integer, nLevel As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetLevel_32(nId, nLevel) Else @@ -3583,12 +3625,12 @@ Public Function EgtSetLevel(ByVal nId As Integer, ByVal nLevel As Integer) As Bo End Function -Private Function EgtRevertLevel_32(ByVal nId As Integer) As Boolean +Private Function EgtRevertLevel_32(nId As Integer) As Boolean End Function -Private Function EgtRevertLevel_64(ByVal nId As Integer) As Boolean +Private Function EgtRevertLevel_64(nId As Integer) As Boolean End Function -Public Function EgtRevertLevel(ByVal nId As Integer) As Boolean +Public Function EgtRevertLevel(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRevertLevel_32(nId) Else @@ -3597,12 +3639,12 @@ Public Function EgtRevertLevel(ByVal nId As Integer) As Boolean End Function -Private Function EgtGetLevel_32(ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +Private Function EgtGetLevel_32(nId As Integer, ByRef nLevel As Integer) As Boolean End Function -Private Function EgtGetLevel_64(ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +Private Function EgtGetLevel_64(nId As Integer, ByRef nLevel As Integer) As Boolean End Function -Public Function EgtGetLevel(ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +Public Function EgtGetLevel(nId As Integer, ByRef nLevel As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetLevel_32(nId, nLevel) Else @@ -3611,12 +3653,12 @@ Public Function EgtGetLevel(ByVal nId As Integer, ByRef nLevel As Integer) As Bo End Function -Private Function EgtGetCalcLevel_32(ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +Private Function EgtGetCalcLevel_32(nId As Integer, ByRef nLevel As Integer) As Boolean End Function -Private Function EgtGetCalcLevel_64(ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +Private Function EgtGetCalcLevel_64(nId As Integer, ByRef nLevel As Integer) As Boolean End Function -Public Function EgtGetCalcLevel(ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +Public Function EgtGetCalcLevel(nId As Integer, ByRef nLevel As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetCalcLevel_32(nId, nLevel) Else @@ -3625,12 +3667,12 @@ Public Function EgtGetCalcLevel(ByVal nId As Integer, ByRef nLevel As Integer) A End Function -Private Function EgtSetMode_32(ByVal nId As Integer, ByVal nMode As Integer) As Boolean +Private Function EgtSetMode_32(nId As Integer, nMode As Integer) As Boolean End Function -Private Function EgtSetMode_64(ByVal nId As Integer, ByVal nMode As Integer) As Boolean +Private Function EgtSetMode_64(nId As Integer, nMode As Integer) As Boolean End Function -Public Function EgtSetMode(ByVal nId As Integer, ByVal nMode As Integer) As Boolean +Public Function EgtSetMode(nId As Integer, nMode As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetMode_32(nId, nMode) Else @@ -3639,12 +3681,12 @@ Public Function EgtSetMode(ByVal nId As Integer, ByVal nMode As Integer) As Bool End Function -Private Function EgtRevertMode_32(ByVal nId As Integer) As Boolean +Private Function EgtRevertMode_32(nId As Integer) As Boolean End Function -Private Function EgtRevertMode_64(ByVal nId As Integer) As Boolean +Private Function EgtRevertMode_64(nId As Integer) As Boolean End Function -Public Function EgtRevertMode(ByVal nId As Integer) As Boolean +Public Function EgtRevertMode(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRevertMode_32(nId) Else @@ -3653,12 +3695,12 @@ Public Function EgtRevertMode(ByVal nId As Integer) As Boolean End Function -Private Function EgtGetMode_32(ByVal nId As Integer, ByRef nMode As Integer) As Boolean +Private Function EgtGetMode_32(nId As Integer, ByRef nMode As Integer) As Boolean End Function -Private Function EgtGetMode_64(ByVal nId As Integer, ByRef nMode As Integer) As Boolean +Private Function EgtGetMode_64(nId As Integer, ByRef nMode As Integer) As Boolean End Function -Public Function EgtGetMode(ByVal nId As Integer, ByRef nMode As Integer) As Boolean +Public Function EgtGetMode(nId As Integer, ByRef nMode As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetMode_32(nId, nMode) Else @@ -3667,12 +3709,12 @@ Public Function EgtGetMode(ByVal nId As Integer, ByRef nMode As Integer) As Bool End Function -Private Function EgtGetCalcMode_32(ByVal nId As Integer, ByRef nMode As Integer) As Boolean +Private Function EgtGetCalcMode_32(nId As Integer, ByRef nMode As Integer) As Boolean End Function -Private Function EgtGetCalcMode_64(ByVal nId As Integer, ByRef nMode As Integer) As Boolean +Private Function EgtGetCalcMode_64(nId As Integer, ByRef nMode As Integer) As Boolean End Function -Public Function EgtGetCalcMode(ByVal nId As Integer, ByRef nMode As Integer) As Boolean +Public Function EgtGetCalcMode(nId As Integer, ByRef nMode As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetCalcMode_32(nId, nMode) Else @@ -3681,12 +3723,12 @@ Public Function EgtGetCalcMode(ByVal nId As Integer, ByRef nMode As Integer) As End Function -Private Function EgtSetStatus_32(ByVal nId As Integer, ByVal nStat As Integer) As Boolean +Private Function EgtSetStatus_32(nId As Integer, nStat As Integer) As Boolean End Function -Private Function EgtSetStatus_64(ByVal nId As Integer, ByVal nStat As Integer) As Boolean +Private Function EgtSetStatus_64(nId As Integer, nStat As Integer) As Boolean End Function -Public Function EgtSetStatus(ByVal nId As Integer, ByVal nStat As Integer) As Boolean +Public Function EgtSetStatus(nId As Integer, nStat As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetStatus_32(nId, nStat) Else @@ -3695,12 +3737,12 @@ Public Function EgtSetStatus(ByVal nId As Integer, ByVal nStat As Integer) As Bo End Function -Private Function EgtRevertStatus_32(ByVal nId As Integer) As Boolean +Private Function EgtRevertStatus_32(nId As Integer) As Boolean End Function -Private Function EgtRevertStatus_64(ByVal nId As Integer) As Boolean +Private Function EgtRevertStatus_64(nId As Integer) As Boolean End Function -Public Function EgtRevertStatus(ByVal nId As Integer) As Boolean +Public Function EgtRevertStatus(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRevertStatus_32(nId) Else @@ -3709,12 +3751,12 @@ Public Function EgtRevertStatus(ByVal nId As Integer) As Boolean End Function -Private Function EgtGetStatus_32(ByVal nId As Integer, ByRef nStat As Integer) As Boolean +Private Function EgtGetStatus_32(nId As Integer, ByRef nStat As Integer) As Boolean End Function -Private Function EgtGetStatus_64(ByVal nId As Integer, ByRef nStat As Integer) As Boolean +Private Function EgtGetStatus_64(nId As Integer, ByRef nStat As Integer) As Boolean End Function -Public Function EgtGetStatus(ByVal nId As Integer, ByRef nStat As Integer) As Boolean +Public Function EgtGetStatus(nId As Integer, ByRef nStat As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetStatus_32(nId, nStat) Else @@ -3723,12 +3765,12 @@ Public Function EgtGetStatus(ByVal nId As Integer, ByRef nStat As Integer) As Bo End Function -Private Function EgtGetCalcStatus_32(ByVal nId As Integer, ByRef nStat As Integer) As Boolean +Private Function EgtGetCalcStatus_32(nId As Integer, ByRef nStat As Integer) As Boolean End Function -Private Function EgtGetCalcStatus_64(ByVal nId As Integer, ByRef nStat As Integer) As Boolean +Private Function EgtGetCalcStatus_64(nId As Integer, ByRef nStat As Integer) As Boolean End Function -Public Function EgtGetCalcStatus(ByVal nId As Integer, ByRef nStat As Integer) As Boolean +Public Function EgtGetCalcStatus(nId As Integer, ByRef nStat As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetCalcStatus_32(nId, nStat) Else @@ -3736,18 +3778,18 @@ Public Function EgtGetCalcStatus(ByVal nId As Integer, ByRef nStat As Integer) A End If End Function -Public Function EgtIsVisibleObj(ByVal nId As Integer) As Boolean +Public Function EgtIsVisibleObj(nId As Integer) As Boolean Dim nStat As GDB_ST = GDB_ST.ON_ Return EgtGetCalcStatus(nId, nStat) AndAlso nStat <> GDB_ST.OFF End Function -Private Function EgtSetMark_32(ByVal nId As Integer) As Boolean +Private Function EgtSetMark_32(nId As Integer) As Boolean End Function -Private Function EgtSetMark_64(ByVal nId As Integer) As Boolean +Private Function EgtSetMark_64(nId As Integer) As Boolean End Function -Public Function EgtSetMark(ByVal nId As Integer) As Boolean +Public Function EgtSetMark(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetMark_32(nId) Else @@ -3756,12 +3798,12 @@ Public Function EgtSetMark(ByVal nId As Integer) As Boolean End Function -Private Function EgtResetMark_32(ByVal nId As Integer) As Boolean +Private Function EgtResetMark_32(nId As Integer) As Boolean End Function -Private Function EgtResetMark_64(ByVal nId As Integer) As Boolean +Private Function EgtResetMark_64(nId As Integer) As Boolean End Function -Public Function EgtResetMark(ByVal nId As Integer) As Boolean +Public Function EgtResetMark(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtResetMark_32(nId) Else @@ -3770,12 +3812,12 @@ Public Function EgtResetMark(ByVal nId As Integer) As Boolean End Function -Private Function EgtGetMark_32(ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +Private Function EgtGetMark_32(nId As Integer, ByRef bMark As Boolean) As Boolean End Function -Private Function EgtGetMark_64(ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +Private Function EgtGetMark_64(nId As Integer, ByRef bMark As Boolean) As Boolean End Function -Public Function EgtGetMark(ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +Public Function EgtGetMark(nId As Integer, ByRef bMark As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtGetMark_32(nId, bMark) Else @@ -3784,12 +3826,12 @@ Public Function EgtGetMark(ByVal nId As Integer, ByRef bMark As Boolean) As Bool End Function -Private Function EgtGetCalcMark_32(ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +Private Function EgtGetCalcMark_32(nId As Integer, ByRef bMark As Boolean) As Boolean End Function -Private Function EgtGetCalcMark_64(ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +Private Function EgtGetCalcMark_64(nId As Integer, ByRef bMark As Boolean) As Boolean End Function -Public Function EgtGetCalcMark(ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +Public Function EgtGetCalcMark(nId As Integer, ByRef bMark As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtGetCalcMark_32(nId, bMark) Else @@ -3798,12 +3840,12 @@ Public Function EgtGetCalcMark(ByVal nId As Integer, ByRef bMark As Boolean) As End Function -Private Function EgtSetColor_32(ByVal nId As Integer, ByRef ColObj As Color3d, Optional ByVal bSetAlpha As Boolean = True) As Boolean +Private Function EgtSetColor_32(nId As Integer, ByRef ColObj As Color3d, Optional bSetAlpha As Boolean = True) As Boolean End Function -Private Function EgtSetColor_64(ByVal nId As Integer, ByRef ColObj As Color3d, Optional ByVal bSetAlpha As Boolean = True) As Boolean +Private Function EgtSetColor_64(nId As Integer, ByRef ColObj As Color3d, Optional bSetAlpha As Boolean = True) As Boolean End Function -Public Function EgtSetColor(ByVal nId As Integer, ByRef ColObj As Color3d, Optional ByVal bSetAlpha As Boolean = True) As Boolean +Public Function EgtSetColor(nId As Integer, ByRef ColObj As Color3d, Optional bSetAlpha As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetColor_32(nId, ColObj, bSetAlpha) Else @@ -3812,12 +3854,12 @@ Public Function EgtSetColor(ByVal nId As Integer, ByRef ColObj As Color3d, Optio End Function -Private Function EgtSetAlpha_32(ByVal nId As Integer, ByVal nAlpha As Integer) As Boolean +Private Function EgtSetAlpha_32(nId As Integer, nAlpha As Integer) As Boolean End Function -Private Function EgtSetAlpha_64(ByVal nId As Integer, ByVal nAlpha As Integer) As Boolean +Private Function EgtSetAlpha_64(nId As Integer, nAlpha As Integer) As Boolean End Function -Public Function EgtSetAlpha(ByVal nId As Integer, ByVal nAlpha As Integer) As Boolean +Public Function EgtSetAlpha(nId As Integer, nAlpha As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetAlpha_32(nId, nAlpha) Else @@ -3826,12 +3868,12 @@ Public Function EgtSetAlpha(ByVal nId As Integer, ByVal nAlpha As Integer) As Bo End Function -Private Function EgtResetColor_32(ByVal nId As Integer) As Boolean +Private Function EgtResetColor_32(nId As Integer) As Boolean End Function -Private Function EgtResetColor_64(ByVal nId As Integer) As Boolean +Private Function EgtResetColor_64(nId As Integer) As Boolean End Function -Public Function EgtResetColor(ByVal nId As Integer) As Boolean +Public Function EgtResetColor(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtResetColor_32(nId) Else @@ -3840,12 +3882,12 @@ Public Function EgtResetColor(ByVal nId As Integer) As Boolean End Function -Private Function EgtGetColor_32(ByVal nId As Integer, ByRef ColObj As Color3d) As Boolean +Private Function EgtGetColor_32(nId As Integer, ByRef ColObj As Color3d) As Boolean End Function -Private Function EgtGetColor_64(ByVal nId As Integer, ByRef ColObj As Color3d) As Boolean +Private Function EgtGetColor_64(nId As Integer, ByRef ColObj As Color3d) As Boolean End Function -Public Function EgtGetColor(ByVal nId As Integer, ByRef ColObj As Color3d) As Boolean +Public Function EgtGetColor(nId As Integer, ByRef ColObj As Color3d) As Boolean If IntPtr.Size = 4 Then Return EgtGetColor_32(nId, ColObj) Else @@ -3854,12 +3896,12 @@ Public Function EgtGetColor(ByVal nId As Integer, ByRef ColObj As Color3d) As Bo End Function -Private Function EgtGetCalcColor_32(ByVal nId As Integer, ByRef ColObj As Color3d) As Boolean +Private Function EgtGetCalcColor_32(nId As Integer, ByRef ColObj As Color3d) As Boolean End Function -Private Function EgtGetCalcColor_64(ByVal nId As Integer, ByRef ColObj As Color3d) As Boolean +Private Function EgtGetCalcColor_64(nId As Integer, ByRef ColObj As Color3d) As Boolean End Function -Public Function EgtGetCalcColor(ByVal nId As Integer, ByRef ColObj As Color3d) As Boolean +Public Function EgtGetCalcColor(nId As Integer, ByRef ColObj As Color3d) As Boolean If IntPtr.Size = 4 Then Return EgtGetCalcColor_32(nId, ColObj) Else @@ -3868,12 +3910,12 @@ Public Function EgtGetCalcColor(ByVal nId As Integer, ByRef ColObj As Color3d) A End Function -Private Function EgtSetName_32(ByVal nId As Integer, ByVal sName As String) As Boolean +Private Function EgtSetName_32(nId As Integer, sName As String) As Boolean End Function -Private Function EgtSetName_64(ByVal nId As Integer, ByVal sName As String) As Boolean +Private Function EgtSetName_64(nId As Integer, sName As String) As Boolean End Function -Public Function EgtSetName(ByVal nId As Integer, ByVal sName As String) As Boolean +Public Function EgtSetName(nId As Integer, sName As String) As Boolean If IntPtr.Size = 4 Then Return EgtSetName_32(nId, sName) Else @@ -3882,12 +3924,12 @@ Public Function EgtSetName(ByVal nId As Integer, ByVal sName As String) As Boole End Function -Private Function EgtGetName_32(ByVal nId As Integer, ByRef psName As IntPtr) As Boolean +Private Function EgtGetName_32(nId As Integer, ByRef psName As IntPtr) As Boolean End Function -Private Function EgtGetName_64(ByVal nId As Integer, ByRef psName As IntPtr) As Boolean +Private Function EgtGetName_64(nId As Integer, ByRef psName As IntPtr) As Boolean End Function -Public Function EgtGetName(ByVal nId As Integer, ByRef sName As String) As Boolean +Public Function EgtGetName(nId As Integer, ByRef sName As String) As Boolean Dim psName As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -3905,12 +3947,12 @@ Public Function EgtGetName(ByVal nId As Integer, ByRef sName As String) As Boole End Function -Private Function EgtExistsName_32(ByVal nId As Integer) As Boolean +Private Function EgtExistsName_32(nId As Integer) As Boolean End Function -Private Function EgtExistsName_64(ByVal nId As Integer) As Boolean +Private Function EgtExistsName_64(nId As Integer) As Boolean End Function -Public Function EgtExistsName(ByVal nId As Integer) As Boolean +Public Function EgtExistsName(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtExistsName_32(nId) Else @@ -3919,12 +3961,12 @@ Public Function EgtExistsName(ByVal nId As Integer) As Boolean End Function -Private Function EgtRemoveName_32(ByVal nId As Integer) As Boolean +Private Function EgtRemoveName_32(nId As Integer) As Boolean End Function -Private Function EgtRemoveName_64(ByVal nId As Integer) As Boolean +Private Function EgtRemoveName_64(nId As Integer) As Boolean End Function -Public Function EgtRemoveName(ByVal nId As Integer) As Boolean +Public Function EgtRemoveName(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRemoveName_32(nId) Else @@ -3933,12 +3975,12 @@ Public Function EgtRemoveName(ByVal nId As Integer) As Boolean End Function -Private Function EgtSetInfo_32(ByVal nId As Integer, ByVal sKey As String, ByVal sInfo As String) As Boolean +Private Function EgtSetInfo_32(nId As Integer, sKey As String, sInfo As String) As Boolean End Function -Private Function EgtSetInfo_64(ByVal nId As Integer, ByVal sKey As String, ByVal sInfo As String) As Boolean +Private Function EgtSetInfo_64(nId As Integer, sKey As String, sInfo As String) As Boolean End Function -Public Function EgtSetInfo(ByVal nId As Integer, ByVal sKey As String, ByVal sInfo As String) As Boolean +Public Function EgtSetInfo(nId As Integer, sKey As String, sInfo As String) As Boolean If IntPtr.Size = 4 Then Return EgtSetInfo_32(nId, sKey, sInfo) Else @@ -3947,14 +3989,14 @@ Public Function EgtSetInfo(ByVal nId As Integer, ByVal sKey As String, ByVal sIn End Function -Private Function EgtSetInfoFrame_32(ByVal nId As Integer, ByVal sKey As String, ByRef PtOrig As Point3d, +Private Function EgtSetInfoFrame_32(nId As Integer, sKey As String, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function -Private Function EgtSetInfoFrame_64(ByVal nId As Integer, ByVal sKey As String, ByRef PtOrig As Point3d, +Private Function EgtSetInfoFrame_64(nId As Integer, sKey As String, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function -Public Function EgtSetInfo(ByVal nId As Integer, ByVal sKey As String, ByVal Frame As Frame3d) As Boolean +Public Function EgtSetInfo(nId As Integer, sKey As String, Frame As Frame3d) As Boolean If IntPtr.Size = 4 Then Return EgtSetInfoFrame_32(nId, sKey, Frame.Orig(), Frame.VersX(), Frame.VersY(), Frame.VersZ()) Else @@ -3963,12 +4005,12 @@ Public Function EgtSetInfo(ByVal nId As Integer, ByVal sKey As String, ByVal Fra End Function -Private Function EgtGetInfo_32(ByVal nId As Integer, ByVal sKey As String, ByRef psInfo As IntPtr) As Boolean +Private Function EgtGetInfo_32(nId As Integer, sKey As String, ByRef psInfo As IntPtr) As Boolean End Function -Private Function EgtGetInfo_64(ByVal nId As Integer, ByVal sKey As String, ByRef psInfo As IntPtr) As Boolean +Private Function EgtGetInfo_64(nId As Integer, sKey As String, ByRef psInfo As IntPtr) As Boolean End Function -Public Function EgtGetInfo(ByVal nId As Integer, ByVal sKey As String, ByRef sInfo As String) As Boolean +Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef sInfo As String) As Boolean Dim psInfo As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -3986,12 +4028,12 @@ Public Function EgtGetInfo(ByVal nId As Integer, ByVal sKey As String, ByRef sIn End Function -Private Function EgtGetInfoInt_32(ByVal nId As Integer, ByVal sKey As String, ByRef nInfo As Integer) As Boolean +Private Function EgtGetInfoInt_32(nId As Integer, sKey As String, ByRef nInfo As Integer) As Boolean End Function -Private Function EgtGetInfoInt_64(ByVal nId As Integer, ByVal sKey As String, ByRef nInfo As Integer) As Boolean +Private Function EgtGetInfoInt_64(nId As Integer, sKey As String, ByRef nInfo As Integer) As Boolean End Function -Public Function EgtGetInfo(ByVal nId As Integer, ByVal sKey As String, ByRef nInfo As Integer) As Boolean +Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef nInfo As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetInfoInt_32(nId, sKey, nInfo) Else @@ -4000,12 +4042,12 @@ Public Function EgtGetInfo(ByVal nId As Integer, ByVal sKey As String, ByRef nIn End Function -Private Function EgtGetInfoDouble_32(ByVal nId As Integer, ByVal sKey As String, ByRef dInfo As Double) As Boolean +Private Function EgtGetInfoDouble_32(nId As Integer, sKey As String, ByRef dInfo As Double) As Boolean End Function -Private Function EgtGetInfoDouble_64(ByVal nId As Integer, ByVal sKey As String, ByRef dInfo As Double) As Boolean +Private Function EgtGetInfoDouble_64(nId As Integer, sKey As String, ByRef dInfo As Double) As Boolean End Function -Public Function EgtGetInfo(ByVal nId As Integer, ByVal sKey As String, ByRef dInfo As Double) As Boolean +Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef dInfo As Double) As Boolean If IntPtr.Size = 4 Then Return EgtGetInfoDouble_32(nId, sKey, dInfo) Else @@ -4014,14 +4056,14 @@ Public Function EgtGetInfo(ByVal nId As Integer, ByVal sKey As String, ByRef dIn End Function -Private Function EgtGetInfoFrame_32(ByVal nId As Integer, ByVal sKey As String, ByRef PtOrig As Point3d, +Private Function EgtGetInfoFrame_32(nId As Integer, sKey As String, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function -Private Function EgtGetInfoFrame_64(ByVal nId As Integer, ByVal sKey As String, ByRef PtOrig As Point3d, +Private Function EgtGetInfoFrame_64(nId As Integer, sKey As String, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function -Public Function EgtGetInfo(ByVal nId As Integer, ByVal sKey As String, ByRef Frame As Frame3d) As Boolean +Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef Frame As Frame3d) As Boolean Dim ptOri As Point3d Dim vtX As Vector3d Dim vtY As Vector3d @@ -4039,12 +4081,12 @@ Public Function EgtGetInfo(ByVal nId As Integer, ByVal sKey As String, ByRef Fra End Function -Private Function EgtExistsInfo_32(ByVal nId As Integer, ByVal sKey As String) As Boolean +Private Function EgtExistsInfo_32(nId As Integer, sKey As String) As Boolean End Function -Private Function EgtExistsInfo_64(ByVal nId As Integer, ByVal sKey As String) As Boolean +Private Function EgtExistsInfo_64(nId As Integer, sKey As String) As Boolean End Function -Public Function EgtExistsInfo(ByVal nId As Integer, ByVal sKey As String) As Boolean +Public Function EgtExistsInfo(nId As Integer, sKey As String) As Boolean If IntPtr.Size = 4 Then Return EgtExistsInfo_32(nId, sKey) Else @@ -4053,12 +4095,12 @@ Public Function EgtExistsInfo(ByVal nId As Integer, ByVal sKey As String) As Boo End Function -Private Function EgtRemoveInfo_32(ByVal nId As Integer, ByVal sKey As String) As Boolean +Private Function EgtRemoveInfo_32(nId As Integer, sKey As String) As Boolean End Function -Private Function EgtRemoveInfo_64(ByVal nId As Integer, ByVal sKey As String) As Boolean +Private Function EgtRemoveInfo_64(nId As Integer, sKey As String) As Boolean End Function -Public Function EgtRemoveInfo(ByVal nId As Integer, ByVal sKey As String) As Boolean +Public Function EgtRemoveInfo(nId As Integer, sKey As String) As Boolean If IntPtr.Size = 4 Then Return EgtRemoveInfo_32(nId, sKey) Else @@ -4067,12 +4109,12 @@ Public Function EgtRemoveInfo(ByVal nId As Integer, ByVal sKey As String) As Boo End Function -Private Function EgtSetTextureName_32(ByVal nId As Integer, ByVal sName As String) As Boolean +Private Function EgtSetTextureName_32(nId As Integer, sName As String) As Boolean End Function -Private Function EgtSetTextureName_64(ByVal nId As Integer, ByVal sName As String) As Boolean +Private Function EgtSetTextureName_64(nId As Integer, sName As String) As Boolean End Function -Public Function EgtSetTextureName(ByVal nId As Integer, ByVal sName As String) As Boolean +Public Function EgtSetTextureName(nId As Integer, sName As String) As Boolean If IntPtr.Size = 4 Then Return EgtSetTextureName_32(nId, sName) Else @@ -4081,14 +4123,14 @@ Public Function EgtSetTextureName(ByVal nId As Integer, ByVal sName As String) A End Function -Private Function EgtSetTextureFrame_32(ByVal nId As Integer, ByRef PtOrig As Point3d, - ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByVal nRefType As GDB_RT) As Boolean +Private Function EgtSetTextureFrame_32(nId As Integer, ByRef PtOrig As Point3d, + ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, nRefType As GDB_RT) As Boolean End Function -Private Function EgtSetTextureFrame_64(ByVal nId As Integer, ByRef PtOrig As Point3d, - ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByVal nRefType As GDB_RT) As Boolean +Private Function EgtSetTextureFrame_64(nId As Integer, ByRef PtOrig As Point3d, + ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, nRefType As GDB_RT) As Boolean End Function -Public Function EgtSetTextureFrame(ByVal nId As Integer, ByRef frRef As Frame3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtSetTextureFrame(nId As Integer, ByRef frRef As Frame3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtSetTextureFrame_32(nId, frRef.Orig(), frRef.VersX(), frRef.VersY(), frRef.VersZ(), nRefType) Else @@ -4097,12 +4139,12 @@ Public Function EgtSetTextureFrame(ByVal nId As Integer, ByRef frRef As Frame3d, End Function -Private Function EgtRemoveTextureData_32(ByVal nId As Integer) As Boolean +Private Function EgtRemoveTextureData_32(nId As Integer) As Boolean End Function -Private Function EgtRemoveTextureData_64(ByVal nId As Integer) As Boolean +Private Function EgtRemoveTextureData_64(nId As Integer) As Boolean End Function -Public Function EgtRemoveTextureData(ByVal nId As Integer) As Boolean +Public Function EgtRemoveTextureData(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRemoveTextureData_32(nId) Else @@ -4111,12 +4153,12 @@ Public Function EgtRemoveTextureData(ByVal nId As Integer) As Boolean End Function -Private Function EgtGetTextureName_32(ByVal nId As Integer, ByRef psName As IntPtr) As Boolean +Private Function EgtGetTextureName_32(nId As Integer, ByRef psName As IntPtr) As Boolean End Function -Private Function EgtGetTextureName_64(ByVal nId As Integer, ByRef psName As IntPtr) As Boolean +Private Function EgtGetTextureName_64(nId As Integer, ByRef psName As IntPtr) As Boolean End Function -Public Function EgtGetTextureName(ByVal nId As Integer, ByRef sName As String) As Boolean +Public Function EgtGetTextureName(nId As Integer, ByRef sName As String) As Boolean Dim psName As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -4134,14 +4176,14 @@ Public Function EgtGetTextureName(ByVal nId As Integer, ByRef sName As String) A End Function -Private Function EgtGetTextureFrame_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtOrig As Point3d, +Private Function EgtGetTextureFrame_32(nId As Integer, nRefId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function -Private Function EgtGetTextureFrame_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtOrig As Point3d, +Private Function EgtGetTextureFrame_64(nId As Integer, nRefId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function -Public Function EgtGetTextureFrame(ByVal nId As Integer, ByVal nRefId As Integer, ByRef frRef As Frame3d) As Boolean +Public Function EgtGetTextureFrame(nId As Integer, nRefId As Integer, ByRef frRef As Frame3d) As Boolean Dim ptOri As Point3d Dim vtX As Vector3d Dim vtY As Vector3d @@ -4161,12 +4203,12 @@ End Function '---------- GeomDb Obj Selection ----------------------------------------------- -Private Function EgtSelectObj_32(ByVal nId As Integer) As Boolean +Private Function EgtSelectObj_32(nId As Integer) As Boolean End Function -Private Function EgtSelectObj_64(ByVal nId As Integer) As Boolean +Private Function EgtSelectObj_64(nId As Integer) As Boolean End Function -Public Function EgtSelectObj(ByVal nId As Integer) As Boolean +Public Function EgtSelectObj(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSelectObj_32(nId) Else @@ -4175,12 +4217,12 @@ Public Function EgtSelectObj(ByVal nId As Integer) As Boolean End Function -Private Function EgtDeselectObj_32(ByVal nId As Integer) As Boolean +Private Function EgtDeselectObj_32(nId As Integer) As Boolean End Function -Private Function EgtDeselectObj_64(ByVal nId As Integer) As Boolean +Private Function EgtDeselectObj_64(nId As Integer) As Boolean End Function -Public Function EgtDeselectObj(ByVal nId As Integer) As Boolean +Public Function EgtDeselectObj(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtDeselectObj_32(nId) Else @@ -4189,12 +4231,12 @@ Public Function EgtDeselectObj(ByVal nId As Integer) As Boolean End Function -Private Function EgtSelectAll_32(Optional ByVal bOnlyIfVisible As Boolean = False) As Boolean +Private Function EgtSelectAll_32(Optional bOnlyIfVisible As Boolean = False) As Boolean End Function -Private Function EgtSelectAll_64(Optional ByVal bOnlyIfVisible As Boolean = False) As Boolean +Private Function EgtSelectAll_64(Optional bOnlyIfVisible As Boolean = False) As Boolean End Function -Public Function EgtSelectAll(Optional ByVal bOnlyIfVisible As Boolean = False) As Boolean +Public Function EgtSelectAll(Optional bOnlyIfVisible As Boolean = False) As Boolean If IntPtr.Size = 4 Then Return EgtSelectAll_32(bOnlyIfVisible) Else @@ -4217,12 +4259,12 @@ Public Function EgtDeselectAll() As Boolean End Function -Private Function EgtSelectGroupObjs_32(ByVal nGroupId As Integer) As Boolean +Private Function EgtSelectGroupObjs_32(nGroupId As Integer) As Boolean End Function -Private Function EgtSelectGroupObjs_64(ByVal nGroupId As Integer) As Boolean +Private Function EgtSelectGroupObjs_64(nGroupId As Integer) As Boolean End Function -Public Function EgtSelectGroupObjs(ByVal nGroupId As Integer) As Boolean +Public Function EgtSelectGroupObjs(nGroupId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSelectGroupObjs_32(nGroupId) Else @@ -4231,12 +4273,12 @@ Public Function EgtSelectGroupObjs(ByVal nGroupId As Integer) As Boolean End Function -Private Function EgtDeselectGroupObjs_32(ByVal nGroupId As Integer) As Boolean +Private Function EgtDeselectGroupObjs_32(nGroupId As Integer) As Boolean End Function -Private Function EgtDeselectGroupObjs_64(ByVal nGroupId As Integer) As Boolean +Private Function EgtDeselectGroupObjs_64(nGroupId As Integer) As Boolean End Function -Public Function EgtDeselectGroupObjs(ByVal nGroupId As Integer) As Boolean +Public Function EgtDeselectGroupObjs(nGroupId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtDeselectGroupObjs_32(nGroupId) Else @@ -4245,12 +4287,12 @@ Public Function EgtDeselectGroupObjs(ByVal nGroupId As Integer) As Boolean End Function -Private Function EgtIsSelectedObj_32(ByVal nId As Integer) As Boolean +Private Function EgtIsSelectedObj_32(nId As Integer) As Boolean End Function -Private Function EgtIsSelectedObj_64(ByVal nId As Integer) As Boolean +Private Function EgtIsSelectedObj_64(nId As Integer) As Boolean End Function -Public Function EgtIsSelectedObj(ByVal nId As Integer) As Boolean +Public Function EgtIsSelectedObj(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtIsSelectedObj_32(nId) Else @@ -4331,12 +4373,12 @@ End Function '---------- GeomDb Obj Transform ----------------------------------------------- -Private Function EgtMove_32(ByVal nId As Integer, ByRef VtMove As Vector3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtMove_32(nId As Integer, ByRef VtMove As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtMove_64(ByVal nId As Integer, ByRef VtMove As Vector3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtMove_64(nId As Integer, ByRef VtMove As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtMove(ByVal nId As Integer, ByRef VtMove As Vector3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtMove(nId As Integer, ByRef VtMove As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtMove_32(nId, VtMove, nRefType) Else @@ -4345,12 +4387,12 @@ Public Function EgtMove(ByVal nId As Integer, ByRef VtMove As Vector3d, Optional End Function -Private Function EgtRotate_32(ByVal nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtRotate_32(nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtRotate_64(ByVal nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtRotate_64(nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtRotate(ByVal nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtRotate(nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtRotate_32(nId, PtAx, VtAx, dAngRotDeg, nRefType) Else @@ -4359,17 +4401,17 @@ Public Function EgtRotate(ByVal nId As Integer, ByRef PtAx As Point3d, ByRef VtA End Function -Private Function EgtScale_32(ByVal nId As Integer, ByRef PtOrig As Point3d, +Private Function EgtScale_32(nId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double, ByVal nRefType As GDB_RT) As Boolean + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double, nRefType As GDB_RT) As Boolean End Function -Private Function EgtScale_64(ByVal nId As Integer, ByRef PtOrig As Point3d, +Private Function EgtScale_64(nId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double, ByVal nRefType As GDB_RT) As Boolean + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double, nRefType As GDB_RT) As Boolean End Function -Public Function EgtScale(ByVal nId As Integer, ByVal Frame As Frame3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtScale(nId As Integer, Frame As Frame3d, + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtScale_32(nId, Frame.Orig(), Frame.VersX(), Frame.VersY(), Frame.VersZ(), dCoeffX, dCoeffY, dCoeffZ, nRefType) Else @@ -4378,12 +4420,12 @@ Public Function EgtScale(ByVal nId As Integer, ByVal Frame As Frame3d, End Function -Private Function EgtMirror_32(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtMirror_32(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtMirror_64(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtMirror_64(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtMirror(ByVal nId As Integer, ByVal PtOn As Point3d, ByVal VtNorm As Vector3d, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtMirror(nId As Integer, PtOn As Point3d, VtNorm As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtMirror_32(nId, PtOn, VtNorm, nRefType) Else @@ -4392,15 +4434,15 @@ Public Function EgtMirror(ByVal nId As Integer, ByVal PtOn As Point3d, ByVal VtN End Function -Private Function EgtShear_32(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, - ByRef VtDir As Vector3d, ByVal dCoeff As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtShear_32(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, + ByRef VtDir As Vector3d, dCoeff As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Private Function EgtShear_64(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, - ByRef VtDir As Vector3d, ByVal dCoeff As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Private Function EgtShear_64(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, + ByRef VtDir As Vector3d, dCoeff As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function -Public Function EgtShear(ByVal nId As Integer, ByVal PtOn As Point3d, ByVal VtNorm As Vector3d, - ByVal VtDir As Vector3d, ByVal dCoeff As Double, Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Boolean +Public Function EgtShear(nId As Integer, PtOn As Point3d, VtNorm As Vector3d, + VtDir As Vector3d, dCoeff As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean If IntPtr.Size = 4 Then Return EgtShear_32(nId, PtOn, VtNorm, VtDir, dCoeff, nRefType) Else @@ -4409,12 +4451,12 @@ Public Function EgtShear(ByVal nId As Integer, ByVal PtOn As Point3d, ByVal VtNo End Function -Private Function EgtMoveGroup_32(ByVal nId As Integer, ByRef VtMove As Vector3d) As Boolean +Private Function EgtMoveGroup_32(nId As Integer, ByRef VtMove As Vector3d) As Boolean End Function -Private Function EgtMoveGroup_64(ByVal nId As Integer, ByRef VtMove As Vector3d) As Boolean +Private Function EgtMoveGroup_64(nId As Integer, ByRef VtMove As Vector3d) As Boolean End Function -Public Function EgtMoveGroup(ByVal nId As Integer, ByVal VtMove As Vector3d) As Boolean +Public Function EgtMoveGroup(nId As Integer, VtMove As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtMoveGroup_32(nId, VtMove) Else @@ -4423,12 +4465,12 @@ Public Function EgtMoveGroup(ByVal nId As Integer, ByVal VtMove As Vector3d) As End Function -Private Function EgtRotateGroup_32(ByVal nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean +Private Function EgtRotateGroup_32(nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function -Private Function EgtRotateGroup_64(ByVal nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean +Private Function EgtRotateGroup_64(nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function -Public Function EgtRotateGroup(ByVal nId As Integer, ByVal PtAx As Point3d, ByVal VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean +Public Function EgtRotateGroup(nId As Integer, PtAx As Point3d, VtAx As Vector3d, dAngRotDeg As Double) As Boolean If IntPtr.Size = 4 Then Return EgtRotateGroup_32(nId, PtAx, VtAx, dAngRotDeg) Else @@ -4437,17 +4479,17 @@ Public Function EgtRotateGroup(ByVal nId As Integer, ByVal PtAx As Point3d, ByVa End Function -Private Function EgtScaleGroup_32(ByVal nId As Integer, ByRef PtOrig As Point3d, +Private Function EgtScaleGroup_32(nId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean End Function -Private Function EgtScaleGroup_64(ByVal nId As Integer, ByRef PtOrig As Point3d, +Private Function EgtScaleGroup_64(nId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean End Function -Public Function EgtScaleGroup(ByVal nId As Integer, ByVal Frame As Frame3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean +Public Function EgtScaleGroup(nId As Integer, Frame As Frame3d, + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean If IntPtr.Size = 4 Then Return EgtScaleGroup_32(nId, Frame.Orig(), Frame.VersX(), Frame.VersY(), Frame.VersZ(), dCoeffX, dCoeffY, dCoeffZ) Else @@ -4456,12 +4498,12 @@ Public Function EgtScaleGroup(ByVal nId As Integer, ByVal Frame As Frame3d, End Function -Private Function EgtMirrorGroup_32(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtMirrorGroup_32(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function -Private Function EgtMirrorGroup_64(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtMirrorGroup_64(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function -Public Function EgtMirrorGroup(ByVal nId As Integer, ByVal PtOn As Point3d, ByVal VtNorm As Vector3d) As Boolean +Public Function EgtMirrorGroup(nId As Integer, PtOn As Point3d, VtNorm As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtMirrorGroup_32(nId, PtOn, VtNorm) Else @@ -4470,15 +4512,15 @@ Public Function EgtMirrorGroup(ByVal nId As Integer, ByVal PtOn As Point3d, ByVa End Function -Private Function EgtShearGroup_32(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, - ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean +Private Function EgtShearGroup_32(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, + ByRef VtDir As Vector3d, dCoeff As Double) As Boolean End Function -Private Function EgtShearGroup_64(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, - ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean +Private Function EgtShearGroup_64(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, + ByRef VtDir As Vector3d, dCoeff As Double) As Boolean End Function -Public Function EgtShearGroup(ByVal nId As Integer, ByVal PtOn As Point3d, ByVal VtNorm As Vector3d, - ByVal VtDir As Vector3d, ByVal dCoeff As Double) As Boolean +Public Function EgtShearGroup(nId As Integer, PtOn As Point3d, VtNorm As Vector3d, + VtDir As Vector3d, dCoeff As Double) As Boolean If IntPtr.Size = 4 Then Return EgtShearGroup_32(nId, PtOn, VtNorm, VtDir, dCoeff) Else @@ -4489,222 +4531,222 @@ End Function '---------- GeomDb Snap Vector/Point/Frame ------------------------------------- -Private Function EgtStartPoint_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtStartPoint_32(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Private Function EgtStartPoint_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtStartPoint_64(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Public Function EgtStartPoint(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtStartPoint(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtStartPoint_32(nId, nRefId, PtP) Else Return EgtStartPoint_64(nId, nRefId, PtP) End If End Function -Public Function EgtStartPoint(ByVal nId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtStartPoint(nId As Integer, ByRef PtP As Point3d) As Boolean Return EgtStartPoint(nId, nId, PtP) End Function -Private Function EgtEndPoint_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtEndPoint_32(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Private Function EgtEndPoint_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtEndPoint_64(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Public Function EgtEndPoint(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtEndPoint(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtEndPoint_32(nId, nRefId, PtP) Else Return EgtEndPoint_64(nId, nRefId, PtP) End If End Function -Public Function EgtEndPoint(ByVal nId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtEndPoint(nId As Integer, ByRef PtP As Point3d) As Boolean Return EgtEndPoint(nId, nId, PtP) End Function -Private Function EgtMidPoint_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtMidPoint_32(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Private Function EgtMidPoint_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtMidPoint_64(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Public Function EgtMidPoint(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtMidPoint(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtMidPoint_32(nId, nRefId, PtP) Else Return EgtMidPoint_64(nId, nRefId, PtP) End If End Function -Public Function EgtMidPoint(ByVal nId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtMidPoint(nId As Integer, ByRef PtP As Point3d) As Boolean Return EgtMidPoint(nId, nId, PtP) End Function -Private Function EgtCenterPoint_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtCenterPoint_32(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Private Function EgtCenterPoint_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtCenterPoint_64(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Public Function EgtCenterPoint(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtCenterPoint(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtCenterPoint_32(nId, nRefId, PtP) Else Return EgtCenterPoint_64(nId, nRefId, PtP) End If End Function -Public Function EgtCenterPoint(ByVal nId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtCenterPoint(nId As Integer, ByRef PtP As Point3d) As Boolean Return EgtCenterPoint(nId, nId, PtP) End Function -Private Function EgtCentroid_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtCentroid_32(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Private Function EgtCentroid_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtCentroid_64(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Public Function EgtCentroid(ByVal nId As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtCentroid(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtCentroid_32(nId, nRefId, PtP) Else Return EgtCentroid_64(nId, nRefId, PtP) End If End Function -Public Function EgtCentroid(ByVal nId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtCentroid(nId As Integer, ByRef PtP As Point3d) As Boolean Return EgtCentroid(nId, nId, PtP) End Function -Private Function EgtAtParamPoint_32(ByVal nId As Integer, ByVal dU As Double, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtAtParamPoint_32(nId As Integer, dU As Double, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Private Function EgtAtParamPoint_64(ByVal nId As Integer, ByVal dU As Double, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtAtParamPoint_64(nId As Integer, dU As Double, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Public Function EgtAtParamPoint(ByVal nId As Integer, ByVal dU As Double, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtAtParamPoint(nId As Integer, dU As Double, nRefId As Integer, ByRef PtP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtAtParamPoint_32(nId, dU, nRefId, PtP) Else Return EgtAtParamPoint_64(nId, dU, nRefId, PtP) End If End Function -Public Function EgtAtParamPoint(ByVal nId As Integer, ByVal dU As Double, ByRef PtP As Point3d) As Boolean +Public Function EgtAtParamPoint(nId As Integer, dU As Double, ByRef PtP As Point3d) As Boolean Return EgtAtParamPoint(nId, dU, nId, PtP) End Function -Private Function EgtNearPoint_32(ByVal nId As Integer, ByRef PtNear As Point3d, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtNearPoint_32(nId As Integer, ByRef PtNear As Point3d, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Private Function EgtNearPoint_64(ByVal nId As Integer, ByRef PtNear As Point3d, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtNearPoint_64(nId As Integer, ByRef PtNear As Point3d, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Public Function EgtNearPoint(ByVal nId As Integer, ByRef PtNear As Point3d, ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtNearPoint(nId As Integer, ByRef PtNear As Point3d, nRefId As Integer, ByRef PtP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtNearPoint_32(nId, PtNear, nRefId, PtP) Else Return EgtNearPoint_64(nId, PtNear, nRefId, PtP) End If End Function -Public Function EgtNearPoint(ByVal nId As Integer, ByRef PtNear As Point3d, ByRef PtP As Point3d) As Boolean +Public Function EgtNearPoint(nId As Integer, ByRef PtNear As Point3d, ByRef PtP As Point3d) As Boolean Return EgtNearPoint(nId, PtNear, nId, PtP) End Function -Private Function EgtIntersectionPoint_32(ByVal nId1 As Integer, ByVal nId2 As Integer, ByRef PtNear As Point3d, - ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtIntersectionPoint_32(nId1 As Integer, nId2 As Integer, ByRef PtNear As Point3d, + nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Private Function EgtIntersectionPoint_64(ByVal nId1 As Integer, ByVal nId2 As Integer, ByRef PtNear As Point3d, - ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Private Function EgtIntersectionPoint_64(nId1 As Integer, nId2 As Integer, ByRef PtNear As Point3d, + nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function -Public Function EgtIntersectionPoint(ByVal nId1 As Integer, ByVal nId2 As Integer, ByRef PtNear As Point3d, - ByVal nRefId As Integer, ByRef PtP As Point3d) As Boolean +Public Function EgtIntersectionPoint(nId1 As Integer, nId2 As Integer, ByRef PtNear As Point3d, + nRefId As Integer, ByRef PtP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtIntersectionPoint_32(nId1, nId2, PtNear, nRefId, PtP) Else Return EgtIntersectionPoint_64(nId1, nId2, PtNear, nRefId, PtP) End If End Function -Public Function EgtIntersectionPoint(ByVal nId1 As Integer, ByVal nId2 As Integer, ByRef PtNear As Point3d, +Public Function EgtIntersectionPoint(nId1 As Integer, nId2 As Integer, ByRef PtNear As Point3d, ByRef PtP As Point3d) As Boolean Return EgtIntersectionPoint(nId1, nId2, PtNear, nId1, PtP) End Function -Private Function EgtStartVector_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Private Function EgtStartVector_32(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function -Private Function EgtStartVector_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Private Function EgtStartVector_64(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function -Public Function EgtStartVector(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Public Function EgtStartVector(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtStartVector_32(nId, nRefId, VtV) Else Return EgtStartVector_64(nId, nRefId, VtV) End If End Function -Public Function EgtStartVector(ByVal nId As Integer, ByRef VtV As Vector3d) As Boolean +Public Function EgtStartVector(nId As Integer, ByRef VtV As Vector3d) As Boolean Return EgtStartVector(nId, nId, VtV) End Function -Private Function EgtEndVector_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Private Function EgtEndVector_32(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function -Private Function EgtEndVector_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Private Function EgtEndVector_64(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function -Public Function EgtEndVector(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Public Function EgtEndVector(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtEndVector_32(nId, nRefId, VtV) Else Return EgtEndVector_64(nId, nRefId, VtV) End If End Function -Public Function EgtEndVector(ByVal nId As Integer, ByRef VtV As Vector3d) As Boolean +Public Function EgtEndVector(nId As Integer, ByRef VtV As Vector3d) As Boolean Return EgtEndVector(nId, nId, VtV) End Function -Private Function EgtMidVector_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Private Function EgtMidVector_32(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function -Private Function EgtMidVector_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Private Function EgtMidVector_64(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function -Public Function EgtMidVector(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Public Function EgtMidVector(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtMidVector_32(nId, nRefId, VtV) Else Return EgtMidVector_64(nId, nRefId, VtV) End If End Function -Public Function EgtMidVector(ByVal nId As Integer, ByRef VtV As Vector3d) As Boolean +Public Function EgtMidVector(nId As Integer, ByRef VtV As Vector3d) As Boolean Return EgtMidVector(nId, nId, VtV) End Function -Private Function EgtAtParamVector_32(ByVal nId As Integer, ByVal dU As Double, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Private Function EgtAtParamVector_32(nId As Integer, dU As Double, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function -Private Function EgtAtParamVector_64(ByVal nId As Integer, ByVal dU As Double, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Private Function EgtAtParamVector_64(nId As Integer, dU As Double, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function -Public Function EgtAtParamVector(ByVal nId As Integer, ByVal dU As Double, ByVal nRefId As Integer, ByRef VtV As Vector3d) As Boolean +Public Function EgtAtParamVector(nId As Integer, dU As Double, nRefId As Integer, ByRef VtV As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtAtParamVector_32(nId, dU, nRefId, VtV) Else Return EgtAtParamVector_64(nId, dU, nRefId, VtV) End If End Function -Public Function EgtAtParamVector(ByVal nId As Integer, ByVal dU As Double, ByRef VtV As Vector3d) As Boolean +Public Function EgtAtParamVector(nId As Integer, dU As Double, ByRef VtV As Vector3d) As Boolean Return EgtAtParamVector(nId, dU, nId, VtV) End Function -Private Function EgtFrame_32(ByVal nId As Integer, ByVal nRefId As Integer, +Private Function EgtFrame_32(nId As Integer, nRefId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function -Private Function EgtFrame_64(ByVal nId As Integer, ByVal nRefId As Integer, +Private Function EgtFrame_64(nId As Integer, nRefId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function -Public Function EgtFrame(ByVal nId As Integer, ByVal nRefId As Integer, ByRef frFrame As Frame3d) As Boolean +Public Function EgtFrame(nId As Integer, nRefId As Integer, ByRef frFrame As Frame3d) As Boolean Dim PtOrig As Point3d Dim VtDirX, VtDirY, VtDirZ As Vector3d Dim bOk As Boolean @@ -4722,12 +4764,12 @@ Public Function EgtFrame(ByVal nId As Integer, ByVal nRefId As Integer, ByRef fr End Function -Private Function EgtCurveDomain_32(ByVal nId As Integer, ByRef dStart As Double, ByRef dEnd As Double) As Boolean +Private Function EgtCurveDomain_32(nId As Integer, ByRef dStart As Double, ByRef dEnd As Double) As Boolean End Function -Private Function EgtCurveDomain_64(ByVal nId As Integer, ByRef dStart As Double, ByRef dEnd As Double) As Boolean +Private Function EgtCurveDomain_64(nId As Integer, ByRef dStart As Double, ByRef dEnd As Double) As Boolean End Function -Public Function EgtCurveDomain(ByVal nId As Integer, ByRef dStart As Double, ByRef dEnd As Double) As Boolean +Public Function EgtCurveDomain(nId As Integer, ByRef dStart As Double, ByRef dEnd As Double) As Boolean If IntPtr.Size = 4 Then Return EgtCurveDomain_32(nId, dStart, dEnd) Else @@ -4736,12 +4778,12 @@ Public Function EgtCurveDomain(ByVal nId As Integer, ByRef dStart As Double, ByR End Function -Private Function EgtCurveLength_32(ByVal nId As Integer, ByRef dLen As Double) As Boolean +Private Function EgtCurveLength_32(nId As Integer, ByRef dLen As Double) As Boolean End Function -Private Function EgtCurveLength_64(ByVal nId As Integer, ByRef dLen As Double) As Boolean +Private Function EgtCurveLength_64(nId As Integer, ByRef dLen As Double) As Boolean End Function -Public Function EgtCurveLength(ByVal nId As Integer, ByRef dLen As Double) As Boolean +Public Function EgtCurveLength(nId As Integer, ByRef dLen As Double) As Boolean If IntPtr.Size = 4 Then Return EgtCurveLength_32(nId, dLen) Else @@ -4750,29 +4792,29 @@ Public Function EgtCurveLength(ByVal nId As Integer, ByRef dLen As Double) As Bo End Function -Private Function EgtCurveLengthAtPoint_32(ByVal nId As Integer, ByRef ptOn As Point3d, ByVal dExtend As Double, ByRef dLen As Double) As Boolean +Private Function EgtCurveLengthAtPoint_32(nId As Integer, ByRef ptOn As Point3d, dExtend As Double, ByRef dLen As Double) As Boolean End Function -Private Function EgtCurveLengthAtPoint_64(ByVal nId As Integer, ByRef ptOn As Point3d, ByVal dExtend As Double, ByRef dLen As Double) As Boolean +Private Function EgtCurveLengthAtPoint_64(nId As Integer, ByRef ptOn As Point3d, dExtend As Double, ByRef dLen As Double) As Boolean End Function -Public Function EgtCurveLengthAtPoint(ByVal nId As Integer, ByRef ptOn As Point3d, ByVal dExtend As Double, ByRef dLen As Double) As Boolean +Public Function EgtCurveLengthAtPoint(nId As Integer, ByRef ptOn As Point3d, dExtend As Double, ByRef dLen As Double) As Boolean If IntPtr.Size = 4 Then Return EgtCurveLengthAtPoint_32(nId, ptOn, dExtend, dLen) Else Return EgtCurveLengthAtPoint_64(nId, ptOn, dExtend, dLen) End If End Function -Public Function EgtCurveLengthAtPoint(ByVal nId As Integer, ByVal ptOn As Point3d, ByRef dLen As Double) As Boolean +Public Function EgtCurveLengthAtPoint(nId As Integer, ptOn As Point3d, ByRef dLen As Double) As Boolean Return EgtCurveLengthAtPoint(nId, ptOn, 0, dLen) End Function -Private Function EgtCurveNearestExtremityToPoint_32(ByVal nId As Integer, ByRef ptP As Point3d, ByRef bStart As Boolean) As Boolean +Private Function EgtCurveNearestExtremityToPoint_32(nId As Integer, ByRef ptP As Point3d, ByRef bStart As Boolean) As Boolean End Function -Private Function EgtCurveNearestExtremityToPoint_64(ByVal nId As Integer, ByRef ptP As Point3d, ByRef bStart As Boolean) As Boolean +Private Function EgtCurveNearestExtremityToPoint_64(nId As Integer, ByRef ptP As Point3d, ByRef bStart As Boolean) As Boolean End Function -Public Function EgtCurveNearestExtremityToPoint(ByVal nId As Integer, ByRef ptP As Point3d, ByRef bStart As Boolean) As Boolean +Public Function EgtCurveNearestExtremityToPoint(nId As Integer, ByRef ptP As Point3d, ByRef bStart As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtCurveNearestExtremityToPoint_32(nId, ptP, bStart) Else @@ -4781,29 +4823,29 @@ Public Function EgtCurveNearestExtremityToPoint(ByVal nId As Integer, ByRef ptP End Function -Private Function EgtCurveExtrusion_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtExtr As Vector3d) As Boolean +Private Function EgtCurveExtrusion_32(nId As Integer, nRefId As Integer, ByRef VtExtr As Vector3d) As Boolean End Function -Private Function EgtCurveExtrusion_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtExtr As Vector3d) As Boolean +Private Function EgtCurveExtrusion_64(nId As Integer, nRefId As Integer, ByRef VtExtr As Vector3d) As Boolean End Function -Public Function EgtCurveExtrusion(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtExtr As Vector3d) As Boolean +Public Function EgtCurveExtrusion(nId As Integer, nRefId As Integer, ByRef VtExtr As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtCurveExtrusion_32(nId, nRefId, VtExtr) Else Return EgtCurveExtrusion_64(nId, nRefId, VtExtr) End If End Function -Public Function EgtCurveExtrusion(ByVal nId As Integer, ByRef VtExtr As Vector3d) As Boolean +Public Function EgtCurveExtrusion(nId As Integer, ByRef VtExtr As Vector3d) As Boolean Return EgtCurveExtrusion(nId, nId, VtExtr) End Function -Private Function EgtCurveThickness_32(ByVal nId As Integer, ByRef dThick As Double) As Boolean +Private Function EgtCurveThickness_32(nId As Integer, ByRef dThick As Double) As Boolean End Function -Private Function EgtCurveThickness_64(ByVal nId As Integer, ByRef dThick As Double) As Boolean +Private Function EgtCurveThickness_64(nId As Integer, ByRef dThick As Double) As Boolean End Function -Public Function EgtCurveThickness(ByVal nId As Integer, ByRef dThick As Double) As Boolean +Public Function EgtCurveThickness(nId As Integer, ByRef dThick As Double) As Boolean If IntPtr.Size = 4 Then Return EgtCurveThickness_32(nId, dThick) Else @@ -4812,12 +4854,12 @@ Public Function EgtCurveThickness(ByVal nId As Integer, ByRef dThick As Double) End Function -Private Function EgtGetMinDistPointCurve_32(ByRef ptP As Point3d, ByVal nId As Integer, ByRef dDist As Double, ByRef dU As Double) As Boolean +Private Function EgtGetMinDistPointCurve_32(ByRef ptP As Point3d, nId As Integer, ByRef dDist As Double, ByRef dU As Double) As Boolean End Function -Private Function EgtGetMinDistPointCurve_64(ByRef ptP As Point3d, ByVal nId As Integer, ByRef dDist As Double, ByRef dU As Double) As Boolean +Private Function EgtGetMinDistPointCurve_64(ByRef ptP As Point3d, nId As Integer, ByRef dDist As Double, ByRef dU As Double) As Boolean End Function -Public Function EgtGetMinDistPointCurve(ByRef ptP As Point3d, ByVal nId As Integer, ByRef dDist As Double, ByRef dU As Double) As Boolean +Public Function EgtGetMinDistPointCurve(ByRef ptP As Point3d, nId As Integer, ByRef dDist As Double, ByRef dU As Double) As Boolean If IntPtr.Size = 4 Then Return EgtGetMinDistPointCurve_32(ptP, nId, dDist, dU) Else @@ -4826,14 +4868,14 @@ Public Function EgtGetMinDistPointCurve(ByRef ptP As Point3d, ByVal nId As Integ End Function -Private Function EgtGetMinDistPntSidePointCurve_32(ByRef ptP As Point3d, ByVal nId As Integer, ByRef vtN As Vector3d, +Private Function EgtGetMinDistPntSidePointCurve_32(ByRef ptP As Point3d, nId As Integer, ByRef vtN As Vector3d, ByRef dDist As Double, ByRef ptMin As Point3d, ByRef nSide As Integer) As Boolean End Function -Private Function EgtGetMinDistPntSidePointCurve_64(ByRef ptP As Point3d, ByVal nId As Integer, ByRef vtN As Vector3d, +Private Function EgtGetMinDistPntSidePointCurve_64(ByRef ptP As Point3d, nId As Integer, ByRef vtN As Vector3d, ByRef dDist As Double, ByRef ptMin As Point3d, ByRef nSide As Integer) As Boolean End Function -Public Function EgtGetMinDistPntSidePointCurve(ByRef ptP As Point3d, ByVal nId As Integer, ByRef vtN As Vector3d, +Public Function EgtGetMinDistPntSidePointCurve(ByRef ptP As Point3d, nId As Integer, ByRef vtN As Vector3d, ByRef dDist As Double, ByRef ptMin As Point3d, ByRef nSide As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetMinDistPntSidePointCurve_32(ptP, nId, vtN, dDist, ptMin, nSide) @@ -4843,46 +4885,46 @@ Public Function EgtGetMinDistPntSidePointCurve(ByRef ptP As Point3d, ByVal nId A End Function -Private Function EgtArcNormVersor_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtArcNormVersor_32(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function -Private Function EgtArcNormVersor_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtArcNormVersor_64(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function -Public Function EgtArcNormVersor(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Public Function EgtArcNormVersor(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtArcNormVersor_32(nId, nRefId, VtNorm) Else Return EgtArcNormVersor_64(nId, nRefId, VtNorm) End If End Function -Public Function EgtArcNormVersor(ByVal nId As Integer, ByRef VtNorm As Vector3d) As Boolean +Public Function EgtArcNormVersor(nId As Integer, ByRef VtNorm As Vector3d) As Boolean Return EgtArcNormVersor(nId, nId, VtNorm) End Function -Private Function EgtSurfFrNormVersor_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtSurfFrNormVersor_32(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function -Private Function EgtSurfFrNormVersor_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtSurfFrNormVersor_64(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function -Public Function EgtSurfFrNormVersor(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Public Function EgtSurfFrNormVersor(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtSurfFrNormVersor_32(nId, nRefId, VtNorm) Else Return EgtSurfFrNormVersor_64(nId, nRefId, VtNorm) End If End Function -Public Function EgtSurfFrNormVersor(ByVal nId As Integer, ByRef VtNorm As Vector3d) As Boolean +Public Function EgtSurfFrNormVersor(nId As Integer, ByRef VtNorm As Vector3d) As Boolean Return EgtSurfFrNormVersor(nId, nId, VtNorm) End Function -Private Function EgtSurfTmFacetFromTria_32(ByVal nId As Integer, ByVal nT As Integer) As Integer +Private Function EgtSurfTmFacetFromTria_32(nId As Integer, nT As Integer) As Integer End Function -Private Function EgtSurfTmFacetFromTria_64(ByVal nId As Integer, ByVal nT As Integer) As Integer +Private Function EgtSurfTmFacetFromTria_64(nId As Integer, nT As Integer) As Integer End Function -Public Function EgtSurfTmFacetFromTria(ByVal nId As Integer, ByVal nT As Integer) As Integer +Public Function EgtSurfTmFacetFromTria(nId As Integer, nT As Integer) As Integer If IntPtr.Size = 4 Then Return EgtSurfTmFacetFromTria_32(nId, nT) Else @@ -4891,14 +4933,14 @@ Public Function EgtSurfTmFacetFromTria(ByVal nId As Integer, ByVal nT As Integer End Function -Private Function EgtSurfTmFacetNearestEndPoint_32(ByVal nId As Integer, ByVal nF As Integer, ByRef PtNear As Point3d, ByVal nRefId As Integer, +Private Function EgtSurfTmFacetNearestEndPoint_32(nId As Integer, nF As Integer, ByRef PtNear As Point3d, nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function -Private Function EgtSurfTmFacetNearestEndPoint_64(ByVal nId As Integer, ByVal nF As Integer, ByRef PtNear As Point3d, ByVal nRefId As Integer, +Private Function EgtSurfTmFacetNearestEndPoint_64(nId As Integer, nF As Integer, ByRef PtNear As Point3d, nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function -Public Function EgtSurfTmFacetNearestEndPoint(ByVal nId As Integer, ByVal nF As Integer, ByRef PtNear As Point3d, ByVal nRefId As Integer, +Public Function EgtSurfTmFacetNearestEndPoint(nId As Integer, nF As Integer, ByRef PtNear As Point3d, nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtSurfTmFacetNearestEndPoint_32(nId, nF, PtNear, nRefId, PtP, VtNorm) @@ -4906,69 +4948,69 @@ Public Function EgtSurfTmFacetNearestEndPoint(ByVal nId As Integer, ByVal nF As Return EgtSurfTmFacetNearestEndPoint_64(nId, nF, PtNear, nRefId, PtP, VtNorm) End If End Function -Public Function EgtSurfTmFacetNearestEndPoint(ByVal nId As Integer, ByVal nF As Integer, ByRef PtNear As Point3d, +Public Function EgtSurfTmFacetNearestEndPoint(nId As Integer, nF As Integer, ByRef PtNear As Point3d, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean Return EgtSurfTmFacetNearestEndPoint(nId, nF, PtNear, nId, PtP, VtNorm) End Function -Private Function EgtSurfTmFacetCenter_32(ByVal nId As Integer, ByVal nF As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtSurfTmFacetCenter_32(nId As Integer, nF As Integer, nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function -Private Function EgtSurfTmFacetCenter_64(ByVal nId As Integer, ByVal nF As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtSurfTmFacetCenter_64(nId As Integer, nF As Integer, nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function -Public Function EgtSurfTmFacetCenter(ByVal nId As Integer, ByVal nF As Integer, ByVal nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean +Public Function EgtSurfTmFacetCenter(nId As Integer, nF As Integer, nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtSurfTmFacetCenter_32(nId, nF, nRefId, PtP, VtNorm) Else Return EgtSurfTmFacetCenter_64(nId, nF, nRefId, PtP, VtNorm) End If End Function -Public Function EgtSurfTmFacetCenter(ByVal nId As Integer, ByVal nF As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean +Public Function EgtSurfTmFacetCenter(nId As Integer, nF As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean Return EgtSurfTmFacetCenter(nId, nF, nId, PtP, VtNorm) End Function -Private Function EgtSurfTmFacetNormVersor_32(ByVal nId As Integer, ByVal nF As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtSurfTmFacetNormVersor_32(nId As Integer, nF As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function -Private Function EgtSurfTmFacetNormVersor_64(ByVal nId As Integer, ByVal nF As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtSurfTmFacetNormVersor_64(nId As Integer, nF As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function -Public Function EgtSurfTmFacetNormVersor(ByVal nId As Integer, ByVal nF As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Public Function EgtSurfTmFacetNormVersor(nId As Integer, nF As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtSurfTmFacetNormVersor_32(nId, nF, nRefId, VtNorm) Else Return EgtSurfTmFacetNormVersor_64(nId, nF, nRefId, VtNorm) End If End Function -Public Function EgtSurfTmFacetNormVersor(ByVal nId As Integer, ByVal nF As Integer, ByRef VtNorm As Vector3d) As Boolean +Public Function EgtSurfTmFacetNormVersor(nId As Integer, nF As Integer, ByRef VtNorm As Vector3d) As Boolean Return EgtSurfTmFacetNormVersor(nId, nF, nId, VtNorm) End Function -Private Function EgtTextNormVersor_32(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtTextNormVersor_32(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function -Private Function EgtTextNormVersor_64(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Private Function EgtTextNormVersor_64(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function -Public Function EgtTextNormVersor(ByVal nId As Integer, ByVal nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean +Public Function EgtTextNormVersor(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtTextNormVersor_32(nId, nRefId, VtNorm) Else Return EgtTextNormVersor_64(nId, nRefId, VtNorm) End If End Function -Public Function EgtTextNormVersor(ByVal nId As Integer, ByRef VtNorm As Vector3d) As Boolean +Public Function EgtTextNormVersor(nId As Integer, ByRef VtNorm As Vector3d) As Boolean Return EgtTextNormVersor(nId, nId, VtNorm) End Function -Private Function EgtPointToIdGlob_32(ByRef PtP As Point3d, ByVal nId As Integer) As Boolean +Private Function EgtPointToIdGlob_32(ByRef PtP As Point3d, nId As Integer) As Boolean End Function -Private Function EgtPointToIdGlob_64(ByRef PtP As Point3d, ByVal nId As Integer) As Boolean +Private Function EgtPointToIdGlob_64(ByRef PtP As Point3d, nId As Integer) As Boolean End Function -Private Function EgtPointToIdGlob(ByRef PtP As Point3d, ByVal nId As Integer) As Boolean +Private Function EgtPointToIdGlob(ByRef PtP As Point3d, nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtPointToIdGlob_32(PtP, nId) Else @@ -4977,12 +5019,12 @@ Private Function EgtPointToIdGlob(ByRef PtP As Point3d, ByVal nId As Integer) As End Function -Private Function EgtPointToIdLoc_32(ByRef PtP As Point3d, ByVal nId As Integer) As Boolean +Private Function EgtPointToIdLoc_32(ByRef PtP As Point3d, nId As Integer) As Boolean End Function -Private Function EgtPointToIdLoc_64(ByRef PtP As Point3d, ByVal nId As Integer) As Boolean +Private Function EgtPointToIdLoc_64(ByRef PtP As Point3d, nId As Integer) As Boolean End Function -Private Function EgtPointToIdLoc(ByRef PtP As Point3d, ByVal nId As Integer) As Boolean +Private Function EgtPointToIdLoc(ByRef PtP As Point3d, nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtPointToIdLoc_32(PtP, nId) Else @@ -4991,12 +5033,12 @@ Private Function EgtPointToIdLoc(ByRef PtP As Point3d, ByVal nId As Integer) As End Function -Private Function EgtVectorToIdGlob_32(ByRef VtV As Vector3d, ByVal nId As Integer) As Boolean +Private Function EgtVectorToIdGlob_32(ByRef VtV As Vector3d, nId As Integer) As Boolean End Function -Private Function EgtVectorToIdGlob_64(ByRef VtV As Vector3d, ByVal nId As Integer) As Boolean +Private Function EgtVectorToIdGlob_64(ByRef VtV As Vector3d, nId As Integer) As Boolean End Function -Private Function EgtVectorToIdGlob(ByRef VtV As Vector3d, ByVal nId As Integer) As Boolean +Private Function EgtVectorToIdGlob(ByRef VtV As Vector3d, nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtVectorToIdGlob_32(VtV, nId) Else @@ -5005,12 +5047,12 @@ Private Function EgtVectorToIdGlob(ByRef VtV As Vector3d, ByVal nId As Integer) End Function -Private Function EgtVectorToIdLoc_32(ByRef VtV As Vector3d, ByVal nId As Integer) As Boolean +Private Function EgtVectorToIdLoc_32(ByRef VtV As Vector3d, nId As Integer) As Boolean End Function -Private Function EgtVectorToIdLoc_64(ByRef VtV As Vector3d, ByVal nId As Integer) As Boolean +Private Function EgtVectorToIdLoc_64(ByRef VtV As Vector3d, nId As Integer) As Boolean End Function -Private Function EgtVectorToIdLoc(ByRef VtV As Vector3d, ByVal nId As Integer) As Boolean +Private Function EgtVectorToIdLoc(ByRef VtV As Vector3d, nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtVectorToIdLoc_32(VtV, nId) Else @@ -5021,12 +5063,12 @@ End Function '---------- Nestings ----------------------------------------------------------- -Private Function EgtCreateFlatParts_32(ByVal nType As Integer) As Boolean +Private Function EgtCreateFlatParts_32(nType As Integer) As Boolean End Function -Private Function EgtCreateFlatParts_64(ByVal nType As Integer) As Boolean +Private Function EgtCreateFlatParts_64(nType As Integer) As Boolean End Function -Public Function EgtCreateFlatParts(ByVal nType As Integer) As Boolean +Public Function EgtCreateFlatParts(nType As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtCreateFlatParts_32(nType) Else @@ -5035,12 +5077,12 @@ Public Function EgtCreateFlatParts(ByVal nType As Integer) As Boolean End Function -Private Function EgtAdjustFlatPartLayer_32(ByVal nLayerId As Integer) As Boolean +Private Function EgtAdjustFlatPartLayer_32(nLayerId As Integer) As Boolean End Function -Private Function EgtAdjustFlatPartLayer_64(ByVal nLayerId As Integer) As Boolean +Private Function EgtAdjustFlatPartLayer_64(nLayerId As Integer) As Boolean End Function -Public Function EgtAdjustFlatPartLayer(ByVal nLayerId As Integer) As Boolean +Public Function EgtAdjustFlatPartLayer(nLayerId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtAdjustFlatPartLayer_32(nLayerId) Else @@ -5049,23 +5091,23 @@ Public Function EgtAdjustFlatPartLayer(ByVal nLayerId As Integer) As Boolean End Function -Private Function EgtPackBoxCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal dOffs As Double, ByVal bBottomUp As Boolean) As Boolean +Private Function EgtPackBoxCluster_32(vId As Integer(), nCount As Integer, dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dOffs As Double, bBottomUp As Boolean) As Boolean End Function -Private Function EgtPackBoxCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal dOffs As Double, ByVal bBottomUp As Boolean) As Boolean +Private Function EgtPackBoxCluster_64(vId As Integer(), nCount As Integer, dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dOffs As Double, bBottomUp As Boolean) As Boolean End Function -Public Function EgtPackBoxCluster(ByVal vId As Integer(), ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal dOffs As Double, ByVal bBottomUp As Boolean) As Boolean +Public Function EgtPackBoxCluster(vId As Integer(), dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dOffs As Double, bBottomUp As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtPackBoxCluster_32(vId, vId.Count(), dXmin, dYmin, dXmax, dYmax, dOffs, bBottomUp) Else Return EgtPackBoxCluster_64(vId, vId.Count(), dXmin, dYmin, dXmax, dYmax, dOffs, bBottomUp) End If End Function -Public Function EgtPackBox(ByVal nPartId As Integer, ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal dOffs As Double, ByVal bBottomUp As Boolean) As Boolean +Public Function EgtPackBox(nPartId As Integer, dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dOffs As Double, bBottomUp As Boolean) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then @@ -5076,26 +5118,26 @@ Public Function EgtPackBox(ByVal nPartId As Integer, ByVal dXmin As Double, ByVa End Function -Private Function EgtMoveBoxCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal dOffs As Double) As Boolean +Private Function EgtMoveBoxCluster_32(vId As Integer(), nCount As Integer, ByRef vtMove As Vector3d, + dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dOffs As Double) As Boolean End Function -Private Function EgtMoveBoxCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal dOffs As Double) As Boolean +Private Function EgtMoveBoxCluster_64(vId As Integer(), nCount As Integer, ByRef vtMove As Vector3d, + dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dOffs As Double) As Boolean End Function -Public Function EgtMoveBoxCluster(ByVal vId As Integer(), ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal dOffs As Double) As Boolean +Public Function EgtMoveBoxCluster(vId As Integer(), ByRef vtMove As Vector3d, + dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dOffs As Double) As Boolean If IntPtr.Size = 4 Then Return EgtMoveBoxCluster_32(vId, vId.Count(), vtMove, dXmin, dYmin, dXmax, dYmax, dOffs) Else Return EgtMoveBoxCluster_64(vId, vId.Count(), vtMove, dXmin, dYmin, dXmax, dYmax, dOffs) End If End Function -Public Function EgtMoveBox(ByVal nPartId As Integer, ByRef vtMove As Vector3d, ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal dOffs As Double) As Boolean +Public Function EgtMoveBox(nPartId As Integer, ByRef vtMove As Vector3d, dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dOffs As Double) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then @@ -5106,14 +5148,14 @@ Public Function EgtMoveBox(ByVal nPartId As Integer, ByRef vtMove As Vector3d, B End Function -Private Function EgtGetClusterBBoxGlob_32(ByVal vId As Integer(), ByVal nCount As Integer, +Private Function EgtGetClusterBBoxGlob_32(vId As Integer(), nCount As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function -Private Function EgtGetClusterBBoxGlob_64(ByVal vId As Integer(), ByVal nCount As Integer, +Private Function EgtGetClusterBBoxGlob_64(vId As Integer(), nCount As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function -Public Function EgtGetClusterBBoxGlob(ByVal vId As Integer(), +Public Function EgtGetClusterBBoxGlob(vId As Integer(), ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtGetClusterBBoxGlob_32(vId, vId.Count(), PtMin, PtMax) @@ -5121,7 +5163,7 @@ Public Function EgtGetClusterBBoxGlob(ByVal vId As Integer(), Return EgtGetClusterBBoxGlob_64(vId, vId.Count(), PtMin, PtMax) End If End Function -Public Function EgtGetPartBBoxGlob(ByVal nPartId As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean +Public Function EgtGetPartBBoxGlob(nPartId As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then @@ -5131,59 +5173,85 @@ Public Function EgtGetPartBBoxGlob(ByVal nPartId As Integer, ByRef PtMin As Poin End If End Function - -Private Function EgtVerifyPartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + +Private Function EgtCreateOutRegion_32(nParentId As Integer, + dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dZ As Double) As Boolean End Function - -Private Function EgtVerifyPartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + +Private Function EgtCreateOutRegion_64(nParentId As Integer, + dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dZ As Double) As Boolean End Function -Public Function EgtVerifyPartCluster(ByVal vId As Integer(), ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Public Function EgtCreateOutRegion(nParentId As Integer, + dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, dZ As Double) As Boolean If IntPtr.Size = 4 Then - Return EgtVerifyPartCluster_32(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax) + Return EgtCreateOutRegion_32(nParentId, dXmin, dYmin, dXmax, dYmax, dZ) Else - Return EgtVerifyPartCluster_64(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax) + Return EgtCreateOutRegion_64(nParentId, dXmin, dYmin, dXmax, dYmax, dZ) End If End Function -Public Function EgtVerifyPart(ByVal nPartId As Integer, ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + + +Private Function EgtCreateOutRegion2_32(nParentId As Integer, nOutCrvId As Integer) As Boolean +End Function + +Private Function EgtCreateOutRegion2_64(nParentId As Integer, nOutCrvId As Integer) As Boolean +End Function +Public Function EgtCreateOutRegion(nParentId As Integer, nOutCrvId As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtCreateOutRegion2_32(nParentId, nOutCrvId) + Else + Return EgtCreateOutRegion2_64(nParentId, nOutCrvId) + End If +End Function + + +Private Function EgtVerifyPartCluster_32(vId As Integer(), nCount As Integer, bReducedCut As Boolean) As Boolean +End Function + +Private Function EgtVerifyPartCluster_64(vId As Integer(), nCount As Integer, bReducedCut As Boolean) As Boolean +End Function +Public Function EgtVerifyPartCluster(vId As Integer(), bReducedCut As Boolean) As Boolean + If IntPtr.Size = 4 Then + Return EgtVerifyPartCluster_32(vId, vId.Count(), bReducedCut) + Else + Return EgtVerifyPartCluster_64(vId, vId.Count(), bReducedCut) + End If +End Function +Public Function EgtVerifyPart(nPartId As Integer, bReducedCut As Boolean) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then - Return EgtVerifyPartCluster_32(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax) + Return EgtVerifyPartCluster_32(vId, 1, bReducedCut) Else - Return EgtVerifyPartCluster_64(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax) + Return EgtVerifyPartCluster_64(vId, 1, bReducedCut) End If End Function -Private Function EgtPackPartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean +Private Function EgtPackPartCluster_32(vId As Integer(), nCount As Integer, bReducedCut As Boolean, + dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, bBottomUp As Boolean) As Boolean End Function -Private Function EgtPackPartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean +Private Function EgtPackPartCluster_64(vId As Integer(), nCount As Integer, bReducedCut As Boolean, + dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, bBottomUp As Boolean) As Boolean End Function -Public Function EgtPackPartCluster(ByVal vId As Integer(), ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean +Public Function EgtPackPartCluster(vId As Integer(), bReducedCut As Boolean, + dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, bBottomUp As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtPackPartCluster_32(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax, bBottomUp) Else Return EgtPackPartCluster_64(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax, bBottomUp) End If End Function -Public Function EgtPackPart(ByVal nPartId As Integer, ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean +Public Function EgtPackPart(nPartId As Integer, bReducedCut As Boolean, + dXmin As Double, dYmin As Double, + dXmax As Double, dYmax As Double, bBottomUp As Boolean) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then @@ -5193,181 +5261,164 @@ Public Function EgtPackPart(ByVal nPartId As Integer, ByVal bReducedCut As Boole End If End Function - -Private Function EgtMovePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, - ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + +Private Function EgtPackPartCluster2_32(vId As Integer(), nCount As Integer, bReducedCut As Boolean, + bBottomUp As Boolean) As Boolean End Function - -Private Function EgtMovePartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, - ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean + +Private Function EgtPackPartCluster2_64(vId As Integer(), nCount As Integer, bReducedCut As Boolean, + bBottomUp As Boolean) As Boolean End Function -Public Function EgtMovePartCluster(ByVal vId As Integer(), - ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Public Function EgtPackPartCluster(vId As Integer(), bReducedCut As Boolean, bBottomUp As Boolean) As Boolean If IntPtr.Size = 4 Then - Return EgtMovePartCluster_32(vId, vId.Count(), bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtPackPartCluster2_32(vId, vId.Count(), bReducedCut, bBottomUp) Else - Return EgtMovePartCluster_64(vId, vId.Count(), bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtPackPartCluster2_64(vId, vId.Count(), bReducedCut, bBottomUp) End If End Function -Public Function EgtMovePart(ByVal nPartId As Integer, ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Public Function EgtPackPart(nPartId As Integer, bReducedCut As Boolean, bBottomUp As Boolean) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then - Return EgtMovePartCluster_32(vId, 1, bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtPackPartCluster2_32(vId, 1, bReducedCut, bBottomUp) Else - Return EgtMovePartCluster_64(vId, 1, bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtPackPartCluster2_64(vId, 1, bReducedCut, bBottomUp) + End If +End Function + + +Private Function EgtMovePartCluster_32(vId As Integer(), nCount As Integer, + bReducedCut As Boolean, ByRef vtMove As Vector3d) As Boolean +End Function + +Private Function EgtMovePartCluster_64(vId As Integer(), nCount As Integer, + bReducedCut As Boolean, ByRef vtMove As Vector3d) As Boolean +End Function +Public Function EgtMovePartCluster(vId As Integer(), + bReducedCut As Boolean, ByRef vtMove As Vector3d) As Boolean + If IntPtr.Size = 4 Then + Return EgtMovePartCluster_32(vId, vId.Count(), bReducedCut, vtMove) + Else + Return EgtMovePartCluster_64(vId, vId.Count(), bReducedCut, vtMove) + End If +End Function +Public Function EgtMovePart(nPartId As Integer, bReducedCut As Boolean, ByRef vtMove As Vector3d) As Boolean + Dim vId(0) As Integer + vId(0) = nPartId + If IntPtr.Size = 4 Then + Return EgtMovePartCluster_32(vId, 1, bReducedCut, vtMove) + Else + Return EgtMovePartCluster_64(vId, 1, bReducedCut, vtMove) End If End Function -Private Function EgtRotatePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, - ByVal bReducedCut As Boolean, ByRef ptCen As Point3d, ByRef dRotAngDeg As Double, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Private Function EgtRotatePartCluster_32(vId As Integer(), nCount As Integer, bReducedCut As Boolean, + ByRef ptCen As Point3d, ByRef dRotAngDeg As Double) As Boolean End Function -Private Function EgtRotatePartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, - ByVal bReducedCut As Boolean, ByRef ptCen As Point3d, ByRef dRotAngDeg As Double, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Private Function EgtRotatePartCluster_64(vId As Integer(), nCount As Integer, bReducedCut As Boolean, + ByRef ptCen As Point3d, ByRef dRotAngDeg As Double) As Boolean End Function -Public Function EgtRotatePartCluster(ByVal vId As Integer(), - ByVal bReducedCut As Boolean, ByVal ptCen As Point3d, ByRef dRotAngDeg As Double, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Public Function EgtRotatePartCluster(vId As Integer(), bReducedCut As Boolean, + ptCen As Point3d, ByRef dRotAngDeg As Double) As Boolean If IntPtr.Size = 4 Then - Return EgtRotatePartCluster_32(vId, vId.Count(), bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + Return EgtRotatePartCluster_32(vId, vId.Count(), bReducedCut, ptCen, dRotAngDeg) Else - Return EgtRotatePartCluster_64(vId, vId.Count(), bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + Return EgtRotatePartCluster_64(vId, vId.Count(), bReducedCut, ptCen, dRotAngDeg) End If End Function -Public Function EgtRotatePart(ByVal nPartId As Integer, ByVal bReducedCut As Boolean, ByVal ptCen As Point3d, ByRef dRotAngDeg As Double, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Public Function EgtRotatePart(nPartId As Integer, bReducedCut As Boolean, + ptCen As Point3d, ByRef dRotAngDeg As Double) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then - Return EgtRotatePartCluster_32(vId, 1, bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + Return EgtRotatePartCluster_32(vId, 1, bReducedCut, ptCen, dRotAngDeg) Else - Return EgtRotatePartCluster_64(vId, 1, bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax) + Return EgtRotatePartCluster_64(vId, 1, bReducedCut, ptCen, dRotAngDeg) End If End Function -Private Function EgtTgMovePartClusterOnCollision_32(ByVal vId As Integer(), ByVal nCount As Integer, - ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Private Function EgtTgMovePartClusterOnCollision_32(vId As Integer(), nCount As Integer, + bReducedCut As Boolean, ByRef vtMove As Vector3d) As Boolean End Function -Private Function EgtTgMovePartClusterOnCollision_64(ByVal vId As Integer(), ByVal nCount As Integer, - ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Private Function EgtTgMovePartClusterOnCollision_64(vId As Integer(), nCount As Integer, + bReducedCut As Boolean, ByRef vtMove As Vector3d) As Boolean End Function -Public Function EgtTgMovePartClusterOnCollision(ByVal vId As Integer(), - ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Public Function EgtTgMovePartClusterOnCollision(vId As Integer(), + bReducedCut As Boolean, ByRef vtMove As Vector3d) As Boolean If IntPtr.Size = 4 Then - Return EgtTgMovePartClusterOnCollision_32(vId, vId.Count(), bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtTgMovePartClusterOnCollision_32(vId, vId.Count(), bReducedCut, vtMove) Else - Return EgtTgMovePartClusterOnCollision_64(vId, vId.Count(), bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtTgMovePartClusterOnCollision_64(vId, vId.Count(), bReducedCut, vtMove) End If End Function -Public Function EgtTgMovePartOnCollision(ByVal nPartId As Integer, ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double) As Boolean +Public Function EgtTgMovePartOnCollision(nPartId As Integer, + bReducedCut As Boolean, ByRef vtMove As Vector3d) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then - Return EgtTgMovePartClusterOnCollision_32(vId, 1, bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtTgMovePartClusterOnCollision_32(vId, 1, bReducedCut, vtMove) Else - Return EgtTgMovePartClusterOnCollision_64(vId, 1, bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax) + Return EgtTgMovePartClusterOnCollision_64(vId, 1, bReducedCut, vtMove) End If End Function -Private Function EgtAlignPartClusterOnCollision_32(ByVal vId As Integer(), ByVal nCount As Integer, - ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, - ByRef bMoved As Boolean) As Boolean +Private Function EgtAlignPartClusterOnCollision_32(vId As Integer(), nCount As Integer, + bReducedCut As Boolean, ByRef bMoved As Boolean) As Boolean End Function -Private Function EgtAlignPartClusterOnCollision_64(ByVal vId As Integer(), ByVal nCount As Integer, - ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, - ByRef bMoved As Boolean) As Boolean +Private Function EgtAlignPartClusterOnCollision_64(vId As Integer(), nCount As Integer, + bReducedCut As Boolean, ByRef bMoved As Boolean) As Boolean End Function -Public Function EgtAlignPartClusterOnCollision(ByVal vId As Integer(), - ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, +Public Function EgtAlignPartClusterOnCollision(vId As Integer(), bReducedCut As Boolean, ByRef bMoved As Boolean) As Boolean If IntPtr.Size = 4 Then - Return EgtAlignPartClusterOnCollision_32(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax, bMoved) + Return EgtAlignPartClusterOnCollision_32(vId, vId.Count(), bReducedCut, bMoved) Else - Return EgtAlignPartClusterOnCollision_64(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax, bMoved) + Return EgtAlignPartClusterOnCollision_64(vId, vId.Count(), bReducedCut, bMoved) End If End Function -Public Function EgtAlignPartOnCollision(ByVal nPartId As Integer, ByVal bReducedCut As Boolean, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, +Public Function EgtAlignPartOnCollision(nPartId As Integer, bReducedCut As Boolean, ByRef bMoved As Boolean) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then - Return EgtAlignPartClusterOnCollision_32(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax, bMoved) + Return EgtAlignPartClusterOnCollision_32(vId, 1, bReducedCut, bMoved) Else - Return EgtAlignPartClusterOnCollision_64(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax, bMoved) + Return EgtAlignPartClusterOnCollision_64(vId, 1, bReducedCut, bMoved) End If End Function -Private Function EgtMoveToSnapPointOnCollision_32(ByVal vId As Integer(), ByVal nCount As Integer, - ByVal bReducedCut As Boolean, ByVal dMaxMove As Double, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, +Private Function EgtMoveToSnapPointOnCollision_32(vId As Integer(), nCount As Integer, + bReducedCut As Boolean, dMaxMove As Double, ByRef bMoved As Boolean) As Boolean End Function -Private Function EgtMoveToSnapPointOnCollision_64(ByVal vId As Integer(), ByVal nCount As Integer, - ByVal bReducedCut As Boolean, ByVal dMaxMove As Double, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, +Private Function EgtMoveToSnapPointOnCollision_64(vId As Integer(), nCount As Integer, + bReducedCut As Boolean, dMaxMove As Double, ByRef bMoved As Boolean) As Boolean End Function -Public Function EgtMoveToSnapPointOnCollision(ByVal vId As Integer(), - ByVal bReducedCut As Boolean, ByVal dMaxMove As Double, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, - ByRef bMoved As Boolean) As Boolean +Public Function EgtMoveToSnapPointOnCollision(vId As Integer(), bReducedCut As Boolean, + dMaxMove As Double, ByRef bMoved As Boolean) As Boolean If IntPtr.Size = 4 Then - Return EgtMoveToSnapPointOnCollision_32(vId, vId.Count(), bReducedCut, dMaxMove, dXmin, dYmin, dXmax, dYmax, bMoved) + Return EgtMoveToSnapPointOnCollision_32(vId, vId.Count(), bReducedCut, dMaxMove, bMoved) Else - Return EgtMoveToSnapPointOnCollision_64(vId, vId.Count(), bReducedCut, dMaxMove, dXmin, dYmin, dXmax, dYmax, bMoved) + Return EgtMoveToSnapPointOnCollision_64(vId, vId.Count(), bReducedCut, dMaxMove, bMoved) End If End Function -Public Function EgtMovePartToSnapPointOnCollision(ByVal nPartId As Integer, ByVal bReducedCut As Boolean, ByVal dMaxMove As Double, - ByVal dXmin As Double, ByVal dYmin As Double, - ByVal dXmax As Double, ByVal dYmax As Double, - ByRef bMoved As Boolean) As Boolean +Public Function EgtMovePartToSnapPointOnCollision(nPartId As Integer, bReducedCut As Boolean, + dMaxMove As Double, ByRef bMoved As Boolean) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then - Return EgtMoveToSnapPointOnCollision_32(vId, 1, bReducedCut, dMaxMove, dXmin, dYmin, dXmax, dYmax, bMoved) + Return EgtMoveToSnapPointOnCollision_32(vId, 1, bReducedCut, dMaxMove, bMoved) Else - Return EgtMoveToSnapPointOnCollision_64(vId, 1, bReducedCut, dMaxMove, dXmin, dYmin, dXmax, dYmax, bMoved) + Return EgtMoveToSnapPointOnCollision_64(vId, 1, bReducedCut, dMaxMove, bMoved) End If End Function @@ -5400,19 +5451,19 @@ Public Sub EgtRestoreCollInfo() End Sub -Private Function EgtGetPartClusterCenterGlob_32(ByVal vId As Integer(), ByVal nCount As Integer, ByRef ptCen As Point3d) As Boolean +Private Function EgtGetPartClusterCenterGlob_32(vId As Integer(), nCount As Integer, ByRef ptCen As Point3d) As Boolean End Function -Private Function EgtGetPartClusterCenterGlob_64(ByVal vId As Integer(), ByVal nCount As Integer, ByRef ptCen As Point3d) As Boolean +Private Function EgtGetPartClusterCenterGlob_64(vId As Integer(), nCount As Integer, ByRef ptCen As Point3d) As Boolean End Function -Public Function EgtGetPartClusterCenterGlob(ByVal vId As Integer(), ByVal ptCen As Point3d, ByRef dRotAngDeg As Double) As Boolean +Public Function EgtGetPartClusterCenterGlob(vId As Integer(), ptCen As Point3d, ByRef dRotAngDeg As Double) As Boolean If IntPtr.Size = 4 Then Return EgtGetPartClusterCenterGlob_32(vId, vId.Count(), ptCen) Else Return EgtGetPartClusterCenterGlob_64(vId, vId.Count(), ptCen) End If End Function -Public Function EgtGetPartPartClusterCenterGlob(ByVal nPartId As Integer, ByRef ptCen As Point3d) As Boolean +Public Function EgtGetPartPartClusterCenterGlob(nPartId As Integer, ByRef ptCen As Point3d) As Boolean Dim vId(0) As Integer vId(0) = nPartId If IntPtr.Size = 4 Then @@ -5423,12 +5474,12 @@ Public Function EgtGetPartPartClusterCenterGlob(ByVal nPartId As Integer, ByRef End Function -Private Function EgtVerifyMachining_32(ByVal nId As Integer, ByRef nResult As Integer) As Boolean +Private Function EgtVerifyMachining_32(nId As Integer, ByRef nResult As Integer) As Boolean End Function -Private Function EgtVerifyMachining_64(ByVal nId As Integer, ByRef nResult As Integer) As Boolean +Private Function EgtVerifyMachining_64(nId As Integer, ByRef nResult As Integer) As Boolean End Function -Public Function EgtVerifyMachining(ByVal nId As Integer, ByRef nResult As Integer) As Boolean +Public Function EgtVerifyMachining(nId As Integer, ByRef nResult As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtVerifyMachining_32(nId, nResult) Else @@ -5437,12 +5488,12 @@ Public Function EgtVerifyMachining(ByVal nId As Integer, ByRef nResult As Intege End Function -Private Function EgtVerifyCutAsSplitting_32(ByVal nId As Integer) As Integer +Private Function EgtVerifyCutAsSplitting_32(nId As Integer) As Integer End Function -Private Function EgtVerifyCutAsSplitting_64(ByVal nId As Integer) As Integer +Private Function EgtVerifyCutAsSplitting_64(nId As Integer) As Integer End Function -Public Function EgtVerifyCutAsSplitting(ByVal nId As Integer) As Integer +Public Function EgtVerifyCutAsSplitting(nId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtVerifyCutAsSplitting_32(nId) Else @@ -5453,12 +5504,12 @@ End Function '---------- Machinings --------------------------------------------------------- -Private Function EgtInitMachMgr_32(ByVal sMachinesDir As String) As Boolean +Private Function EgtInitMachMgr_32(sMachinesDir As String) As Boolean End Function -Private Function EgtInitMachMgr_64(ByVal sMachinesDir As String) As Boolean +Private Function EgtInitMachMgr_64(sMachinesDir As String) As Boolean End Function -Public Function EgtInitMachMgr(ByVal sMachinesDir As String) As Boolean +Public Function EgtInitMachMgr(sMachinesDir As String) As Boolean If IntPtr.Size = 4 Then Return EgtInitMachMgr_32(sMachinesDir) Else @@ -5467,12 +5518,12 @@ Public Function EgtInitMachMgr(ByVal sMachinesDir As String) As Boolean End Function -Private Function EgtSetCurrMachine_32(ByVal sMachineName As String) As Boolean +Private Function EgtSetCurrMachine_32(sMachineName As String) As Boolean End Function -Private Function EgtSetCurrMachine_64(ByVal sMachineName As String) As Boolean +Private Function EgtSetCurrMachine_64(sMachineName As String) As Boolean End Function -Public Function EgtSetCurrMachine(ByVal sMachineName As String) As Boolean +Public Function EgtSetCurrMachine(sMachineName As String) As Boolean If IntPtr.Size = 4 Then Return EgtSetCurrMachine_32(sMachineName) Else @@ -5518,12 +5569,12 @@ Public Function EgtGetFirstMachGroup() As Integer End Function -Private Function EgtGetNextMachGroup_32(ByVal nMGroupId As Integer) As Integer +Private Function EgtGetNextMachGroup_32(nMGroupId As Integer) As Integer End Function -Private Function EgtGetNextMachGroup_64(ByVal nMGroupId As Integer) As Integer +Private Function EgtGetNextMachGroup_64(nMGroupId As Integer) As Integer End Function -Public Function EgtGetNextMachGroup(ByVal nMGroupId As Integer) As Integer +Public Function EgtGetNextMachGroup(nMGroupId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetNextMachGroup_32(nMGroupId) Else @@ -5532,12 +5583,12 @@ Public Function EgtGetNextMachGroup(ByVal nMGroupId As Integer) As Integer End Function -Private Function EgtSetCurrMachGroup_32(ByVal nMGroupId As Integer) As Boolean +Private Function EgtSetCurrMachGroup_32(nMGroupId As Integer) As Boolean End Function -Private Function EgtSetCurrMachGroup_64(ByVal nMGroupId As Integer) As Boolean +Private Function EgtSetCurrMachGroup_64(nMGroupId As Integer) As Boolean End Function -Public Function EgtSetCurrMachGroup(ByVal nMGroupId As Integer) As Boolean +Public Function EgtSetCurrMachGroup(nMGroupId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetCurrMachGroup_32(nMGroupId) Else @@ -5546,12 +5597,12 @@ Public Function EgtSetCurrMachGroup(ByVal nMGroupId As Integer) As Boolean End Function -Private Function EgtAddMachGroup_32(ByVal sName As String, ByVal sMachineName As String) As Integer +Private Function EgtAddMachGroup_32(sName As String, sMachineName As String) As Integer End Function -Private Function EgtAddMachGroup_64(ByVal sName As String, ByVal sMachineName As String) As Integer +Private Function EgtAddMachGroup_64(sName As String, sMachineName As String) As Integer End Function -Public Function EgtAddMachGroup(ByVal sName As String, ByVal sMachineName As String) As Integer +Public Function EgtAddMachGroup(sName As String, sMachineName As String) As Integer If IntPtr.Size = 4 Then Return EgtAddMachGroup_32(sName, sMachineName) Else @@ -5560,12 +5611,12 @@ Public Function EgtAddMachGroup(ByVal sName As String, ByVal sMachineName As Str End Function -Private Function EgtRemoveMachGroup_32(ByVal nMGroupId As Integer) As Boolean +Private Function EgtRemoveMachGroup_32(nMGroupId As Integer) As Boolean End Function -Private Function EgtRemoveMachGroup_64(ByVal nMGroupId As Integer) As Boolean +Private Function EgtRemoveMachGroup_64(nMGroupId As Integer) As Boolean End Function -Public Function EgtRemoveMachGroup(ByVal nMGroupId As Integer) As Boolean +Public Function EgtRemoveMachGroup(nMGroupId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRemoveMachGroup_32(nMGroupId) Else @@ -5588,12 +5639,12 @@ Public Function EgtAddPhase() As Integer End Function -Private Function EgtSetCurrPhase_32(ByVal nPhase As Integer) As Boolean +Private Function EgtSetCurrPhase_32(nPhase As Integer) As Boolean End Function -Private Function EgtSetCurrPhase_64(ByVal nPhase As Integer) As Boolean +Private Function EgtSetCurrPhase_64(nPhase As Integer) As Boolean End Function -Public Function EgtSetCurrPhase(ByVal nPhase As Integer) As Boolean +Public Function EgtSetCurrPhase(nPhase As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetCurrPhase_32(nPhase) Else @@ -5672,12 +5723,12 @@ Public Function EgtGetFirstRawPart() As Integer End Function -Private Function EgtGetNextRawPart_32(ByVal nRawId As Integer) As Integer +Private Function EgtGetNextRawPart_32(nRawId As Integer) As Integer End Function -Private Function EgtGetNextRawPart_64(ByVal nRawId As Integer) As Integer +Private Function EgtGetNextRawPart_64(nRawId As Integer) As Integer End Function -Public Function EgtGetNextRawPart(ByVal nRawId As Integer) As Integer +Public Function EgtGetNextRawPart(nRawId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetNextRawPart_32(nRawId) Else @@ -5686,15 +5737,15 @@ Public Function EgtGetNextRawPart(ByVal nRawId As Integer) As Integer End Function -Private Function EgtAddRawPart_32(ByRef ptOrig As Point3d, ByVal dLength As Double, ByVal dWidth As Double, - ByVal dHeight As Double, ByRef Color As Color3d) As Integer +Private Function EgtAddRawPart_32(ByRef ptOrig As Point3d, dLength As Double, dWidth As Double, + dHeight As Double, ByRef Color As Color3d) As Integer End Function -Private Function EgtAddRawPart_64(ByRef ptOrig As Point3d, ByVal dLength As Double, ByVal dWidth As Double, - ByVal dHeight As Double, ByRef Color As Color3d) As Integer +Private Function EgtAddRawPart_64(ByRef ptOrig As Point3d, dLength As Double, dWidth As Double, + dHeight As Double, ByRef Color As Color3d) As Integer End Function -Public Function EgtAddRawPart(ByRef ptOrig As Point3d, ByVal dLength As Double, ByVal dWidth As Double, - ByVal dHeight As Double, ByRef Color As Color3d) As Integer +Public Function EgtAddRawPart(ByRef ptOrig As Point3d, dLength As Double, dWidth As Double, + dHeight As Double, ByRef Color As Color3d) As Integer If IntPtr.Size = 4 Then Return EgtAddRawPart_32(ptOrig, dLength, dWidth, dHeight, Color) Else @@ -5703,15 +5754,15 @@ Public Function EgtAddRawPart(ByRef ptOrig As Point3d, ByVal dLength As Double, End Function -Private Function EgtModifyRawPart_32(ByVal nRawId As Integer, ByRef ptOrig As Point3d, ByVal dLength As Double, - ByVal dWidth As Double, ByVal dHeight As Double, ByRef Color As Color3d) As Boolean +Private Function EgtModifyRawPart_32(nRawId As Integer, ByRef ptOrig As Point3d, dLength As Double, + dWidth As Double, dHeight As Double, ByRef Color As Color3d) As Boolean End Function -Private Function EgtModifyRawPart_64(ByVal nRawId As Integer, ByRef ptOrig As Point3d, ByVal dLength As Double, - ByVal dWidth As Double, ByVal dHeight As Double, ByRef Color As Color3d) As Boolean +Private Function EgtModifyRawPart_64(nRawId As Integer, ByRef ptOrig As Point3d, dLength As Double, + dWidth As Double, dHeight As Double, ByRef Color As Color3d) As Boolean End Function -Public Function EgtModifyRawPart(ByVal nRawId As Integer, ByRef ptOrig As Point3d, ByVal dLength As Double, - ByVal dWidth As Double, ByVal dHeight As Double, ByRef Color As Color3d) As Boolean +Public Function EgtModifyRawPart(nRawId As Integer, ByRef ptOrig As Point3d, dLength As Double, + dWidth As Double, dHeight As Double, ByRef Color As Color3d) As Boolean If IntPtr.Size = 4 Then Return EgtModifyRawPart_32(nRawId, ptOrig, dLength, dWidth, dHeight, Color) Else @@ -5719,13 +5770,30 @@ Public Function EgtModifyRawPart(ByVal nRawId As Integer, ByRef ptOrig As Point3 End If End Function + +Private Function EgtModifyRawPart2_32(nRawId As Integer, nCrvId As Integer, dOverMat As Double, + dZmin As Double, dHeight As Double, ByRef Color As Color3d) As Boolean +End Function + +Private Function EgtModifyRawPart2_64(nRawId As Integer, nCrvId As Integer, dOverMat As Double, + dZmin As Double, dHeight As Double, ByRef Color As Color3d) As Boolean +End Function +Public Function EgtModifyRawPart(nRawId As Integer, nCrvId As Integer, dOverMat As Double, + dZmin As Double, dHeight As Double, ByRef Color As Color3d) As Boolean + If IntPtr.Size = 4 Then + Return EgtModifyRawPart2_32(nRawId, nCrvId, dOverMat, dZmin, dHeight, Color) + Else + Return EgtModifyRawPart2_64(nRawId, nCrvId, dOverMat, dZmin, dHeight, Color) + End If +End Function + -Private Function EgtModifyRawPartSize_32(ByVal nRawId As Integer, ByVal dLength As Double, ByVal dWidth As Double, ByVal dHeight As Double) As Boolean +Private Function EgtModifyRawPartSize_32(nRawId As Integer, dLength As Double, dWidth As Double, dHeight As Double) As Boolean End Function -Private Function EgtModifyRawPartSize_64(ByVal nRawId As Integer, ByVal dLength As Double, ByVal dWidth As Double, ByVal dHeight As Double) As Boolean +Private Function EgtModifyRawPartSize_64(nRawId As Integer, dLength As Double, dWidth As Double, dHeight As Double) As Boolean End Function -Public Function EgtModifyRawPartSize(ByVal nRawId As Integer, ByVal dLength As Double, ByVal dWidth As Double, ByVal dHeight As Double) As Boolean +Public Function EgtModifyRawPartSize(nRawId As Integer, dLength As Double, dWidth As Double, dHeight As Double) As Boolean If IntPtr.Size = 4 Then Return EgtModifyRawPartSize_32(nRawId, dLength, dWidth, dHeight) Else @@ -5734,12 +5802,12 @@ Public Function EgtModifyRawPartSize(ByVal nRawId As Integer, ByVal dLength As D End Function -Private Function EgtModifyRawPartHeight_32(ByVal nRawId As Integer, ByVal dHeight As Double) As Boolean +Private Function EgtModifyRawPartHeight_32(nRawId As Integer, dHeight As Double) As Boolean End Function -Private Function EgtModifyRawPartHeight_64(ByVal nRawId As Integer, ByVal dHeight As Double) As Boolean +Private Function EgtModifyRawPartHeight_64(nRawId As Integer, dHeight As Double) As Boolean End Function -Public Function EgtModifyRawPartHeight(ByVal nRawId As Integer, ByVal dHeight As Double) As Boolean +Public Function EgtModifyRawPartHeight(nRawId As Integer, dHeight As Double) As Boolean If IntPtr.Size = 4 Then Return EgtModifyRawPartHeight_32(nRawId, dHeight) Else @@ -5748,12 +5816,12 @@ Public Function EgtModifyRawPartHeight(ByVal nRawId As Integer, ByVal dHeight As End Function -Private Function EgtKeepRawPart_32(ByVal nRawId As Integer) As Boolean +Private Function EgtKeepRawPart_32(nRawId As Integer) As Boolean End Function -Private Function EgtKeepRawPart_64(ByVal nRawId As Integer) As Boolean +Private Function EgtKeepRawPart_64(nRawId As Integer) As Boolean End Function -Public Function EgtKeepRawPart(ByVal nRawId As Integer) As Boolean +Public Function EgtKeepRawPart(nRawId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtKeepRawPart_32(nRawId) Else @@ -5776,12 +5844,12 @@ Public Function EgtVerifyRawPartPhase(nRawId As Integer, nPhase As Integer) As B End Function -Private Function EgtRemoveRawPartFromCurrPhase_32(ByVal nRawId As Integer) As Boolean +Private Function EgtRemoveRawPartFromCurrPhase_32(nRawId As Integer) As Boolean End Function -Private Function EgtRemoveRawPartFromCurrPhase_64(ByVal nRawId As Integer) As Boolean +Private Function EgtRemoveRawPartFromCurrPhase_64(nRawId As Integer) As Boolean End Function -Public Function EgtRemoveRawPartFromCurrPhase(ByVal nRawId As Integer) As Boolean +Public Function EgtRemoveRawPartFromCurrPhase(nRawId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRemoveRawPartFromCurrPhase_32(nRawId) Else @@ -5790,12 +5858,12 @@ Public Function EgtRemoveRawPartFromCurrPhase(ByVal nRawId As Integer) As Boolea End Function -Private Function EgtRemoveRawPart_32(ByVal nRawId As Integer) As Boolean +Private Function EgtRemoveRawPart_32(nRawId As Integer) As Boolean End Function -Private Function EgtRemoveRawPart_64(ByVal nRawId As Integer) As Boolean +Private Function EgtRemoveRawPart_64(nRawId As Integer) As Boolean End Function -Public Function EgtRemoveRawPart(ByVal nRawId As Integer) As Boolean +Public Function EgtRemoveRawPart(nRawId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRemoveRawPart_32(nRawId) Else @@ -5804,12 +5872,12 @@ Public Function EgtRemoveRawPart(ByVal nRawId As Integer) As Boolean End Function -Private Function EgtMoveToCornerRawPart_32(ByVal nRawId As Integer, ByRef ptCorner As Point3d, ByVal nFlag As Integer) As Boolean +Private Function EgtMoveToCornerRawPart_32(nRawId As Integer, ByRef ptCorner As Point3d, nFlag As Integer) As Boolean End Function -Private Function EgtMoveToCornerRawPart_64(ByVal nRawId As Integer, ByRef ptCorner As Point3d, ByVal nFlag As Integer) As Boolean +Private Function EgtMoveToCornerRawPart_64(nRawId As Integer, ByRef ptCorner As Point3d, nFlag As Integer) As Boolean End Function -Public Function EgtMoveToCornerRawPart(ByVal nRawId As Integer, ByRef ptCorner As Point3d, ByVal nFlag As Integer) As Boolean +Public Function EgtMoveToCornerRawPart(nRawId As Integer, ByRef ptCorner As Point3d, nFlag As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtMoveToCornerRawPart_32(nRawId, ptCorner, nFlag) Else @@ -5818,12 +5886,12 @@ Public Function EgtMoveToCornerRawPart(ByVal nRawId As Integer, ByRef ptCorner A End Function -Private Function EgtMoveRawPart_32(ByVal nRawId As Integer, ByRef vtMove As Vector3d) As Boolean +Private Function EgtMoveRawPart_32(nRawId As Integer, ByRef vtMove As Vector3d) As Boolean End Function -Private Function EgtMoveRawPart_64(ByVal nRawId As Integer, ByRef vtMove As Vector3d) As Boolean +Private Function EgtMoveRawPart_64(nRawId As Integer, ByRef vtMove As Vector3d) As Boolean End Function -Public Function EgtMoveRawPart(ByVal nRawId As Integer, ByRef vtMove As Vector3d) As Boolean +Public Function EgtMoveRawPart(nRawId As Integer, ByRef vtMove As Vector3d) As Boolean If IntPtr.Size = 4 Then Return EgtMoveRawPart_32(nRawId, vtMove) Else @@ -5835,9 +5903,9 @@ End Function Private Function EgtSplitFlatRawPartWithMachinings_32(nRawId As Integer, nNumMch As Integer, nMchId() As Integer) As Integer End Function -Private Function EgtSplitFlatRawPartWithMachinings_64(ByVal nRawId As Integer, nNumMch As Integer, nMchId() As Integer) As Integer +Private Function EgtSplitFlatRawPartWithMachinings_64(nRawId As Integer, nNumMch As Integer, nMchId() As Integer) As Integer End Function -Public Function EgtSplitFlatRawPartWithMachinings(ByVal nRawId As Integer, nMchId() As Integer) As Integer +Public Function EgtSplitFlatRawPartWithMachinings(nRawId As Integer, nMchId() As Integer) As Integer If IntPtr.Size = 4 Then Return EgtSplitFlatRawPartWithMachinings_32(nRawId, nMchId.Length(), nMchId) Else @@ -5846,12 +5914,12 @@ Public Function EgtSplitFlatRawPartWithMachinings(ByVal nRawId As Integer, nMchI End Function -Private Function EgtGetPartInRawPartCount_32(ByVal nRawId As Integer) As Integer +Private Function EgtGetPartInRawPartCount_32(nRawId As Integer) As Integer End Function -Private Function EgtGetPartInRawPartCount_64(ByVal nRawId As Integer) As Integer +Private Function EgtGetPartInRawPartCount_64(nRawId As Integer) As Integer End Function -Public Function EgtGetPartInRawPartCount(ByVal nRawId As Integer) As Integer +Public Function EgtGetPartInRawPartCount(nRawId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetPartInRawPartCount_32(nRawId) Else @@ -5860,12 +5928,12 @@ Public Function EgtGetPartInRawPartCount(ByVal nRawId As Integer) As Integer End Function -Private Function EgtGetFirstPartInRawPart_32(ByVal nRawId As Integer) As Integer +Private Function EgtGetFirstPartInRawPart_32(nRawId As Integer) As Integer End Function -Private Function EgtGetFirstPartInRawPart_64(ByVal nRawId As Integer) As Integer +Private Function EgtGetFirstPartInRawPart_64(nRawId As Integer) As Integer End Function -Public Function EgtGetFirstPartInRawPart(ByVal nRawId As Integer) As Integer +Public Function EgtGetFirstPartInRawPart(nRawId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetFirstPartInRawPart_32(nRawId) Else @@ -5874,12 +5942,12 @@ Public Function EgtGetFirstPartInRawPart(ByVal nRawId As Integer) As Integer End Function -Private Function EgtGetNextPartInRawPart_32(ByVal nPartId As Integer) As Integer +Private Function EgtGetNextPartInRawPart_32(nPartId As Integer) As Integer End Function -Private Function EgtGetNextPartInRawPart_64(ByVal nPartId As Integer) As Integer +Private Function EgtGetNextPartInRawPart_64(nPartId As Integer) As Integer End Function -Public Function EgtGetNextPartInRawPart(ByVal nPartId As Integer) As Integer +Public Function EgtGetNextPartInRawPart(nPartId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetNextPartInRawPart_32(nPartId) Else @@ -5888,12 +5956,12 @@ Public Function EgtGetNextPartInRawPart(ByVal nPartId As Integer) As Integer End Function -Private Function EgtAddPartToRawPart_32(ByVal nPartId As Integer, ByRef ptPos As Point3d, ByVal nRawId As Integer) As Boolean +Private Function EgtAddPartToRawPart_32(nPartId As Integer, ByRef ptPos As Point3d, nRawId As Integer) As Boolean End Function -Private Function EgtAddPartToRawPart_64(ByVal nPartId As Integer, ByRef ptPos As Point3d, ByVal nRawId As Integer) As Boolean +Private Function EgtAddPartToRawPart_64(nPartId As Integer, ByRef ptPos As Point3d, nRawId As Integer) As Boolean End Function -Public Function EgtAddPartToRawPart(ByVal nPartId As Integer, ByRef ptPos As Point3d, ByVal nRawId As Integer) As Boolean +Public Function EgtAddPartToRawPart(nPartId As Integer, ByRef ptPos As Point3d, nRawId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtAddPartToRawPart_32(nPartId, ptPos, nRawId) Else @@ -5902,12 +5970,12 @@ Public Function EgtAddPartToRawPart(ByVal nPartId As Integer, ByRef ptPos As Poi End Function -Private Function EgtRemovePartFromRawPart_32(ByVal nPartId As Integer) As Boolean +Private Function EgtRemovePartFromRawPart_32(nPartId As Integer) As Boolean End Function -Private Function EgtRemovePartFromRawPart_64(ByVal nPartId As Integer) As Boolean +Private Function EgtRemovePartFromRawPart_64(nPartId As Integer) As Boolean End Function -Public Function EgtRemovePartFromRawPart(ByVal nPartId As Integer) As Boolean +Public Function EgtRemovePartFromRawPart(nPartId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRemovePartFromRawPart_32(nPartId) Else @@ -5916,12 +5984,12 @@ Public Function EgtRemovePartFromRawPart(ByVal nPartId As Integer) As Boolean End Function -Private Function EgtSetTable_32(ByVal sTable As String) As Boolean +Private Function EgtSetTable_32(sTable As String) As Boolean End Function -Private Function EgtSetTable_64(ByVal sTable As String) As Boolean +Private Function EgtSetTable_64(sTable As String) As Boolean End Function -Public Function EgtSetTable(ByVal sTable As String) As Boolean +Public Function EgtSetTable(sTable As String) As Boolean If IntPtr.Size = 4 Then Return EgtSetTable_32(sTable) Else @@ -5930,12 +5998,12 @@ Public Function EgtSetTable(ByVal sTable As String) As Boolean End Function -Private Function EgtGetTableRef_32(ByVal nInd As Integer, ByRef ptPos As Point3d) As Boolean +Private Function EgtGetTableRef_32(nInd As Integer, ByRef ptPos As Point3d) As Boolean End Function -Private Function EgtGetTableRef_64(ByVal nInd As Integer, ByRef ptPos As Point3d) As Boolean +Private Function EgtGetTableRef_64(nInd As Integer, ByRef ptPos As Point3d) As Boolean End Function -Public Function EgtGetTableRef(ByVal nInd As Integer, ByRef ptPos As Point3d) As Boolean +Public Function EgtGetTableRef(nInd As Integer, ByRef ptPos As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtGetTableRef_32(nInd, ptPos) Else @@ -5944,12 +6012,12 @@ Public Function EgtGetTableRef(ByVal nInd As Integer, ByRef ptPos As Point3d) As End Function -Private Function EgtGetTableArea_32(ByVal nInd As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean +Private Function EgtGetTableArea_32(nInd As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean End Function -Private Function EgtGetTableArea_64(ByVal nInd As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean +Private Function EgtGetTableArea_64(nInd As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean End Function -Public Function EgtGetTableArea(ByVal nInd As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean +Public Function EgtGetTableArea(nInd As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtGetTableArea_32(nInd, ptMin, ptMax) Else @@ -5958,12 +6026,12 @@ Public Function EgtGetTableArea(ByVal nInd As Integer, ByRef ptMin As Point3d, B End Function -Private Function EgtShowOnlyTable_32(ByVal bVal As Boolean) As Boolean +Private Function EgtShowOnlyTable_32(bVal As Boolean) As Boolean End Function -Private Function EgtShowOnlyTable_64(ByVal bVal As Boolean) As Boolean +Private Function EgtShowOnlyTable_64(bVal As Boolean) As Boolean End Function -Public Function EgtShowOnlyTable(ByVal bVal As Boolean) As Boolean +Public Function EgtShowOnlyTable(bVal As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtShowOnlyTable_32(bVal) Else @@ -5973,10 +6041,10 @@ End Function ' Tools Database -Private Function EgtTdbGetToolNewName_32(ByVal sName As String, ByRef psNewName As IntPtr) As Boolean +Private Function EgtTdbGetToolNewName_32(sName As String, ByRef psNewName As IntPtr) As Boolean End Function -Private Function EgtTdbGetToolNewName_64(ByVal sName As String, ByRef psNewName As IntPtr) As Boolean +Private Function EgtTdbGetToolNewName_64(sName As String, ByRef psNewName As IntPtr) As Boolean End Function Public Function EgtTdbGetToolNewName(ByRef sName As String) As Boolean Dim psNewName As IntPtr @@ -5996,12 +6064,12 @@ Public Function EgtTdbGetToolNewName(ByRef sName As String) As Boolean End Function -Private Function EgtTdbAddTool_32(ByVal sName As String, ByVal nType As Integer) As Boolean +Private Function EgtTdbAddTool_32(sName As String, nType As Integer) As Boolean End Function -Private Function EgtTdbAddTool_64(ByVal sName As String, ByVal nType As Integer) As Boolean +Private Function EgtTdbAddTool_64(sName As String, nType As Integer) As Boolean End Function -Public Function EgtTdbAddTool(ByVal sName As String, ByVal nType As Integer) As Boolean +Public Function EgtTdbAddTool(sName As String, nType As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtTdbAddTool_32(sName, nType) Else @@ -6010,12 +6078,12 @@ Public Function EgtTdbAddTool(ByVal sName As String, ByVal nType As Integer) As End Function -Private Function EgtTdbCopyTool_32(ByVal sSource As String, ByVal sName As String) As Boolean +Private Function EgtTdbCopyTool_32(sSource As String, sName As String) As Boolean End Function -Private Function EgtTdbCopyTool_64(ByVal sSource As String, ByVal sName As String) As Boolean +Private Function EgtTdbCopyTool_64(sSource As String, sName As String) As Boolean End Function -Public Function EgtTdbCopyTool(ByVal sSource As String, ByVal sName As String) As Boolean +Public Function EgtTdbCopyTool(sSource As String, sName As String) As Boolean If IntPtr.Size = 4 Then Return EgtTdbCopyTool_32(sSource, sName) Else @@ -6024,12 +6092,12 @@ Public Function EgtTdbCopyTool(ByVal sSource As String, ByVal sName As String) A End Function -Private Function EgtTdbRemoveTool_32(ByVal sName As String) As Boolean +Private Function EgtTdbRemoveTool_32(sName As String) As Boolean End Function -Private Function EgtTdbRemoveTool_64(ByVal sName As String) As Boolean +Private Function EgtTdbRemoveTool_64(sName As String) As Boolean End Function -Public Function EgtTdbRemoveTool(ByVal sName As String) As Boolean +Public Function EgtTdbRemoveTool(sName As String) As Boolean If IntPtr.Size = 4 Then Return EgtTdbRemoveTool_32(sName) Else @@ -6038,12 +6106,12 @@ Public Function EgtTdbRemoveTool(ByVal sName As String) As Boolean End Function -Private Function EgtTdbGetFirstTool_32(ByVal nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean +Private Function EgtTdbGetFirstTool_32(nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean End Function -Private Function EgtTdbGetFirstTool_64(ByVal nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean +Private Function EgtTdbGetFirstTool_64(nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean End Function -Public Function EgtTdbGetFirstTool(ByVal nFamily As Integer, ByRef sName As String, ByRef nType As Integer) As Boolean +Public Function EgtTdbGetFirstTool(nFamily As Integer, ByRef sName As String, ByRef nType As Integer) As Boolean Dim psName As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -6061,12 +6129,12 @@ Public Function EgtTdbGetFirstTool(ByVal nFamily As Integer, ByRef sName As Stri End Function -Private Function EgtTdbGetNextTool_32(ByVal nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean +Private Function EgtTdbGetNextTool_32(nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean End Function -Private Function EgtTdbGetNextTool_64(ByVal nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean +Private Function EgtTdbGetNextTool_64(nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean End Function -Public Function EgtTdbGetNextTool(ByVal nFamily As Integer, ByRef sName As String, ByRef nType As Integer) As Boolean +Public Function EgtTdbGetNextTool(nFamily As Integer, ByRef sName As String, ByRef nType As Integer) As Boolean Dim psName As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -6084,12 +6152,12 @@ Public Function EgtTdbGetNextTool(ByVal nFamily As Integer, ByRef sName As Strin End Function -Private Function EgtTdbSetCurrTool_32(ByVal sName As String) As Boolean +Private Function EgtTdbSetCurrTool_32(sName As String) As Boolean End Function -Private Function EgtTdbSetCurrTool_64(ByVal sName As String) As Boolean +Private Function EgtTdbSetCurrTool_64(sName As String) As Boolean End Function -Public Function EgtTdbSetCurrTool(ByVal sName As String) As Boolean +Public Function EgtTdbSetCurrTool(sName As String) As Boolean If IntPtr.Size = 4 Then Return EgtTdbSetCurrTool_32(sName) Else @@ -6126,12 +6194,12 @@ Public Function EgtTdbIsCurrToolModified() As Boolean End Function -Private Function EgtTdbSetCurrToolParamBool_32(ByVal nType As Integer, ByVal bVal As Boolean) As Boolean +Private Function EgtTdbSetCurrToolParamBool_32(nType As Integer, bVal As Boolean) As Boolean End Function -Private Function EgtTdbSetCurrToolParamBool_64(ByVal nType As Integer, ByVal bVal As Boolean) As Boolean +Private Function EgtTdbSetCurrToolParamBool_64(nType As Integer, bVal As Boolean) As Boolean End Function -Public Function EgtTdbSetCurrToolParam(ByVal nType As Integer, ByVal bVal As Boolean) As Boolean +Public Function EgtTdbSetCurrToolParam(nType As Integer, bVal As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtTdbSetCurrToolParamBool_32(nType, bVal) Else @@ -6140,12 +6208,12 @@ Public Function EgtTdbSetCurrToolParam(ByVal nType As Integer, ByVal bVal As Boo End Function -Private Function EgtTdbSetCurrToolParamInt_32(ByVal nType As Integer, ByVal nVal As Integer) As Boolean +Private Function EgtTdbSetCurrToolParamInt_32(nType As Integer, nVal As Integer) As Boolean End Function -Private Function EgtTdbSetCurrToolParamInt_64(ByVal nType As Integer, ByVal nVal As Integer) As Boolean +Private Function EgtTdbSetCurrToolParamInt_64(nType As Integer, nVal As Integer) As Boolean End Function -Public Function EgtTdbSetCurrToolParam(ByVal nType As Integer, ByVal nVal As Integer) As Boolean +Public Function EgtTdbSetCurrToolParam(nType As Integer, nVal As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtTdbSetCurrToolParamInt_32(nType, nVal) Else @@ -6154,12 +6222,12 @@ Public Function EgtTdbSetCurrToolParam(ByVal nType As Integer, ByVal nVal As Int End Function -Private Function EgtTdbSetCurrToolParamDouble_32(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Private Function EgtTdbSetCurrToolParamDouble_32(nType As Integer, dVal As Double) As Boolean End Function -Private Function EgtTdbSetCurrToolParamDouble_64(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Private Function EgtTdbSetCurrToolParamDouble_64(nType As Integer, dVal As Double) As Boolean End Function -Public Function EgtTdbSetCurrToolParam(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Public Function EgtTdbSetCurrToolParam(nType As Integer, dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtTdbSetCurrToolParamDouble_32(nType, dVal) Else @@ -6168,12 +6236,12 @@ Public Function EgtTdbSetCurrToolParam(ByVal nType As Integer, ByVal dVal As Dou End Function -Private Function EgtTdbSetCurrToolParamString_32(ByVal nType As Integer, ByVal sVal As String) As Boolean +Private Function EgtTdbSetCurrToolParamString_32(nType As Integer, sVal As String) As Boolean End Function -Private Function EgtTdbSetCurrToolParamString_64(ByVal nType As Integer, ByVal sVal As String) As Boolean +Private Function EgtTdbSetCurrToolParamString_64(nType As Integer, sVal As String) As Boolean End Function -Public Function EgtTdbSetCurrToolParam(ByVal nType As Integer, ByVal sVal As String) As Boolean +Public Function EgtTdbSetCurrToolParam(nType As Integer, sVal As String) As Boolean If IntPtr.Size = 4 Then Return EgtTdbSetCurrToolParamString_32(nType, sVal) Else @@ -6182,12 +6250,12 @@ Public Function EgtTdbSetCurrToolParam(ByVal nType As Integer, ByVal sVal As Str End Function -Private Function EgtTdbGetCurrToolParamBool_32(ByVal nType As Integer, ByRef bVal As Boolean) As Boolean +Private Function EgtTdbGetCurrToolParamBool_32(nType As Integer, ByRef bVal As Boolean) As Boolean End Function -Private Function EgtTdbGetCurrToolParamBool_64(ByVal nType As Integer, ByRef bVal As Boolean) As Boolean +Private Function EgtTdbGetCurrToolParamBool_64(nType As Integer, ByRef bVal As Boolean) As Boolean End Function -Public Function EgtTdbGetCurrToolParam(ByVal nType As Integer, ByRef bVal As Boolean) As Boolean +Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef bVal As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtTdbGetCurrToolParamBool_32(nType, bVal) Else @@ -6196,12 +6264,12 @@ Public Function EgtTdbGetCurrToolParam(ByVal nType As Integer, ByRef bVal As Boo End Function -Private Function EgtTdbGetCurrToolParamInt_32(ByVal nType As Integer, ByRef nVal As Integer) As Boolean +Private Function EgtTdbGetCurrToolParamInt_32(nType As Integer, ByRef nVal As Integer) As Boolean End Function -Private Function EgtTdbGetCurrToolParamInt_64(ByVal nType As Integer, ByRef nVal As Integer) As Boolean +Private Function EgtTdbGetCurrToolParamInt_64(nType As Integer, ByRef nVal As Integer) As Boolean End Function -Public Function EgtTdbGetCurrToolParam(ByVal nType As Integer, ByRef nVal As Integer) As Boolean +Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef nVal As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtTdbGetCurrToolParamInt_32(nType, nVal) Else @@ -6210,12 +6278,12 @@ Public Function EgtTdbGetCurrToolParam(ByVal nType As Integer, ByRef nVal As Int End Function -Private Function EgtTdbGetCurrToolParamDouble_32(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Private Function EgtTdbGetCurrToolParamDouble_32(nType As Integer, ByRef dVal As Double) As Boolean End Function -Private Function EgtTdbGetCurrToolParamDouble_64(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Private Function EgtTdbGetCurrToolParamDouble_64(nType As Integer, ByRef dVal As Double) As Boolean End Function -Public Function EgtTdbGetCurrToolParam(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtTdbGetCurrToolParamDouble_32(nType, dVal) Else @@ -6224,12 +6292,12 @@ Public Function EgtTdbGetCurrToolParam(ByVal nType As Integer, ByRef dVal As Dou End Function -Private Function EgtTdbGetCurrToolParamString_32(ByVal nType As Integer, ByRef psVal As IntPtr) As Boolean +Private Function EgtTdbGetCurrToolParamString_32(nType As Integer, ByRef psVal As IntPtr) As Boolean End Function -Private Function EgtTdbGetCurrToolParamString_64(ByVal nType As Integer, ByRef psVal As IntPtr) As Boolean +Private Function EgtTdbGetCurrToolParamString_64(nType As Integer, ByRef psVal As IntPtr) As Boolean End Function -Public Function EgtTdbGetCurrToolParam(ByVal nType As Integer, ByRef sVal As String) As Boolean +Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef sVal As String) As Boolean Dim psVal As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -6308,10 +6376,10 @@ End Function ' Machinings Database -Private Function EgtMdbGetMachiningNewName_32(ByVal sName As String, ByRef psNewName As IntPtr) As Boolean +Private Function EgtMdbGetMachiningNewName_32(sName As String, ByRef psNewName As IntPtr) As Boolean End Function -Private Function EgtMdbGetMachiningNewName_64(ByVal sName As String, ByRef psNewName As IntPtr) As Boolean +Private Function EgtMdbGetMachiningNewName_64(sName As String, ByRef psNewName As IntPtr) As Boolean End Function Public Function EgtMdbGetMachiningNewName(ByRef sName As String) As Boolean Dim psNewName As IntPtr @@ -6331,12 +6399,12 @@ Public Function EgtMdbGetMachiningNewName(ByRef sName As String) As Boolean End Function -Private Function EgtMdbAddMachining_32(ByVal sName As String, ByVal nType As Integer) As Boolean +Private Function EgtMdbAddMachining_32(sName As String, nType As Integer) As Boolean End Function -Private Function EgtMdbAddMachining_64(ByVal sName As String, ByVal nType As Integer) As Boolean +Private Function EgtMdbAddMachining_64(sName As String, nType As Integer) As Boolean End Function -Public Function EgtMdbAddMachining(ByVal sName As String, ByVal nType As Integer) As Boolean +Public Function EgtMdbAddMachining(sName As String, nType As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtMdbAddMachining_32(sName, nType) Else @@ -6345,12 +6413,12 @@ Public Function EgtMdbAddMachining(ByVal sName As String, ByVal nType As Integer End Function -Private Function EgtMdbCopyMachining_32(ByVal sSource As String, ByVal sName As String) As Boolean +Private Function EgtMdbCopyMachining_32(sSource As String, sName As String) As Boolean End Function -Private Function EgtMdbCopyMachining_64(ByVal sSource As String, ByVal sName As String) As Boolean +Private Function EgtMdbCopyMachining_64(sSource As String, sName As String) As Boolean End Function -Public Function EgtMdbCopyMachining(ByVal sSource As String, ByVal sName As String) As Boolean +Public Function EgtMdbCopyMachining(sSource As String, sName As String) As Boolean If IntPtr.Size = 4 Then Return EgtMdbCopyMachining_32(sSource, sName) Else @@ -6359,12 +6427,12 @@ Public Function EgtMdbCopyMachining(ByVal sSource As String, ByVal sName As Stri End Function -Private Function EgtMdbRemoveMachining_32(ByVal sName As String) As Boolean +Private Function EgtMdbRemoveMachining_32(sName As String) As Boolean End Function -Private Function EgtMdbRemoveMachining_64(ByVal sName As String) As Boolean +Private Function EgtMdbRemoveMachining_64(sName As String) As Boolean End Function -Public Function EgtMdbRemoveMachining(ByVal sName As String) As Boolean +Public Function EgtMdbRemoveMachining(sName As String) As Boolean If IntPtr.Size = 4 Then Return EgtMdbRemoveMachining_32(sName) Else @@ -6373,12 +6441,12 @@ Public Function EgtMdbRemoveMachining(ByVal sName As String) As Boolean End Function -Private Function EgtMdbGetFirstMachining_32(ByVal nType As Integer, ByRef psName As IntPtr) As Boolean +Private Function EgtMdbGetFirstMachining_32(nType As Integer, ByRef psName As IntPtr) As Boolean End Function -Private Function EgtMdbGetFirstMachining_64(ByVal nType As Integer, ByRef psName As IntPtr) As Boolean +Private Function EgtMdbGetFirstMachining_64(nType As Integer, ByRef psName As IntPtr) As Boolean End Function -Public Function EgtMdbGetFirstMachining(ByVal nType As Integer, ByRef sName As String) As Boolean +Public Function EgtMdbGetFirstMachining(nType As Integer, ByRef sName As String) As Boolean Dim psName As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -6396,12 +6464,12 @@ Public Function EgtMdbGetFirstMachining(ByVal nType As Integer, ByRef sName As S End Function -Private Function EgtMdbGetNextMachining_32(ByVal nType As Integer, ByRef psName As IntPtr) As Boolean +Private Function EgtMdbGetNextMachining_32(nType As Integer, ByRef psName As IntPtr) As Boolean End Function -Private Function EgtMdbGetNextMachining_64(ByVal nType As Integer, ByRef psName As IntPtr) As Boolean +Private Function EgtMdbGetNextMachining_64(nType As Integer, ByRef psName As IntPtr) As Boolean End Function -Public Function EgtMdbGetNextMachining(ByVal nType As Integer, ByRef sName As String) As Boolean +Public Function EgtMdbGetNextMachining(nType As Integer, ByRef sName As String) As Boolean Dim psName As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -6419,12 +6487,12 @@ Public Function EgtMdbGetNextMachining(ByVal nType As Integer, ByRef sName As St End Function -Private Function EgtMdbSetCurrMachining_32(ByVal sName As String) As Boolean +Private Function EgtMdbSetCurrMachining_32(sName As String) As Boolean End Function -Private Function EgtMdbSetCurrMachining_64(ByVal sName As String) As Boolean +Private Function EgtMdbSetCurrMachining_64(sName As String) As Boolean End Function -Public Function EgtMdbSetCurrMachining(ByVal sName As String) As Boolean +Public Function EgtMdbSetCurrMachining(sName As String) As Boolean If IntPtr.Size = 4 Then Return EgtMdbSetCurrMachining_32(sName) Else @@ -6461,12 +6529,12 @@ Public Function EgtMdbIsCurrMachiningModified() As Boolean End Function -Private Function EgtMdbSetCurrMachiningParamBool_32(ByVal nType As Integer, ByVal nVal As Boolean) As Boolean +Private Function EgtMdbSetCurrMachiningParamBool_32(nType As Integer, nVal As Boolean) As Boolean End Function -Private Function EgtMdbSetCurrMachiningParamBool_64(ByVal nType As Integer, ByVal nVal As Boolean) As Boolean +Private Function EgtMdbSetCurrMachiningParamBool_64(nType As Integer, nVal As Boolean) As Boolean End Function -Public Function EgtMdbSetCurrMachiningParam(ByVal nType As Integer, ByVal nVal As Boolean) As Boolean +Public Function EgtMdbSetCurrMachiningParam(nType As Integer, nVal As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtMdbSetCurrMachiningParamBool_32(nType, nVal) Else @@ -6475,12 +6543,12 @@ Public Function EgtMdbSetCurrMachiningParam(ByVal nType As Integer, ByVal nVal A End Function -Private Function EgtMdbSetCurrMachiningParamInt_32(ByVal nType As Integer, ByVal nVal As Integer) As Boolean +Private Function EgtMdbSetCurrMachiningParamInt_32(nType As Integer, nVal As Integer) As Boolean End Function -Private Function EgtMdbSetCurrMachiningParamInt_64(ByVal nType As Integer, ByVal nVal As Integer) As Boolean +Private Function EgtMdbSetCurrMachiningParamInt_64(nType As Integer, nVal As Integer) As Boolean End Function -Public Function EgtMdbSetCurrMachiningParam(ByVal nType As Integer, ByVal nVal As Integer) As Boolean +Public Function EgtMdbSetCurrMachiningParam(nType As Integer, nVal As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtMdbSetCurrMachiningParamInt_32(nType, nVal) Else @@ -6489,12 +6557,12 @@ Public Function EgtMdbSetCurrMachiningParam(ByVal nType As Integer, ByVal nVal A End Function -Private Function EgtMdbSetCurrMachiningParamDouble_32(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Private Function EgtMdbSetCurrMachiningParamDouble_32(nType As Integer, dVal As Double) As Boolean End Function -Private Function EgtMdbSetCurrMachiningParamDouble_64(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Private Function EgtMdbSetCurrMachiningParamDouble_64(nType As Integer, dVal As Double) As Boolean End Function -Public Function EgtMdbSetCurrMachiningParam(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Public Function EgtMdbSetCurrMachiningParam(nType As Integer, dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtMdbSetCurrMachiningParamDouble_32(nType, dVal) Else @@ -6503,12 +6571,12 @@ Public Function EgtMdbSetCurrMachiningParam(ByVal nType As Integer, ByVal dVal A End Function -Private Function EgtMdbSetCurrMachiningParamString_32(ByVal nType As Integer, ByVal sVal As String) As Boolean +Private Function EgtMdbSetCurrMachiningParamString_32(nType As Integer, sVal As String) As Boolean End Function -Private Function EgtMdbSetCurrMachiningParamString_64(ByVal nType As Integer, ByVal sVal As String) As Boolean +Private Function EgtMdbSetCurrMachiningParamString_64(nType As Integer, sVal As String) As Boolean End Function -Public Function EgtMdbSetCurrMachiningParam(ByVal nType As Integer, ByVal sVal As String) As Boolean +Public Function EgtMdbSetCurrMachiningParam(nType As Integer, sVal As String) As Boolean If IntPtr.Size = 4 Then Return EgtMdbSetCurrMachiningParamString_32(nType, sVal) Else @@ -6517,12 +6585,12 @@ Public Function EgtMdbSetCurrMachiningParam(ByVal nType As Integer, ByVal sVal A End Function -Private Function EgtMdbGetCurrMachiningParamBool_32(ByVal nType As Integer, ByRef bVal As Boolean) As Boolean +Private Function EgtMdbGetCurrMachiningParamBool_32(nType As Integer, ByRef bVal As Boolean) As Boolean End Function -Private Function EgtMdbGetCurrMachiningParamBool_64(ByVal nType As Integer, ByRef bVal As Boolean) As Boolean +Private Function EgtMdbGetCurrMachiningParamBool_64(nType As Integer, ByRef bVal As Boolean) As Boolean End Function -Public Function EgtMdbGetCurrMachiningParam(ByVal nType As Integer, ByRef bVal As Boolean) As Boolean +Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef bVal As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtMdbGetCurrMachiningParamBool_32(nType, bVal) Else @@ -6531,12 +6599,12 @@ Public Function EgtMdbGetCurrMachiningParam(ByVal nType As Integer, ByRef bVal A End Function -Private Function EgtMdbGetCurrMachiningParamInt_32(ByVal nType As Integer, ByRef nVal As Integer) As Boolean +Private Function EgtMdbGetCurrMachiningParamInt_32(nType As Integer, ByRef nVal As Integer) As Boolean End Function -Private Function EgtMdbGetCurrMachiningParamInt_64(ByVal nType As Integer, ByRef nVal As Integer) As Boolean +Private Function EgtMdbGetCurrMachiningParamInt_64(nType As Integer, ByRef nVal As Integer) As Boolean End Function -Public Function EgtMdbGetCurrMachiningParam(ByVal nType As Integer, ByRef nVal As Integer) As Boolean +Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef nVal As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtMdbGetCurrMachiningParamInt_32(nType, nVal) Else @@ -6545,12 +6613,12 @@ Public Function EgtMdbGetCurrMachiningParam(ByVal nType As Integer, ByRef nVal A End Function -Private Function EgtMdbGetCurrMachiningParamDouble_32(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Private Function EgtMdbGetCurrMachiningParamDouble_32(nType As Integer, ByRef dVal As Double) As Boolean End Function -Private Function EgtMdbGetCurrMachiningParamDouble_64(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Private Function EgtMdbGetCurrMachiningParamDouble_64(nType As Integer, ByRef dVal As Double) As Boolean End Function -Public Function EgtMdbGetCurrMachiningParam(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtMdbGetCurrMachiningParamDouble_32(nType, dVal) Else @@ -6559,12 +6627,12 @@ Public Function EgtMdbGetCurrMachiningParam(ByVal nType As Integer, ByRef dVal A End Function -Private Function EgtMdbGetCurrMachiningParamString_32(ByVal nType As Integer, ByRef psVal As IntPtr) As Boolean +Private Function EgtMdbGetCurrMachiningParamString_32(nType As Integer, ByRef psVal As IntPtr) As Boolean End Function -Private Function EgtMdbGetCurrMachiningParamString_64(ByVal nType As Integer, ByRef psVal As IntPtr) As Boolean +Private Function EgtMdbGetCurrMachiningParamString_64(nType As Integer, ByRef psVal As IntPtr) As Boolean End Function -Public Function EgtMdbGetCurrMachiningParam(ByVal nType As Integer, ByRef sVal As String) As Boolean +Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef sVal As String) As Boolean Dim psVal As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -6582,12 +6650,12 @@ Public Function EgtMdbGetCurrMachiningParam(ByVal nType As Integer, ByRef sVal A End Function -Private Function EgtMdbSetGeneralParamDouble_32(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Private Function EgtMdbSetGeneralParamDouble_32(nType As Integer, dVal As Double) As Boolean End Function -Private Function EgtMdbSetGeneralParamDouble_64(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Private Function EgtMdbSetGeneralParamDouble_64(nType As Integer, dVal As Double) As Boolean End Function -Public Function EgtMdbSetGeneralParam(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Public Function EgtMdbSetGeneralParam(nType As Integer, dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtMdbSetGeneralParamDouble_32(nType, dVal) Else @@ -6596,12 +6664,12 @@ Public Function EgtMdbSetGeneralParam(ByVal nType As Integer, ByVal dVal As Doub End Function -Private Function EgtMdbGetGeneralParamDouble_32(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Private Function EgtMdbGetGeneralParamDouble_32(nType As Integer, ByRef dVal As Double) As Boolean End Function -Private Function EgtMdbGetGeneralParamDouble_64(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Private Function EgtMdbGetGeneralParamDouble_64(nType As Integer, ByRef dVal As Double) As Boolean End Function -Public Function EgtMdbGetGeneralParam(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Public Function EgtMdbGetGeneralParam(nType As Integer, ByRef dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtMdbGetGeneralParamDouble_32(nType, dVal) Else @@ -6662,12 +6730,12 @@ Public Function EgtGetFirstOperation() As Integer End Function -Private Function EgtGetNextOperation_32(ByVal nId As Integer) As Integer +Private Function EgtGetNextOperation_32(nId As Integer) As Integer End Function -Private Function EgtGetNextOperation_64(ByVal nId As Integer) As Integer +Private Function EgtGetNextOperation_64(nId As Integer) As Integer End Function -Public Function EgtGetNextOperation(ByVal nId As Integer) As Integer +Public Function EgtGetNextOperation(nId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetNextOperation_32(nId) Else @@ -6676,12 +6744,12 @@ Public Function EgtGetNextOperation(ByVal nId As Integer) As Integer End Function -Private Function EgtGetOperationType_32(ByVal nId As Integer) As Integer +Private Function EgtGetOperationType_32(nId As Integer) As Integer End Function -Private Function EgtGetOperationType_64(ByVal nId As Integer) As Integer +Private Function EgtGetOperationType_64(nId As Integer) As Integer End Function -Public Function EgtGetOperationType(ByVal nId As Integer) As Integer +Public Function EgtGetOperationType(nId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetOperationType_32(nId) Else @@ -6690,12 +6758,12 @@ Public Function EgtGetOperationType(ByVal nId As Integer) As Integer End Function -Private Function EgtGetOperationPhase_32(ByVal nId As Integer) As Integer +Private Function EgtGetOperationPhase_32(nId As Integer) As Integer End Function -Private Function EgtGetOperationPhase_64(ByVal nId As Integer) As Integer +Private Function EgtGetOperationPhase_64(nId As Integer) As Integer End Function -Public Function EgtGetOperationPhase(ByVal nId As Integer) As Integer +Public Function EgtGetOperationPhase(nId As Integer) As Integer If IntPtr.Size = 4 Then Return EgtGetOperationPhase_32(nId) Else @@ -6704,12 +6772,12 @@ Public Function EgtGetOperationPhase(ByVal nId As Integer) As Integer End Function -Private Function EgtRemoveOperation_32(ByVal nId As Integer) As Boolean +Private Function EgtRemoveOperation_32(nId As Integer) As Boolean End Function -Private Function EgtRemoveOperation_64(ByVal nId As Integer) As Boolean +Private Function EgtRemoveOperation_64(nId As Integer) As Boolean End Function -Public Function EgtRemoveOperation(ByVal nId As Integer) As Boolean +Public Function EgtRemoveOperation(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRemoveOperation_32(nId) Else @@ -6718,12 +6786,12 @@ Public Function EgtRemoveOperation(ByVal nId As Integer) As Boolean End Function -Private Function EgtRemoveAllPhaseOperations_32(ByVal nPhase As Integer) As Boolean +Private Function EgtRemoveAllPhaseOperations_32(nPhase As Integer) As Boolean End Function -Private Function EgtRemoveAllPhaseOperations_64(ByVal nPhase As Integer) As Boolean +Private Function EgtRemoveAllPhaseOperations_64(nPhase As Integer) As Boolean End Function -Public Function EgtRemoveAllPhaseOperations(ByVal nPhase As Integer) As Boolean +Public Function EgtRemoveAllPhaseOperations(nPhase As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtRemoveAllPhaseOperations_32(nPhase) Else @@ -6746,12 +6814,12 @@ Public Function EgtRemoveAllOperations() As Boolean End Function -Private Function EgtSetOperationMode_32(ByVal nId As Integer, ByVal bActive As Boolean) As Boolean +Private Function EgtSetOperationMode_32(nId As Integer, bActive As Boolean) As Boolean End Function -Private Function EgtSetOperationMode_64(ByVal nId As Integer, ByVal bActive As Boolean) As Boolean +Private Function EgtSetOperationMode_64(nId As Integer, bActive As Boolean) As Boolean End Function -Public Function EgtSetOperationMode(ByVal nId As Integer, ByVal bActive As Boolean) As Boolean +Public Function EgtSetOperationMode(nId As Integer, bActive As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtSetOperationMode_32(nId, bActive) Else @@ -6760,12 +6828,12 @@ Public Function EgtSetOperationMode(ByVal nId As Integer, ByVal bActive As Boole End Function -Private Function EgtGetOperationMode_32(ByVal nId As Integer) As Boolean +Private Function EgtGetOperationMode_32(nId As Integer) As Boolean End Function -Private Function EgtGetOperationMode_64(ByVal nId As Integer) As Boolean +Private Function EgtGetOperationMode_64(nId As Integer) As Boolean End Function -Public Function EgtGetOperationMode(ByVal nId As Integer) As Boolean +Public Function EgtGetOperationMode(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetOperationMode_32(nId) Else @@ -6774,12 +6842,12 @@ Public Function EgtGetOperationMode(ByVal nId As Integer) As Boolean End Function -Private Function EgtSetAllOperationsMode_32(ByVal bActive As Boolean) As Boolean +Private Function EgtSetAllOperationsMode_32(bActive As Boolean) As Boolean End Function -Private Function EgtSetAllOperationsMode_64(ByVal bActive As Boolean) As Boolean +Private Function EgtSetAllOperationsMode_64(bActive As Boolean) As Boolean End Function -Public Function EgtSetAllOperationsMode(ByVal bActive As Boolean) As Boolean +Public Function EgtSetAllOperationsMode(bActive As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtSetAllOperationsMode_32(bActive) Else @@ -6788,12 +6856,12 @@ Public Function EgtSetAllOperationsMode(ByVal bActive As Boolean) As Boolean End Function -Private Function EgtSetOperationStatus_32(ByVal nId As Integer, ByVal bShow As Boolean) As Boolean +Private Function EgtSetOperationStatus_32(nId As Integer, bShow As Boolean) As Boolean End Function -Private Function EgtSetOperationStatus_64(ByVal nId As Integer, ByVal bShow As Boolean) As Boolean +Private Function EgtSetOperationStatus_64(nId As Integer, bShow As Boolean) As Boolean End Function -Public Function EgtSetOperationStatus(ByVal nId As Integer, ByVal bShow As Boolean) As Boolean +Public Function EgtSetOperationStatus(nId As Integer, bShow As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtSetOperationStatus_32(nId, bShow) Else @@ -6802,12 +6870,12 @@ Public Function EgtSetOperationStatus(ByVal nId As Integer, ByVal bShow As Boole End Function -Private Function EgtGetOperationStatus_32(ByVal nId As Integer) As Boolean +Private Function EgtGetOperationStatus_32(nId As Integer) As Boolean End Function -Private Function EgtGetOperationStatus_64(ByVal nId As Integer) As Boolean +Private Function EgtGetOperationStatus_64(nId As Integer) As Boolean End Function -Public Function EgtGetOperationStatus(ByVal nId As Integer) As Boolean +Public Function EgtGetOperationStatus(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetOperationStatus_32(nId) Else @@ -6816,12 +6884,12 @@ Public Function EgtGetOperationStatus(ByVal nId As Integer) As Boolean End Function -Private Function EgtSetAllOperationsStatus_32(ByVal bShow As Boolean) As Boolean +Private Function EgtSetAllOperationsStatus_32(bShow As Boolean) As Boolean End Function -Private Function EgtSetAllOperationsStatus_64(ByVal bShow As Boolean) As Boolean +Private Function EgtSetAllOperationsStatus_64(bShow As Boolean) As Boolean End Function -Public Function EgtSetAllOperationsStatus(ByVal bShow As Boolean) As Boolean +Public Function EgtSetAllOperationsStatus(bShow As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtSetAllOperationsStatus_32(bShow) Else @@ -6859,12 +6927,12 @@ End Function ' Machinings -Private Function EgtSetCurrMachining_32(ByVal nId As Integer) As Boolean +Private Function EgtSetCurrMachining_32(nId As Integer) As Boolean End Function -Private Function EgtSetCurrMachining_64(ByVal nId As Integer) As Boolean +Private Function EgtSetCurrMachining_64(nId As Integer) As Boolean End Function -Public Function EgtSetCurrMachining(ByVal nId As Integer) As Boolean +Public Function EgtSetCurrMachining(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetCurrMachining_32(nId) Else @@ -6872,13 +6940,27 @@ Public Function EgtSetCurrMachining(ByVal nId As Integer) As Boolean End If End Function + +Private Function EgtGetCurrMachining_32() As Integer +End Function + +Private Function EgtGetCurrMachining_64() As Integer +End Function +Public Function EgtGetCurrMachining() As Integer + If IntPtr.Size = 4 Then + Return EgtGetCurrMachining_32() + Else + Return EgtGetCurrMachining_64() + End If +End Function + -Private Function EgtSetMachiningParamInt_32(ByVal nType As Integer, ByVal nVal As Integer) As Boolean +Private Function EgtSetMachiningParamInt_32(nType As Integer, nVal As Integer) As Boolean End Function -Private Function EgtSetMachiningParamInt_64(ByVal nType As Integer, ByVal nVal As Integer) As Boolean +Private Function EgtSetMachiningParamInt_64(nType As Integer, nVal As Integer) As Boolean End Function -Public Function EgtSetMachiningParam(ByVal nType As Integer, ByVal nVal As Integer) As Boolean +Public Function EgtSetMachiningParam(nType As Integer, nVal As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetMachiningParamInt_32(nType, nVal) Else @@ -6887,12 +6969,12 @@ Public Function EgtSetMachiningParam(ByVal nType As Integer, ByVal nVal As Integ End Function -Private Function EgtSetMachiningParamDouble_32(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Private Function EgtSetMachiningParamDouble_32(nType As Integer, dVal As Double) As Boolean End Function -Private Function EgtSetMachiningParamDouble_64(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Private Function EgtSetMachiningParamDouble_64(nType As Integer, dVal As Double) As Boolean End Function -Public Function EgtSetMachiningParam(ByVal nType As Integer, ByVal dVal As Double) As Boolean +Public Function EgtSetMachiningParam(nType As Integer, dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtSetMachiningParamDouble_32(nType, dVal) Else @@ -6901,12 +6983,12 @@ Public Function EgtSetMachiningParam(ByVal nType As Integer, ByVal dVal As Doubl End Function -Private Function EgtPreviewMachining_32(ByVal bRecalc As Boolean) As Boolean +Private Function EgtPreviewMachining_32(bRecalc As Boolean) As Boolean End Function -Private Function EgtPreviewMachining_64(ByVal bRecalc As Boolean) As Boolean +Private Function EgtPreviewMachining_64(bRecalc As Boolean) As Boolean End Function -Public Function EgtPreviewMachining(ByVal bRecalc As Boolean) As Boolean +Public Function EgtPreviewMachining(bRecalc As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtPreviewMachining_32(bRecalc) Else @@ -6914,13 +6996,27 @@ Public Function EgtPreviewMachining(ByVal bRecalc As Boolean) As Boolean End If End Function + +Private Function EgtApplyMachining_32(bRecalc As Boolean) As Boolean +End Function + +Private Function EgtApplyMachining_64(bRecalc As Boolean) As Boolean +End Function +Public Function EgtApplyMachining(bRecalc As Boolean) As Boolean + If IntPtr.Size = 4 Then + Return EgtApplyMachining_32(bRecalc) + Else + Return EgtApplyMachining_64(bRecalc) + End If +End Function + -Private Function EgtGetMachiningParamInt_32(ByVal nType As Integer, ByRef nVal As Integer) As Boolean +Private Function EgtGetMachiningParamInt_32(nType As Integer, ByRef nVal As Integer) As Boolean End Function -Private Function EgtGetMachiningParamInt_64(ByVal nType As Integer, ByRef nVal As Integer) As Boolean +Private Function EgtGetMachiningParamInt_64(nType As Integer, ByRef nVal As Integer) As Boolean End Function -Public Function EgtGetMachiningParam(ByVal nType As Integer, ByRef nVal As Integer) As Boolean +Public Function EgtGetMachiningParam(nType As Integer, ByRef nVal As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetMachiningParamInt_32(nType, nVal) Else @@ -6929,12 +7025,12 @@ Public Function EgtGetMachiningParam(ByVal nType As Integer, ByRef nVal As Integ End Function -Private Function EgtGetMachiningParamDouble_32(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Private Function EgtGetMachiningParamDouble_32(nType As Integer, ByRef dVal As Double) As Boolean End Function -Private Function EgtGetMachiningParamDouble_64(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Private Function EgtGetMachiningParamDouble_64(nType As Integer, ByRef dVal As Double) As Boolean End Function -Public Function EgtGetMachiningParam(ByVal nType As Integer, ByRef dVal As Double) As Boolean +Public Function EgtGetMachiningParam(nType As Integer, ByRef dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtGetMachiningParamDouble_32(nType, dVal) Else @@ -6942,6 +7038,20 @@ Public Function EgtGetMachiningParam(ByVal nType As Integer, ByRef dVal As Doubl End If End Function + +Private Function EgtGetMachiningGeometry_32(nInd As Integer, ByRef nId As Integer, ByRef nSub As Integer) As Boolean +End Function + +Private Function EgtGetMachiningGeometry_64(nInd As Integer, ByRef nId As Integer, ByRef nSub As Integer) As Boolean +End Function +Public Function EgtGetMachiningGeometry(nInd As Integer, ByRef nId As Integer, ByRef nSub As Integer) As Boolean + If IntPtr.Size = 4 Then + Return EgtGetMachiningGeometry_32(nInd, nId, nSub) + Else + Return EgtGetMachiningGeometry_64(nInd, nId, nSub) + End If +End Function + Private Function EgtIsMachiningEmpty_32() As Boolean End Function @@ -7000,12 +7110,12 @@ Public Function EgtSimHome() As Boolean End Function -Private Function EgtSimGetAxisInfoPos_32(ByVal nInd As Integer, ByRef psName As IntPtr, ByRef dVal As Double) As Boolean +Private Function EgtSimGetAxisInfoPos_32(nInd As Integer, ByRef psName As IntPtr, ByRef dVal As Double) As Boolean End Function -Private Function EgtSimGetAxisInfoPos_64(ByVal nInd As Integer, ByRef psName As IntPtr, ByRef dVal As Double) As Boolean +Private Function EgtSimGetAxisInfoPos_64(nInd As Integer, ByRef psName As IntPtr, ByRef dVal As Double) As Boolean End Function -Public Function EgtSimGetAxisInfoPos(ByVal nInd As Integer, ByRef sName As String, ByRef dVal As Double) As Boolean +Public Function EgtSimGetAxisInfoPos(nInd As Integer, ByRef sName As String, ByRef dVal As Double) As Boolean Dim psName As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -7060,12 +7170,12 @@ Public Function EgtSimGetMoveInfo(ByRef nGmove As Integer, ByRef dSpeed As Doubl End Function -Private Function EgtSimSetStep_32(ByVal dStep As Double) As Boolean +Private Function EgtSimSetStep_32(dStep As Double) As Boolean End Function -Private Function EgtSimSetStep_64(ByVal dStep As Double) As Boolean +Private Function EgtSimSetStep_64(dStep As Double) As Boolean End Function -Public Function EgtSimSetStep(ByVal dStep As Double) As Boolean +Public Function EgtSimSetStep(dStep As Double) As Boolean If IntPtr.Size = 4 Then Return EgtSimSetStep_32(dStep) Else @@ -7089,12 +7199,12 @@ End Function ' Generation -Private Function EgtGenerate_32(ByVal sCncFile As String, ByVal sInfo As String) As Boolean +Private Function EgtGenerate_32(sCncFile As String, sInfo As String) As Boolean End Function -Private Function EgtGenerate_64(ByVal sCncFile As String, ByVal sInfo As String) As Boolean +Private Function EgtGenerate_64(sCncFile As String, sInfo As String) As Boolean End Function -Public Function EgtGenerate(ByVal sCncFile As String, ByVal sInfo As String) As Boolean +Public Function EgtGenerate(sCncFile As String, sInfo As String) As Boolean If IntPtr.Size = 4 Then Return EgtGenerate_32(sCncFile, sInfo) Else @@ -7104,12 +7214,12 @@ End Function ' Machine Calc -Private Function EgtSetCalcTool_32(ByVal sTool As String, ByVal sHead As String, ByVal nExit As Integer) As Boolean +Private Function EgtSetCalcTool_32(sTool As String, sHead As String, nExit As Integer) As Boolean End Function -Private Function EgtSetCalcTool_64(ByVal sTool As String, ByVal sHead As String, ByVal nExit As Integer) As Boolean +Private Function EgtSetCalcTool_64(sTool As String, sHead As String, nExit As Integer) As Boolean End Function -Public Function EgtSetCalcTool(ByVal sTool As String, ByVal sHead As String, ByVal nExit As Integer) As Boolean +Public Function EgtSetCalcTool(sTool As String, sHead As String, nExit As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetCalcTool_32(sTool, sHead, nExit) Else @@ -7187,12 +7297,12 @@ End Function ' Machine Move -Private Function EgtSetAxisPos_32(ByVal sAxis As String, ByVal dVal As Double) As Boolean +Private Function EgtSetAxisPos_32(sAxis As String, dVal As Double) As Boolean End Function -Private Function EgtSetAxisPos_64(ByVal sAxis As String, ByVal dVal As Double) As Boolean +Private Function EgtSetAxisPos_64(sAxis As String, dVal As Double) As Boolean End Function -Public Function EgtSetAxisPos(ByVal sAxis As String, ByVal dVal As Double) As Boolean +Public Function EgtSetAxisPos(sAxis As String, dVal As Double) As Boolean If IntPtr.Size = 4 Then Return EgtSetAxisPos_32(sAxis, dVal) Else @@ -7217,15 +7327,15 @@ End Function '---------- Scene -------------------------------------------------------------- -Private Function EgtInitScene_32(ByVal hWnd As IntPtr, ByVal nDriver As Integer, - ByVal b2Buff As Boolean, ByVal nColorBits As Integer, ByVal nDepthBits As Integer) As Boolean +Private Function EgtInitScene_32(hWnd As IntPtr, nDriver As Integer, + b2Buff As Boolean, nColorBits As Integer, nDepthBits As Integer) As Boolean End Function -Private Function EgtInitScene_64(ByVal hWnd As IntPtr, ByVal nDriver As Integer, - ByVal b2Buff As Boolean, ByVal nColorBits As Integer, ByVal nDepthBits As Integer) As Boolean +Private Function EgtInitScene_64(hWnd As IntPtr, nDriver As Integer, + b2Buff As Boolean, nColorBits As Integer, nDepthBits As Integer) As Boolean End Function -Public Function EgtInitScene(ByVal hWnd As IntPtr, ByVal nDriver As Integer, - ByVal b2Buff As Boolean, ByVal nColorBits As Integer, ByVal nDepthBits As Integer) As Boolean +Public Function EgtInitScene(hWnd As IntPtr, nDriver As Integer, + b2Buff As Boolean, nColorBits As Integer, nDepthBits As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtInitScene_32(hWnd, nDriver, b2Buff, nColorBits, nDepthBits) Else @@ -7257,12 +7367,12 @@ Public Function EgtGetSceneInfo(ByRef sInfo As String) As Boolean End Function -Private Function EgtSetBackground_32(ByRef colTop As Color3d, ByRef colBottom As Color3d, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetBackground_32(ByRef colTop As Color3d, ByRef colBottom As Color3d, bRedraw As Boolean) As Boolean End Function -Private Function EgtSetBackground_64(ByRef colTop As Color3d, ByRef colBottom As Color3d, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetBackground_64(ByRef colTop As Color3d, ByRef colBottom As Color3d, bRedraw As Boolean) As Boolean End Function -Public Function EgtSetBackground(ByRef colTop As Color3d, ByRef colBottom As Color3d, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtSetBackground(ByRef colTop As Color3d, ByRef colBottom As Color3d, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetBackground_32(colTop, colBottom, bRedraw) Else @@ -7327,12 +7437,12 @@ Public Function EgtSetGeoTriaAttribs(ByRef colGt As Color3d) As Boolean End Function -Private Function EgtSetWinRectAttribs_32(ByVal bOutline As Boolean, ByRef colWr As Color3d) As Boolean +Private Function EgtSetWinRectAttribs_32(bOutline As Boolean, ByRef colWr As Color3d) As Boolean End Function -Private Function EgtSetWinRectAttribs_64(ByVal bOutline As Boolean, ByRef colWr As Color3d) As Boolean +Private Function EgtSetWinRectAttribs_64(bOutline As Boolean, ByRef colWr As Color3d) As Boolean End Function -Public Function EgtSetWinRectAttribs(ByVal bOutline As Boolean, ByRef colWr As Color3d) As Boolean +Public Function EgtSetWinRectAttribs(bOutline As Boolean, ByRef colWr As Color3d) As Boolean If IntPtr.Size = 4 Then Return EgtSetWinRectAttribs_32(bOutline, colWr) Else @@ -7341,12 +7451,12 @@ Public Function EgtSetWinRectAttribs(ByVal bOutline As Boolean, ByRef colWr As C End Function -Private Function EgtSetGlobFrameShow_32(ByVal bShow As Boolean) As Boolean +Private Function EgtSetGlobFrameShow_32(bShow As Boolean) As Boolean End Function -Private Function EgtSetGlobFrameShow_64(ByVal bShow As Boolean) As Boolean +Private Function EgtSetGlobFrameShow_64(bShow As Boolean) As Boolean End Function -Public Function EgtSetGlobFrameShow(ByVal bShow As Boolean) As Boolean +Public Function EgtSetGlobFrameShow(bShow As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtSetGlobFrameShow_32(bShow) Else @@ -7355,12 +7465,12 @@ Public Function EgtSetGlobFrameShow(ByVal bShow As Boolean) As Boolean End Function -Private Function EgtSetGridShow_32(ByVal bShowGrid As Boolean, ByVal bShowFrame As Boolean) As Boolean +Private Function EgtSetGridShow_32(bShowGrid As Boolean, bShowFrame As Boolean) As Boolean End Function -Private Function EgtSetGridShow_64(ByVal bShowGrid As Boolean, ByVal bShowFrame As Boolean) As Boolean +Private Function EgtSetGridShow_64(bShowGrid As Boolean, bShowFrame As Boolean) As Boolean End Function -Public Function EgtSetGridShow(ByVal bShowGrid As Boolean, ByVal bShowFrame As Boolean) As Boolean +Public Function EgtSetGridShow(bShowGrid As Boolean, bShowFrame As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtSetGridShow_32(bShowGrid, bShowFrame) Else @@ -7369,12 +7479,12 @@ Public Function EgtSetGridShow(ByVal bShowGrid As Boolean, ByVal bShowFrame As B End Function -Private Function EgtSetGridGeo_32(ByVal dSnapStep As Double, ByVal nMinLineSstep As Integer, ByVal nMajLineSstep As Integer, ByVal nExtSstep As Integer) As Boolean +Private Function EgtSetGridGeo_32(dSnapStep As Double, nMinLineSstep As Integer, nMajLineSstep As Integer, nExtSstep As Integer) As Boolean End Function -Private Function EgtSetGridGeo_64(ByVal dSnapStep As Double, ByVal nMinLineSstep As Integer, ByVal nMajLineSstep As Integer, ByVal nExtSstep As Integer) As Boolean +Private Function EgtSetGridGeo_64(dSnapStep As Double, nMinLineSstep As Integer, nMajLineSstep As Integer, nExtSstep As Integer) As Boolean End Function -Public Function EgtSetGridGeo(ByVal dSnapStep As Double, ByVal nMinLineSstep As Integer, ByVal nMajLineSstep As Integer, ByVal nExtSstep As Integer) As Boolean +Public Function EgtSetGridGeo(dSnapStep As Double, nMinLineSstep As Integer, nMajLineSstep As Integer, nExtSstep As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSetGridGeo_32(dSnapStep, nMinLineSstep, nMajLineSstep, nExtSstep) Else @@ -7397,12 +7507,12 @@ Public Function EgtSetGridColor(ByRef colMinLine As Color3d, ByRef colMajLine As End Function -Private Function EgtResize_32(ByVal nW As Integer, ByVal nH As Integer) As Boolean +Private Function EgtResize_32(nW As Integer, nH As Integer) As Boolean End Function -Private Function EgtResize_64(ByVal nW As Integer, ByVal nH As Integer) As Boolean +Private Function EgtResize_64(nW As Integer, nH As Integer) As Boolean End Function -Public Function EgtResize(ByVal nW As Integer, ByVal nH As Integer) As Boolean +Public Function EgtResize(nW As Integer, nH As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtResize_32(nW, nH) Else @@ -7425,14 +7535,14 @@ Public Function EgtDraw() As Boolean End Function -Private Function EgtSelect_32(ByVal nWinX As Integer, ByVal nWinY As Integer, - ByVal nSelW As Integer, ByVal nSelH As Integer, ByRef nSel As Integer) As Boolean +Private Function EgtSelect_32(nWinX As Integer, nWinY As Integer, + nSelW As Integer, nSelH As Integer, ByRef nSel As Integer) As Boolean End Function -Private Function EgtSelect_64(ByVal nWinX As Integer, ByVal nWinY As Integer, - ByVal nSelW As Integer, ByVal nSelH As Integer, ByRef nSel As Integer) As Boolean +Private Function EgtSelect_64(nWinX As Integer, nWinY As Integer, + nSelW As Integer, nSelH As Integer, ByRef nSel As Integer) As Boolean End Function -Public Function EgtSelect(ByVal Curr As Point, ByVal nSelW As Integer, ByVal nSelH As Integer, +Public Function EgtSelect(Curr As Point, nSelW As Integer, nSelH As Integer, ByRef nSel As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtSelect_32(Curr.X, Curr.Y, nSelW, nSelH, nSel) @@ -7442,15 +7552,15 @@ Public Function EgtSelect(ByVal Curr As Point, ByVal nSelW As Integer, ByVal nSe End Function -Private Function EgtSetObjFilterForSelect_32(ByVal bZeroDim As Boolean, ByVal bCurve As Boolean, - ByVal bSurf As Boolean, ByVal bVolume As Boolean, ByVal bExtra As Boolean) As Boolean +Private Function EgtSetObjFilterForSelect_32(bZeroDim As Boolean, bCurve As Boolean, + bSurf As Boolean, bVolume As Boolean, bExtra As Boolean) As Boolean End Function -Private Function EgtSetObjFilterForSelect_64(ByVal bZeroDim As Boolean, ByVal bCurve As Boolean, - ByVal bSurf As Boolean, ByVal bVolume As Boolean, ByVal bExtra As Boolean) As Boolean +Private Function EgtSetObjFilterForSelect_64(bZeroDim As Boolean, bCurve As Boolean, + bSurf As Boolean, bVolume As Boolean, bExtra As Boolean) As Boolean End Function -Public Function EgtSetObjFilterForSelect(ByVal bZeroDim As Boolean, ByVal bCurve As Boolean, - ByVal bSurf As Boolean, ByVal bVolume As Boolean, ByVal bExtra As Boolean) As Boolean +Public Function EgtSetObjFilterForSelect(bZeroDim As Boolean, bCurve As Boolean, + bSurf As Boolean, bVolume As Boolean, bExtra As Boolean) As Boolean If IntPtr.Size = 4 Then Return EgtSetObjFilterForSelect_32(bZeroDim, bCurve, bSurf, bVolume, bExtra) Else @@ -7459,12 +7569,12 @@ Public Function EgtSetObjFilterForSelect(ByVal bZeroDim As Boolean, ByVal bCurve End Function -Private Function EgtUnselectableAdd_32(ByVal nId As Integer) As Boolean +Private Function EgtUnselectableAdd_32(nId As Integer) As Boolean End Function -Private Function EgtUnselectableAdd_64(ByVal nId As Integer) As Boolean +Private Function EgtUnselectableAdd_64(nId As Integer) As Boolean End Function -Public Function EgtUnselectableAdd(ByVal nId As Integer) As Boolean +Public Function EgtUnselectableAdd(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtUnselectableAdd_32(nId) Else @@ -7473,12 +7583,12 @@ Public Function EgtUnselectableAdd(ByVal nId As Integer) As Boolean End Function -Private Function EgtUnselectableRemove_32(ByVal nId As Integer) As Boolean +Private Function EgtUnselectableRemove_32(nId As Integer) As Boolean End Function -Private Function EgtUnselectableRemove_64(ByVal nId As Integer) As Boolean +Private Function EgtUnselectableRemove_64(nId As Integer) As Boolean End Function -Public Function EgtUnselectableRemove(ByVal nId As Integer) As Boolean +Public Function EgtUnselectableRemove(nId As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtUnselectableRemove_32(nId) Else @@ -7529,14 +7639,14 @@ Public Function EgtGetNextObjInSelWin() As Integer End Function -Private Function EgtGetPointFromSelect_32(ByVal nSelId As Integer, ByVal nWinX As Integer, ByVal nWinY As Integer, +Private Function EgtGetPointFromSelect_32(nSelId As Integer, nWinX As Integer, nWinY As Integer, ByRef ptP As Point3d, ByRef nAux As Integer) As Boolean End Function -Private Function EgtGetPointFromSelect_64(ByVal nSelId As Integer, ByVal nWinX As Integer, ByVal nWinY As Integer, +Private Function EgtGetPointFromSelect_64(nSelId As Integer, nWinX As Integer, nWinY As Integer, ByRef ptP As Point3d, ByRef nAux As Integer) As Boolean End Function -Public Function EgtGetPointFromSelect(ByVal nSelId As Integer, ByVal PtWin As Point, ByRef ptP As Point3d, ByRef nAux As Integer) As Boolean +Public Function EgtGetPointFromSelect(nSelId As Integer, PtWin As Point, ByRef ptP As Point3d, ByRef nAux As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetPointFromSelect_32(nSelId, PtWin.X, PtWin.Y, ptP, nAux) Else @@ -7545,17 +7655,17 @@ Public Function EgtGetPointFromSelect(ByVal nSelId As Integer, ByVal PtWin As Po End Function -Private Function EgtGetGraphicSnapPoint_32(ByVal nSnap As Integer, - ByVal nWinX As Integer, ByVal nWinY As Integer, ByVal nSelW As Integer, ByVal nSelH As Integer, +Private Function EgtGetGraphicSnapPoint_32(nSnap As Integer, + nWinX As Integer, nWinY As Integer, nSelW As Integer, nSelH As Integer, ByRef ptP As Point3d) As Boolean End Function -Private Function EgtGetGraphicSnapPoint_64(ByVal nSnap As Integer, - ByVal nWinX As Integer, ByVal nWinY As Integer, ByVal nSelW As Integer, ByVal nSelH As Integer, +Private Function EgtGetGraphicSnapPoint_64(nSnap As Integer, + nWinX As Integer, nWinY As Integer, nSelW As Integer, nSelH As Integer, ByRef ptP As Point3d) As Boolean End Function -Public Function EgtGetGraphicSnapPoint(ByVal nSnap As Integer, - ByVal PtWin As Point, ByVal nSelW As Integer, ByVal nSelH As Integer, +Public Function EgtGetGraphicSnapPoint(nSnap As Integer, + PtWin As Point, nSelW As Integer, nSelH As Integer, ByRef ptP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtGetGraphicSnapPoint_32(nSnap, PtWin.X, PtWin.Y, nSelW, nSelH, ptP) @@ -7565,17 +7675,17 @@ Public Function EgtGetGraphicSnapPoint(ByVal nSnap As Integer, End Function -Private Function EgtGetGridSnapPointZ_32(ByVal bSketch As Boolean, - ByVal nWinX As Integer, ByVal nWinY As Integer, ByRef ptGrid As Point3d, +Private Function EgtGetGridSnapPointZ_32(bSketch As Boolean, + nWinX As Integer, nWinY As Integer, ByRef ptGrid As Point3d, ByRef ptP As Point3d) As Boolean End Function -Private Function EgtGetGridSnapPointZ_64(ByVal bSketch As Boolean, - ByVal nWinX As Integer, ByVal nWinY As Integer, ByRef ptGrid As Point3d, +Private Function EgtGetGridSnapPointZ_64(bSketch As Boolean, + nWinX As Integer, 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, +Public Function EgtGetGridSnapPointZ(bSketch As Boolean, + PtWin As Point, ptGrid As Point3d, ByRef ptP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtGetGridSnapPointZ_32(bSketch, PtWin.X, PtWin.Y, ptGrid, ptP) @@ -7613,12 +7723,12 @@ Public Function EgtGetLastSnapDir(ByRef VtDir As Vector3d) As Boolean End Function -Private Function EgtSetShowMode_32(ByVal nShowMode As SM, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetShowMode_32(nShowMode As SM, bRedraw As Boolean) As Boolean End Function -Private Function EgtSetShowMode_64(ByVal nShowMode As SM, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetShowMode_64(nShowMode As SM, bRedraw As Boolean) As Boolean End Function -Public Function EgtSetShowMode(ByVal nShowMode As SM, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtSetShowMode(nShowMode As SM, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetShowMode_32(nShowMode, bRedraw) Else @@ -7641,12 +7751,12 @@ Public Function EgtGetShowMode() As Integer End Function -Private Function EgtSetShowCurveDirection_32(ByVal bShow As Boolean, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetShowCurveDirection_32(bShow As Boolean, bRedraw As Boolean) As Boolean End Function -Private Function EgtSetShowCurveDirection_64(ByVal bShow As Boolean, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetShowCurveDirection_64(bShow As Boolean, bRedraw As Boolean) As Boolean End Function -Public Function EgtSetShowCurveDirection(ByVal bShow As Boolean, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtSetShowCurveDirection(bShow As Boolean, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetShowCurveDirection_32(bShow, bRedraw) Else @@ -7669,12 +7779,12 @@ Public Function EgtGetShowCurveDirection() As Boolean End Function -Private Function EgtSetShowTriaAdv_32(ByVal bAdvanced As Boolean, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetShowTriaAdv_32(bAdvanced As Boolean, bRedraw As Boolean) As Boolean End Function -Private Function EgtSetShowTriaAdv_64(ByVal bAdvanced As Boolean, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetShowTriaAdv_64(bAdvanced As Boolean, bRedraw As Boolean) As Boolean End Function -Public Function EgtSetShowTriaAdv(ByVal bAdvanced As Boolean, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtSetShowTriaAdv(bAdvanced As Boolean, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetShowTriaAdv_32(bAdvanced, bRedraw) Else @@ -7697,12 +7807,12 @@ Public Function EgtGetShowTriaAdv() As Boolean End Function -Private Function EgtZoom_32(ByVal nZoom As ZM, ByVal bRedraw As Boolean) As Boolean +Private Function EgtZoom_32(nZoom As ZM, bRedraw As Boolean) As Boolean End Function -Private Function EgtZoom_64(ByVal nZoom As ZM, ByVal bRedraw As Boolean) As Boolean +Private Function EgtZoom_64(nZoom As ZM, bRedraw As Boolean) As Boolean End Function -Public Function EgtZoom(ByVal nZoom As ZM, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtZoom(nZoom As ZM, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtZoom_32(nZoom, bRedraw) Else @@ -7711,12 +7821,12 @@ Public Function EgtZoom(ByVal nZoom As ZM, Optional ByVal bRedraw As Boolean = T End Function -Private Function EgtZoomOnPoint_32(ByVal nWinX As Integer, ByVal nWinY As Integer, ByVal dCoeff As Double, ByVal bRedraw As Boolean) As Boolean +Private Function EgtZoomOnPoint_32(nWinX As Integer, nWinY As Integer, dCoeff As Double, bRedraw As Boolean) As Boolean End Function -Private Function EgtZoomOnPoint_64(ByVal nWinX As Integer, ByVal nWinY As Integer, ByVal dCoeff As Double, ByVal bRedraw As Boolean) As Boolean +Private Function EgtZoomOnPoint_64(nWinX As Integer, nWinY As Integer, dCoeff As Double, bRedraw As Boolean) As Boolean End Function -Public Function EgtZoomOnPoint(ByVal Curr As Point, ByVal dCoeff As Double, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtZoomOnPoint(Curr As Point, dCoeff As Double, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtZoomOnPoint_32(Curr.X, Curr.Y, dCoeff, bRedraw) Else @@ -7725,12 +7835,12 @@ Public Function EgtZoomOnPoint(ByVal Curr As Point, ByVal dCoeff As Double, Opti End Function -Private Function EgtSetGeoLine_32(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetGeoLine_32(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, bRedraw As Boolean) As Boolean End Function -Private Function EgtSetGeoLine_64(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetGeoLine_64(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, bRedraw As Boolean) As Boolean End Function -Public Function EgtSetGeoLine(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtSetGeoLine(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetGeoLine_32(ptP1, ptP2, bRedraw) Else @@ -7739,12 +7849,12 @@ Public Function EgtSetGeoLine(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, Opti End Function -Private Function EgtResetGeoLine_32(ByVal bRedraw As Boolean) As Boolean +Private Function EgtResetGeoLine_32(bRedraw As Boolean) As Boolean End Function -Private Function EgtResetGeoLine_64(ByVal bRedraw As Boolean) As Boolean +Private Function EgtResetGeoLine_64(bRedraw As Boolean) As Boolean End Function -Public Function EgtResetGeoLine(Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtResetGeoLine(Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtResetGeoLine_32(bRedraw) Else @@ -7753,12 +7863,12 @@ Public Function EgtResetGeoLine(Optional ByVal bRedraw As Boolean = True) As Boo End Function -Private Function EgtSetGeoTria_32(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef ptP3 As Point3d, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetGeoTria_32(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef ptP3 As Point3d, bRedraw As Boolean) As Boolean End Function -Private Function EgtSetGeoTria_64(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef ptP3 As Point3d, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetGeoTria_64(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef ptP3 As Point3d, bRedraw As Boolean) As Boolean End Function -Public Function EgtSetGeoTria(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef ptP3 As Point3d, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtSetGeoTria(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef ptP3 As Point3d, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetGeoTria_32(ptP1, ptP2, ptP3, bRedraw) Else @@ -7767,12 +7877,12 @@ Public Function EgtSetGeoTria(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRe End Function -Private Function EgtResetGeoTria_32(ByVal bRedraw As Boolean) As Boolean +Private Function EgtResetGeoTria_32(bRedraw As Boolean) As Boolean End Function -Private Function EgtResetGeoTria_64(ByVal bRedraw As Boolean) As Boolean +Private Function EgtResetGeoTria_64(bRedraw As Boolean) As Boolean End Function -Public Function EgtResetGeoTria(Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtResetGeoTria(Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtResetGeoTria_32(bRedraw) Else @@ -7781,12 +7891,12 @@ Public Function EgtResetGeoTria(Optional ByVal bRedraw As Boolean = True) As Boo End Function -Private Function EgtSetWinRect_32(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetWinRect_32(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function -Private Function EgtSetWinRect_64(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetWinRect_64(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function -Public Function EgtSetWinRect(ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtSetWinRect(Prev As Point, Curr As Point, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetWinRect_32(Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) Else @@ -7795,12 +7905,12 @@ Public Function EgtSetWinRect(ByVal Prev As Point, ByVal Curr As Point, Optional End Function -Private Function EgtResetWinRect_32(ByVal bRedraw As Boolean) As Boolean +Private Function EgtResetWinRect_32(bRedraw As Boolean) As Boolean End Function -Private Function EgtResetWinRect_64(ByVal bRedraw As Boolean) As Boolean +Private Function EgtResetWinRect_64(bRedraw As Boolean) As Boolean End Function -Public Function EgtResetWinRect(Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtResetWinRect(Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtResetWinRect_32(bRedraw) Else @@ -7809,12 +7919,12 @@ Public Function EgtResetWinRect(Optional ByVal bRedraw As Boolean = True) As Boo End Function -Private Function EgtZoomWin_32(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +Private Function EgtZoomWin_32(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function -Private Function EgtZoomWin_64(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +Private Function EgtZoomWin_64(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function -Public Function EgtZoomWin(ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtZoomWin(Prev As Point, Curr As Point, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtZoomWin_32(Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) Else @@ -7823,12 +7933,12 @@ Public Function EgtZoomWin(ByVal Prev As Point, ByVal Curr As Point, Optional By End Function -Private Function EgtSetView_32(ByVal nView As VT, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetView_32(nView As VT, bRedraw As Boolean) As Boolean End Function -Private Function EgtSetView_64(ByVal nView As VT, ByVal bRedraw As Boolean) As Boolean +Private Function EgtSetView_64(nView As VT, bRedraw As Boolean) As Boolean End Function -Public Function EgtSetView(ByVal nView As VT, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtSetView(nView As VT, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetView_32(nView, bRedraw) Else @@ -7837,12 +7947,12 @@ Public Function EgtSetView(ByVal nView As VT, Optional ByVal bRedraw As Boolean End Function -Private Function EgtPanView_32(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +Private Function EgtPanView_32(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function -Private Function EgtPanView_64(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +Private Function EgtPanView_64(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function -Public Function EgtPanView(ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtPanView(Prev As Point, Curr As Point, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtPanView_32(Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) Else @@ -7851,12 +7961,12 @@ Public Function EgtPanView(ByVal Prev As Point, ByVal Curr As Point, Optional By End Function -Private Function EgtRotateView_32(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +Private Function EgtRotateView_32(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function -Private Function EgtRotateView_64(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +Private Function EgtRotateView_64(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function -Public Function EgtRotateView(ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean +Public Function EgtRotateView(Prev As Point, Curr As Point, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtRotateView_32(Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) Else @@ -7907,12 +8017,12 @@ Public Function EgtProjectPoint(ByRef ptP As Point3d, ByRef ptWin As Point3d) As End Function -Private Function EgtUnProjectPoint_32(ByVal nWinX As Integer, ByVal nWinY As Integer, ByRef ptP As Point3d) As Boolean +Private Function EgtUnProjectPoint_32(nWinX As Integer, nWinY As Integer, ByRef ptP As Point3d) As Boolean End Function -Private Function EgtUnProjectPoint_64(ByVal nWinX As Integer, ByVal nWinY As Integer, ByRef ptP As Point3d) As Boolean +Private Function EgtUnProjectPoint_64(nWinX As Integer, nWinY As Integer, ByRef ptP As Point3d) As Boolean End Function -Public Function EgtUnProjectPoint(ByVal Curr As Point, ByRef ptP As Point3d) As Boolean +Public Function EgtUnProjectPoint(Curr As Point, ByRef ptP As Point3d) As Boolean If IntPtr.Size = 4 Then Return EgtUnProjectPoint_32(Curr.X, Curr.Y, ptP) Else @@ -7921,15 +8031,15 @@ Public Function EgtUnProjectPoint(ByVal Curr As Point, ByRef ptP As Point3d) As End Function -Private Function EgtLoadTexture_32(ByVal sName As String, ByVal sFile As String, - ByVal dMMxPix As Double, ByVal dDimX As Double, ByVal dDimY As Double, ByVal nRepeat As Integer) As Boolean +Private Function EgtLoadTexture_32(sName As String, sFile As String, + dMMxPix As Double, dDimX As Double, dDimY As Double, nRepeat As Integer) As Boolean End Function -Private Function EgtLoadTexture_64(ByVal sName As String, ByVal sFile As String, - ByVal dMMxPix As Double, ByVal dDimX As Double, ByVal dDimY As Double, ByVal nRepeat As Integer) As Boolean +Private Function EgtLoadTexture_64(sName As String, sFile As String, + dMMxPix As Double, dDimX As Double, dDimY As Double, nRepeat As Integer) As Boolean End Function -Public Function EgtLoadTexture(ByVal sName As String, ByVal sFile As String, - ByVal dMMxPix As Double, ByVal dDimX As Double, ByVal dDimY As Double, ByVal nRepeat As Integer) As Boolean +Public Function EgtLoadTexture(sName As String, sFile As String, + dMMxPix As Double, dDimX As Double, dDimY As Double, nRepeat As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtLoadTexture_32(sName, sFile, dMMxPix, dDimX, dDimY, nRepeat) Else @@ -7938,12 +8048,12 @@ Public Function EgtLoadTexture(ByVal sName As String, ByVal sFile As String, End Function -Private Function EgtUnloadTexture_32(ByVal sName As String) As Boolean +Private Function EgtUnloadTexture_32(sName As String) As Boolean End Function -Private Function EgtUnloadTexture_64(ByVal sName As String) As Boolean +Private Function EgtUnloadTexture_64(sName As String) As Boolean End Function -Public Function EgtUnloadTexture(ByVal sName As String) As Boolean +Public Function EgtUnloadTexture(sName As String) As Boolean If IntPtr.Size = 4 Then Return EgtUnloadTexture_32(sName) Else @@ -7952,12 +8062,12 @@ Public Function EgtUnloadTexture(ByVal sName As String) As Boolean End Function -Private Function EgtGetTexturePixels_32(ByVal sName As String, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean +Private Function EgtGetTexturePixels_32(sName As String, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean End Function -Private Function EgtGetTexturePixels_64(ByVal sName As String, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean +Private Function EgtGetTexturePixels_64(sName As String, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean End Function -Public Function EgtGetTexturePixels(ByVal sName As String, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean +Public Function EgtGetTexturePixels(sName As String, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean If IntPtr.Size = 4 Then Return EgtGetTexturePixels_32(sName, nWidth, nHeight) Else @@ -7966,12 +8076,12 @@ Public Function EgtGetTexturePixels(ByVal sName As String, ByRef nWidth As Integ End Function -Private Function EgtGetTextureDimensions_32(ByVal sName As String, ByRef dDimX As Double, ByRef dDimY As Double) As Boolean +Private Function EgtGetTextureDimensions_32(sName As String, ByRef dDimX As Double, ByRef dDimY As Double) As Boolean End Function -Private Function EgtGetTextureDimensions_64(ByVal sName As String, ByRef dDimX As Double, ByRef dDimY As Double) As Boolean +Private Function EgtGetTextureDimensions_64(sName As String, ByRef dDimX As Double, ByRef dDimY As Double) As Boolean End Function -Public Function EgtGetTextureDimensions(ByVal sName As String, ByRef dDimX As Double, ByRef dDimY As Double) As Boolean +Public Function EgtGetTextureDimensions(sName As String, ByRef dDimX As Double, ByRef dDimY As Double) As Boolean If IntPtr.Size = 4 Then Return EgtGetTextureDimensions_32(sName, dDimX, dDimY) Else @@ -7980,12 +8090,12 @@ Public Function EgtGetTextureDimensions(ByVal sName As String, ByRef dDimX As Do End Function -Private Function EgtChangeTextureDimensions_32(ByVal sName As String, ByVal dDimX As Double, ByVal dDimY As Double) As Boolean +Private Function EgtChangeTextureDimensions_32(sName As String, dDimX As Double, dDimY As Double) As Boolean End Function -Private Function EgtChangeTextureDimensions_64(ByVal sName As String, ByVal dDimX As Double, ByVal dDimY As Double) As Boolean +Private Function EgtChangeTextureDimensions_64(sName As String, dDimX As Double, dDimY As Double) As Boolean End Function -Public Function EgtChangeTextureDimensions(ByVal sName As String, ByVal dDimX As Double, ByVal dDimY As Double) As Boolean +Public Function EgtChangeTextureDimensions(sName As String, dDimX As Double, dDimY As Double) As Boolean If IntPtr.Size = 4 Then Return EgtChangeTextureDimensions_32(sName, dDimX, dDimY) Else @@ -7996,18 +8106,18 @@ End Function '---------- Photo -------------------------------------------------------------- -Private Function EgtAddPhoto_32(ByVal sName As String, ByVal sFile As String, - ByRef ptOri As Point3d, ByRef ptCen As Point3d, ByVal dMMxPix As Double, - ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Integer +Private Function EgtAddPhoto_32(sName As String, sFile As String, + ByRef ptOri As Point3d, ByRef ptCen As Point3d, dMMxPix As Double, + nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Integer End Function -Private Function EgtAddPhoto_64(ByVal sName As String, ByVal sFile As String, - ByRef ptOri As Point3d, ByRef ptCen As Point3d, ByVal dMMxPix As Double, - ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Integer +Private Function EgtAddPhoto_64(sName As String, sFile As String, + ByRef ptOri As Point3d, ByRef ptCen As Point3d, dMMxPix As Double, + nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Integer End Function -Public Function EgtAddPhoto(ByVal sName As String, ByVal sFile As String, - ByRef ptOri As Point3d, ByRef ptCen As Point3d, ByVal dMMxPix As Double, - ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Integer +Public Function EgtAddPhoto(sName As String, sFile As String, + ByRef ptOri As Point3d, ByRef ptCen As Point3d, dMMxPix As Double, + nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Integer If IntPtr.Size = 4 Then Return EgtAddPhoto_32(sName, sFile, ptOri, ptCen, dMMxPix, nParentId, ptMin, ptMax) Else @@ -8016,12 +8126,12 @@ Public Function EgtAddPhoto(ByVal sName As String, ByVal sFile As String, End Function -Private Function EgtGetPhotoPath_32(ByVal nId As Integer, ByRef psFile As IntPtr) As Boolean +Private Function EgtGetPhotoPath_32(nId As Integer, ByRef psFile As IntPtr) As Boolean End Function -Private Function EgtGetPhotoPath_64(ByVal nId As Integer, ByRef psFile As IntPtr) As Boolean +Private Function EgtGetPhotoPath_64(nId As Integer, ByRef psFile As IntPtr) As Boolean End Function -Public Function EgtGetPhotoPath(ByVal nId As Integer, ByRef sFile As String) As Boolean +Public Function EgtGetPhotoPath(nId As Integer, ByRef sFile As String) As Boolean Dim psFile As IntPtr Dim bOk As Boolean If IntPtr.Size = 4 Then @@ -8039,12 +8149,12 @@ Public Function EgtGetPhotoPath(ByVal nId As Integer, ByRef sFile As String) As End Function -Private Function EgtChangePhotoPath_32(ByVal nId As Integer, ByVal sFile As String) As Boolean +Private Function EgtChangePhotoPath_32(nId As Integer, sFile As String) As Boolean End Function -Private Function EgtChangePhotoPath_64(ByVal nId As Integer, ByVal sFile As String) As Boolean +Private Function EgtChangePhotoPath_64(nId As Integer, sFile As String) As Boolean End Function -Public Function EgtChangePhotoPath(ByVal nId As Integer, ByVal sFile As String) As Boolean +Public Function EgtChangePhotoPath(nId As Integer, sFile As String) As Boolean If IntPtr.Size = 4 Then Return EgtChangePhotoPath_32(nId, sFile) Else @@ -8052,18 +8162,60 @@ Public Function EgtChangePhotoPath(ByVal nId As Integer, ByVal sFile As String) End If End Function + +Private Function EgtGetPhotoOrigin_32(nId As Integer, ByRef ptOri As Point3d) As Boolean +End Function + +Private Function EgtGetPhotoOrigin_64(nId As Integer, ByRef ptOri As Point3d) As Boolean +End Function +Public Function EgtGetPhotoOrigin(nId As Integer, ByRef ptOri As Point3d) As Boolean + If IntPtr.Size = 4 Then + Return EgtGetPhotoOrigin_32(nId, ptOri) + Else + Return EgtGetPhotoOrigin_64(nId, ptOri) + End If +End Function + + +Private Function EgtGetPhotoCenter_32(nId As Integer, ByRef ptCen As Point3d) As Boolean +End Function + +Private Function EgtGetPhotoCenter_64(nId As Integer, ByRef ptCen As Point3d) As Boolean +End Function +Public Function EgtGetPhotoCenter(nId As Integer, ByRef ptCen As Point3d) As Boolean + If IntPtr.Size = 4 Then + Return EgtGetPhotoCenter_32(nId, ptCen) + Else + Return EgtGetPhotoCenter_64(nId, ptCen) + End If +End Function + + +Private Function EgtGetPhotoMMxPixel_32(nId As Integer, ByRef dMMxPixel As Double) As Boolean +End Function + +Private Function EgtGetPhotoMMxPixel_64(nId As Integer, ByRef dMMxPixel As Double) As Boolean +End Function +Public Function EgtGetPhotoMMxPixel(nId As Integer, ByRef dMMxPixel As Double) As Boolean + If IntPtr.Size = 4 Then + Return EgtGetPhotoMMxPixel_32(nId, dMMxPixel) + Else + Return EgtGetPhotoMMxPixel_64(nId, dMMxPixel) + End If +End Function + '---------- Geo Base ----------------------------------------------------------- Private Function EgtVectorNormalize_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByVal dEps As Double) As Boolean + dEps As Double) As Boolean End Function Private Function EgtVectorNormalize_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByVal dEps As Double) As Boolean + dEps As Double) As Boolean End Function Private Function EgtVectorNormalize(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - Optional ByVal dEps As Double = EPS_SMALL) As Boolean + Optional dEps As Double = EPS_SMALL) As Boolean If IntPtr.Size = 4 Then Return EgtVectorNormalize_32(X, Y, Z, dEps) Else @@ -8073,14 +8225,14 @@ End Function Private Function EgtVectorRotate_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function Private Function EgtVectorRotate_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function Private Function EgtVectorRotate(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean If IntPtr.Size = 4 Then Return EgtVectorRotate_32(X, Y, Z, VtAx, dAngRotDeg) Else @@ -8091,16 +8243,16 @@ End Function Private Function EgtVectorScale_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean End Function Private Function EgtVectorScale_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean End Function Private Function EgtVectorScale(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean If IntPtr.Size = 4 Then Return EgtVectorScale_32(X, Y, Z, PtOrig, VtX, VtY, VtZ, dCoeffX, dCoeffY, dCoeffZ) Else @@ -8127,14 +8279,14 @@ End Function Private Function EgtVectorShear_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean + ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, dCoeff As Double) As Boolean End Function Private Function EgtVectorShear_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean + ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, dCoeff As Double) As Boolean End Function Private Function EgtVectorShear(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean + ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, dCoeff As Double) As Boolean If IntPtr.Size = 4 Then Return EgtVectorShear_32(X, Y, Z, VtNorm, VtDir, dCoeff) Else @@ -8232,14 +8384,14 @@ End Function Private Function EgtPointRotate_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function Private Function EgtPointRotate_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function Private Function EgtPointRotate(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean If IntPtr.Size = 4 Then Return EgtPointRotate_32(X, Y, Z, PtAx, VtAx, dAngRotDeg) Else @@ -8250,16 +8402,16 @@ End Function Private Function EgtPointScale_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean End Function Private Function EgtPointScale_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean End Function Private Function EgtPointScale(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean + dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean If IntPtr.Size = 4 Then Return EgtPointScale_32(X, Y, Z, PtOrig, VtX, VtY, VtZ, dCoeffX, dCoeffY, dCoeffZ) Else @@ -8286,14 +8438,14 @@ End Function Private Function EgtPointShear_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean + ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, dCoeff As Double) As Boolean End Function Private Function EgtPointShear_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean + ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, dCoeff As Double) As Boolean End Function Private Function EgtPointShear(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, - ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean + ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, dCoeff As Double) As Boolean If IntPtr.Size = 4 Then Return EgtPointShear_32(X, Y, Z, PtOn, VtNorm, VtDir, dCoeff) Else @@ -8408,14 +8560,14 @@ End Function Private Function EgtFrameRotate_32(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function Private Function EgtFrameRotate_64(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function Private Function EgtFrameRotate(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, - ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean + ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean If IntPtr.Size = 4 Then Return EgtFrameRotate_32(PtOrig, VtX, VtY, VtZ, PtAx, VtAx, dAngRotDeg) Else @@ -8534,12 +8686,12 @@ End Function '---------- Messages ----------------------------------------------------------- -Private Function EgtLoadMessages_32(ByVal sMsgFilePath As String) As Boolean +Private Function EgtLoadMessages_32(sMsgFilePath As String) As Boolean End Function -Private Function EgtLoadMessages_64(ByVal sMsgFilePath As String) As Boolean +Private Function EgtLoadMessages_64(sMsgFilePath As String) As Boolean End Function -Public Function EgtLoadMessages(ByVal sMsgFilePath As String) As Boolean +Public Function EgtLoadMessages(sMsgFilePath As String) As Boolean If IntPtr.Size = 4 Then Return EgtLoadMessages_32(sMsgFilePath) Else @@ -8548,12 +8700,12 @@ Public Function EgtLoadMessages(ByVal sMsgFilePath As String) As Boolean End Function -Private Function EgtGetMsg_32(ByVal nId As Integer) As IntPtr +Private Function EgtGetMsg_32(nId As Integer) As IntPtr End Function -Private Function EgtGetMsg_64(ByVal nId As Integer) As IntPtr +Private Function EgtGetMsg_64(nId As Integer) As IntPtr End Function -Public Function EgtMsg(ByVal nId As Integer) As String +Public Function EgtMsg(nId As Integer) As String If IntPtr.Size = 4 Then Return Marshal.PtrToStringUni(EgtGetMsg_32(nId)) Else diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index f626efa..84d2c03 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +