From 430b42937bf8743d0bdaed1b0ef4a1ac9412c053 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Mon, 29 Aug 2016 08:04:04 +0000 Subject: [PATCH] TestEIn 1.6t4 : - aggiornamento. --- EgtInterface.vb | 2361 +++++++++++++++++++----------------- My Project/AssemblyInfo.vb | 4 +- 2 files changed, 1218 insertions(+), 1147 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index b0fcd18..bb06198 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -12,6 +12,7 @@ '---------------------------------------------------------------------------- Imports System.Runtime.InteropServices +Imports System.Security Public Module EgtInterface @@ -765,10 +766,10 @@ Const EgtIntDll64 As String = "EgtInterfaceR64.dll" '---------- General ------------------------------------------------------------ - + Private Function EgtInit_32(nDebug As Integer, sLogFile As String, Optional sLogMsg As String = "") As Boolean End Function - + Private Function EgtInit_64(nDebug As Integer, sLogFile As String, Optional sLogMsg As String = "") As Boolean End Function Public Function EgtInit(nDebug As Integer, sLogFile As String, Optional sLogMsg As String = "") As Boolean @@ -779,10 +780,10 @@ Public Function EgtInit(nDebug As Integer, sLogFile As String, Optional sLogMsg End If End Function - + Private Function EgtExit_32() As Boolean End Function - + Private Function EgtExit_64() As Boolean End Function Public Function EgtExit() As Boolean @@ -793,10 +794,10 @@ Public Function EgtExit() As Boolean End If End Function - + Private Function EgtSetKey_32(sKey As String) As Boolean End Function - + Private Function EgtSetKey_64(sKey As String) As Boolean End Function Public Function EgtSetKey(sKey As String) As Boolean @@ -807,10 +808,10 @@ Public Function EgtSetKey(sKey As String) As Boolean End If End Function - + Private Function EgtSetFont_32(sNfeFontDir As String, sDefaultFont As String) As Boolean End Function - + Private Function EgtSetFont_64(sNfeFontDir As String, sDefaultFont As String) As Boolean End Function Public Function EgtSetFont(sNfeFontDir As String, sDefaultFont As String) As Boolean @@ -821,10 +822,10 @@ Public Function EgtSetFont(sNfeFontDir As String, sDefaultFont As String) As Boo End If End Function - + Private Function EgtGetNfeFontDir_32(ByRef psNfeFontDir As IntPtr) As Boolean End Function - + Private Function EgtGetNfeFontDir_64(ByRef psNfeFontDir As IntPtr) As Boolean End Function Public Function EgtGetNfeFontDir(ByRef sNfeFontDir As String) As Boolean @@ -844,10 +845,10 @@ Public Function EgtGetNfeFontDir(ByRef sNfeFontDir As String) As Boolean Return bOk End Function - + Private Function EgtGetDefaultFont_32(ByRef psDefaultFont As IntPtr) As Boolean End Function - + Private Function EgtGetDefaultFont_64(ByRef psDefaultFont As IntPtr) As Boolean End Function Public Function EgtGetDefaultFont(ByRef sDefaultFont As String) As Boolean @@ -867,10 +868,10 @@ Public Function EgtGetDefaultFont(ByRef sDefaultFont As String) As Boolean Return bOk End Function - + Private Function EgtSetLuaLibs_32(sLuaLibsDir As String) As Boolean End Function - + Private Function EgtSetLuaLibs_64(sLuaLibsDir As String) As Boolean End Function Public Function EgtSetLuaLibs(sLuaLibsDir As String) As Boolean @@ -881,10 +882,10 @@ Public Function EgtSetLuaLibs(sLuaLibsDir As String) As Boolean End If End Function - + Private Function EgtSetCommandLogger_32(sLogFile As String) As Boolean End Function - + Private Function EgtSetCommandLogger_64(sLogFile As String) As Boolean End Function Public Function EgtSetCommandLogger(sLogFile As String) As Boolean @@ -895,10 +896,10 @@ Public Function EgtSetCommandLogger(sLogFile As String) As Boolean End If End Function - + Private Sub EgtEnableCommandLogger_32() End Sub - + Private Sub EgtEnableCommandLogger_64() End Sub Public Sub EgtEnableCommandLogger() @@ -909,10 +910,10 @@ Public Sub EgtEnableCommandLogger() End If End Sub - + Private Sub EgtDisableCommandLogger_32() End Sub - + Private Sub EgtDisableCommandLogger_64() End Sub Public Sub EgtDisableCommandLogger() @@ -923,10 +924,10 @@ Public Sub EgtDisableCommandLogger() End If End Sub - + Private Function EgtGetVersionInfo_32(ByRef psVerInfo As IntPtr) As Boolean End Function - + Private Function EgtGetVersionInfo_64(ByRef psVerInfo As IntPtr) As Boolean End Function Public Function EgtGetVersionInfo(ByRef sVerInfo As String) As Boolean @@ -946,10 +947,10 @@ Public Function EgtGetVersionInfo(ByRef sVerInfo As String) As Boolean Return bOk End Function - + Private Function EgtGetKeyInfo_32(ByRef psKeyInfo As IntPtr) As Boolean End Function - + Private Function EgtGetKeyInfo_64(ByRef psKeyInfo As IntPtr) As Boolean End Function Public Function EgtGetKeyInfo(ByRef sKeyInfo As String) As Boolean @@ -969,10 +970,10 @@ Public Function EgtGetKeyInfo(ByRef sKeyInfo As String) As Boolean Return bOk End Function - + Private Function EgtSetLockType_32(nType As Integer) As Boolean End Function - + Private Function EgtSetLockType_64(nType As Integer) As Boolean End Function Public Function EgtSetLockType(nType As Integer) As Boolean @@ -983,11 +984,11 @@ Public Function EgtSetLockType(nType As Integer) As Boolean End If End Function - + Private Function EgtGetKeyLevel_32(nProd As Integer, nVer As Integer, nLev As Integer, ByRef nKLev As Integer) As Boolean End Function - + Private Function EgtGetKeyLevel_64(nProd As Integer, nVer As Integer, nLev As Integer, ByRef nKLev As Integer) As Boolean End Function @@ -1000,11 +1001,11 @@ Public Function EgtGetKeyLevel(nProd As Integer, nVer As Integer, nLev As Intege End If End Function - + Private Function EgtGetKeyOptions_32(nProd As Integer, nVer As Integer, nLev As Integer, ByRef nOpt2 As UInteger) As Boolean End Function - + Private Function EgtGetKeyOptions_64(nProd As Integer, nVer As Integer, nLev As Integer, ByRef nOpt2 As UInteger) As Boolean End Function @@ -1017,10 +1018,10 @@ Public Function EgtGetKeyOptions(nProd As Integer, nVer As Integer, nLev As Inte End If End Function - + Private Function EgtGetOsInfo_32(ByRef psOsInfo As IntPtr) As Boolean End Function - + Private Function EgtGetOsInfo_64(ByRef psOsInfo As IntPtr) As Boolean End Function Public Function EgtGetOsInfo(ByRef sOsInfo As String) As Boolean @@ -1040,10 +1041,10 @@ Public Function EgtGetOsInfo(ByRef sOsInfo As String) As Boolean Return bOk End Function - + Private Function EgtGetCpuInfo_32(ByRef psCpuInfo As IntPtr) As Boolean End Function - + Private Function EgtGetCpuInfo_64(ByRef psCpuInfo As IntPtr) As Boolean End Function Public Function EgtGetCpuInfo(ByRef sCpuInfo As String) As Boolean @@ -1063,10 +1064,10 @@ Public Function EgtGetCpuInfo(ByRef sCpuInfo As String) As Boolean Return bOk End Function - + Private Function EgtGetMemoryInfo_32(ByRef psMemInfo As IntPtr) As Boolean End Function - + Private Function EgtGetMemoryInfo_64(ByRef psMemInfo As IntPtr) As Boolean End Function Public Function EgtGetMemoryInfo(ByRef sMemInfo As String) As Boolean @@ -1086,10 +1087,10 @@ Public Function EgtGetMemoryInfo(ByRef sMemInfo As String) As Boolean Return bOk End Function - + Private Function EgtFreeMemory_32(sB As IntPtr) As Boolean End Function - + Private Function EgtFreeMemory_64(sB As IntPtr) As Boolean End Function Public Function EgtFreeMemory(sB As IntPtr) As Boolean @@ -1100,10 +1101,10 @@ Public Function EgtFreeMemory(sB As IntPtr) As Boolean End If End Function - + Private Function EgtOutLog_32(sMsg As String) As Boolean End Function - + Private Function EgtOutLog_64(sMsg As String) As Boolean End Function Public Function EgtOutLog(sMsg As String) As Boolean @@ -1116,10 +1117,10 @@ End Function Public Delegate Function ProcessEventsCallback(nProg As Integer, nPause As Integer) As Integer - + Private Function EgtSetProcessEvents_32(Callback As ProcessEventsCallback) As Boolean End Function - + Private Function EgtSetProcessEvents_64(Callback As ProcessEventsCallback) As Boolean End Function Public Function EgtSetProcessEvents(Callback As ProcessEventsCallback) As Boolean @@ -1132,10 +1133,10 @@ End Function Public Delegate Function OutTextCallback(ByRef psText As IntPtr) As Boolean - + Private Function EgtSetOutText_32(Callback As OutTextCallback) As Boolean End Function - + Private Function EgtSetOutText_64(Callback As OutTextCallback) As Boolean End Function Public Function EgtSetOutText(Callback As OutTextCallback) As Boolean @@ -1147,10 +1148,10 @@ Public Function EgtSetOutText(Callback As OutTextCallback) As Boolean End Function '---------- UiUnits ------------------------------------------------------------ - + Private Function EgtSetUiUnits_32(bMM As Boolean) As Boolean End Function - + Private Function EgtSetUiUnits_64(bMM As Boolean) As Boolean End Function Public Function EgtSetUiUnits(bMM As Boolean) As Boolean @@ -1161,10 +1162,10 @@ Public Function EgtSetUiUnits(bMM As Boolean) As Boolean End If End Function - + Private Function EgtUiUnitsAreMM_32() As Boolean End Function - + Private Function EgtUiUnitsAreMM_64() As Boolean End Function Public Function EgtUiUnitsAreMM() As Boolean @@ -1175,10 +1176,10 @@ Public Function EgtUiUnitsAreMM() As Boolean End If End Function - + Private Function EgtFromUiUnits_32(dVal As Double) As Double End Function - + Private Function EgtFromUiUnits_64(dVal As Double) As Double End Function Public Function EgtFromUiUnits(dVal As Double) As Double @@ -1189,10 +1190,10 @@ Public Function EgtFromUiUnits(dVal As Double) As Double End If End Function - + Private Function EgtToUiUnits_32(dVal As Double) As Double End Function - + Private Function EgtToUiUnits_64(dVal As Double) As Double End Function Public Function EgtToUiUnits(dVal As Double) As Double @@ -1205,10 +1206,10 @@ End Function '---------- GeomDb ------------------------------------------------------------- - + Private Function EgtInitContext_32() As Integer End Function - + Private Function EgtInitContext_64() As Integer End Function Public Function EgtInitContext() As Integer @@ -1219,10 +1220,10 @@ Public Function EgtInitContext() As Integer End If End Function - + Private Function EgtDeleteContext_32(nCtx As Integer) As Boolean End Function - + Private Function EgtDeleteContext_64(nCtx As Integer) As Boolean End Function Public Function EgtDeleteContext(nCtx As Integer) As Boolean @@ -1233,10 +1234,10 @@ Public Function EgtDeleteContext(nCtx As Integer) As Boolean End If End Function - + Private Function EgtSetCurrentContext_32(nCtx As Integer) As Boolean End Function - + Private Function EgtSetCurrentContext_64(nCtx As Integer) As Boolean End Function Public Function EgtSetCurrentContext(nCtx As Integer) As Boolean @@ -1247,10 +1248,10 @@ Public Function EgtSetCurrentContext(nCtx As Integer) As Boolean End If End Function - + Private Function EgtResetCurrentContext_32() As Boolean End Function - + Private Function EgtResetCurrentContext_64() As Boolean End Function Public Function EgtResetCurrentContext() As Boolean @@ -1261,10 +1262,10 @@ Public Function EgtResetCurrentContext() As Boolean End If End Function - + Private Function EgtGetCurrentContext_32() As Integer End Function - + Private Function EgtGetCurrentContext_64() As Integer End Function Public Function EgtGetCurrentContext() As Integer @@ -1275,10 +1276,10 @@ Public Function EgtGetCurrentContext() As Integer End If End Function - + Private Function EgtSetDefaultMaterial_32(ByRef DefCol As Color3d) As Boolean End Function - + Private Function EgtSetDefaultMaterial_64(ByRef DefCol As Color3d) As Boolean End Function Public Function EgtSetDefaultMaterial(ByRef DefCol As Color3d) As Boolean @@ -1289,10 +1290,10 @@ Public Function EgtSetDefaultMaterial(ByRef DefCol As Color3d) As Boolean End If End Function - + Private Function EgtSetGridFrame_32(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function - + Private Function EgtSetGridFrame_64(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function Public Function EgtSetGridFrame(ByRef frRef As Frame3d) As Boolean @@ -1303,10 +1304,10 @@ Public Function EgtSetGridFrame(ByRef frRef As Frame3d) As Boolean End If End Function - + Private Function EgtGetGridFrame_32(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function - + Private Function EgtGetGridFrame_64(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function Public Function EgtGetGridFrame() As Frame3d @@ -1371,10 +1372,10 @@ Public Function EgtGetGridVersZ() As Vector3d Return VtDirZ End Function - + Private Function EgtSetCurrFilePath_32(sFilePath As String) As Boolean End Function - + Private Function EgtSetCurrFilePath_64(sFilePath As String) As Boolean End Function Public Function EgtSetCurrFilePath(sFilePath As String) As Boolean @@ -1385,10 +1386,10 @@ Public Function EgtSetCurrFilePath(sFilePath As String) As Boolean End If End Function - + Private Function EgtGetCurrFilePath_32(ByRef psFilePath As IntPtr) As Boolean End Function - + Private Function EgtGetCurrFilePath_64(ByRef psFilePath As IntPtr) As Boolean End Function Public Function EgtGetCurrFilePath(ByRef sFilePath As String) As Boolean @@ -1408,10 +1409,10 @@ Public Function EgtGetCurrFilePath(ByRef sFilePath As String) As Boolean Return bOk End Function - + Private Function EgtEnableModified_32() As Boolean End Function - + Private Function EgtEnableModified_64() As Boolean End Function Public Function EgtEnableModified() As Boolean @@ -1422,10 +1423,10 @@ Public Function EgtEnableModified() As Boolean End If End Function - + Private Function EgtDisableModified_32() As Boolean End Function - + Private Function EgtDisableModified_64() As Boolean End Function Public Function EgtDisableModified() As Boolean @@ -1436,10 +1437,10 @@ Public Function EgtDisableModified() As Boolean End If End Function - + Private Function EgtGetEnableModified_32() As Boolean End Function - + Private Function EgtGetEnableModified_64() As Boolean End Function Public Function EgtGetEnableModified() As Boolean @@ -1450,10 +1451,10 @@ Public Function EgtGetEnableModified() As Boolean End If End Function - + Private Function EgtSetModified_32() As Boolean End Function - + Private Function EgtSetModified_64() As Boolean End Function Public Function EgtSetModified() As Boolean @@ -1464,10 +1465,10 @@ Public Function EgtSetModified() As Boolean End If End Function - + Private Function EgtResetModified_32() As Boolean End Function - + Private Function EgtResetModified_64() As Boolean End Function Public Function EgtResetModified() As Boolean @@ -1478,10 +1479,10 @@ Public Function EgtResetModified() As Boolean End If End Function - + Private Function EgtGetModified_32() As Boolean End Function - + Private Function EgtGetModified_64() As Boolean End Function Public Function EgtGetModified() As Boolean @@ -1492,10 +1493,10 @@ Public Function EgtGetModified() As Boolean End If End Function - + Private Function EgtNewFile_32() As Boolean End Function - + Private Function EgtNewFile_64() As Boolean End Function Public Function EgtNewFile() As Boolean @@ -1506,10 +1507,10 @@ Public Function EgtNewFile() As Boolean End If End Function - + Private Function EgtOpenFile_32(sFilePath As String) As Boolean End Function - + Private Function EgtOpenFile_64(sFilePath As String) As Boolean End Function Public Function EgtOpenFile(sFilePath As String) As Boolean @@ -1520,10 +1521,10 @@ Public Function EgtOpenFile(sFilePath As String) As Boolean End If End Function - + Private Function EgtInsertFile_32(sFilePath As String) As Boolean End Function - + Private Function EgtInsertFile_64(sFilePath As String) As Boolean End Function Public Function EgtInsertFile(sFilePath As String) As Boolean @@ -1534,10 +1535,10 @@ Public Function EgtInsertFile(sFilePath As String) As Boolean End If End Function - + Private Function EgtSaveFile_32(sFilePath As String, nFlag As NGE) As Boolean End Function - + Private Function EgtSaveFile_64(sFilePath As String, nFlag As NGE) As Boolean End Function Public Function EgtSaveFile(sFilePath As String, nFlag As NGE) As Boolean @@ -1548,10 +1549,10 @@ Public Function EgtSaveFile(sFilePath As String, nFlag As NGE) As Boolean End If End Function - + Private Function EgtSaveObjToFile_32(nId As Integer, sFilePath As String, nFlag As NGE) As Boolean End Function - + Private Function EgtSaveObjToFile_64(nId As Integer, sFilePath As String, nFlag As NGE) As Boolean End Function Public Function EgtSaveObjToFile(nId As Integer, sFilePath As String, nFlag As NGE) As Boolean @@ -1564,10 +1565,10 @@ End Function '---------- Exchange ----------------------------------------------------------- - + Private Function EgtGetFileType_32(sFilePath As String) As Integer End Function - + Private Function EgtGetFileType_64(sFilePath As String) As Integer End Function Public Function EgtGetFileType(sFilePath As String) As Integer @@ -1578,10 +1579,10 @@ Public Function EgtGetFileType(sFilePath As String) As Integer End If End Function - + Private Function EgtImportDxf_32(sFilePath As String, dScaleFactor As Double) As Boolean End Function - + Private Function EgtImportDxf_64(sFilePath As String, dScaleFactor As Double) As Boolean End Function Public Function EgtImportDxf(sFilePath As String, dScaleFactor As Double) As Boolean @@ -1592,10 +1593,10 @@ Public Function EgtImportDxf(sFilePath As String, dScaleFactor As Double) As Boo End If End Function - + Private Function EgtImportStl_32(sFilePath As String, dScaleFactor As Double) As Boolean End Function - + Private Function EgtImportStl_64(sFilePath As String, dScaleFactor As Double) As Boolean End Function Public Function EgtImportStl(sFilePath As String, dScaleFactor As Double) As Boolean @@ -1606,10 +1607,10 @@ Public Function EgtImportStl(sFilePath As String, dScaleFactor As Double) As Boo End If End Function - + Private Function EgtImportCnc_32(sFilePath As String) As Boolean End Function - + Private Function EgtImportCnc_64(sFilePath As String) As Boolean End Function Public Function EgtImportCnc(sFilePath As String) As Boolean @@ -1620,10 +1621,10 @@ Public Function EgtImportCnc(sFilePath As String) As Boolean End If End Function - + Private Function EgtImportCsf_32(sFilePath As String) As Boolean End Function - + Private Function EgtImportCsf_64(sFilePath As String) As Boolean End Function Public Function EgtImportCsf(sFilePath As String) As Boolean @@ -1634,10 +1635,10 @@ Public Function EgtImportCsf(sFilePath As String) As Boolean End If End Function - + Private Function EgtImportBtl_32(sFilePath As String, bFlatPos As Boolean, bSpecialTrim As Boolean) As Boolean End Function - + Private Function EgtImportBtl_64(sFilePath As String, bFlatPos As Boolean, bSpecialTrim As Boolean) As Boolean End Function Public Function EgtImportBtl(sFilePath As String, bFlatPos As Boolean, bSpecialTrim As Boolean) As Boolean @@ -1648,10 +1649,10 @@ Public Function EgtImportBtl(sFilePath As String, bFlatPos As Boolean, bSpecialT End If End Function - + Private Function EgtExportDxf_32(nId As Integer, sFilePath As String) As Boolean End Function - + Private Function EgtExportDxf_64(nId As Integer, sFilePath As String) As Boolean End Function Public Function EgtExportDxf(nId As Integer, sFilePath As String) As Boolean @@ -1662,10 +1663,10 @@ Public Function EgtExportDxf(nId As Integer, sFilePath As String) As Boolean End If End Function - + Private Function EgtExportStl_32(nId As Integer, sFilePath As String) As Boolean End Function - + Private Function EgtExportStl_64(nId As Integer, sFilePath As String) As Boolean End Function Public Function EgtExportStl(nId As Integer, sFilePath As String) As Boolean @@ -1678,10 +1679,10 @@ End Function '---------- Tsc Executor ------------------------------------------------------- - + Private Function EgtInitTscExec_32() As Boolean End Function - + Private Function EgtInitTscExec_64() As Boolean End Function Public Function EgtInitTscExec() As Boolean @@ -1692,10 +1693,10 @@ Public Function EgtInitTscExec() As Boolean End If End Function - + Private Function EgtTscExecFile_32(sFilePath As String) As Boolean End Function - + Private Function EgtTscExecFile_64(sFilePath As String) As Boolean End Function Public Function EgtTscExecFile(sFilePath As String) As Boolean @@ -1706,10 +1707,10 @@ Public Function EgtTscExecFile(sFilePath As String) As Boolean End If End Function - + Private Function EgtTscExecLine_32(sLine As String) As Boolean End Function - + Private Function EgtTscExecLine_64(sLine As String) As Boolean End Function Public Function EgtTscExecLine(sLine As String) As Boolean @@ -1722,10 +1723,10 @@ End Function '---------- LUA Executor ------------------------------------------------------- - + Private Function EgtLuaCreateGlobTable_32(sVar As String) As Boolean End Function - + Private Function EgtLuaCreateGlobTable_64(sVar As String) As Boolean End Function Public Function EgtLuaCreateGlobTable(sVar As String) As Boolean @@ -1736,10 +1737,10 @@ Public Function EgtLuaCreateGlobTable(sVar As String) As Boolean End If End Function - + Private Function EgtLuaSetGlobBoolVar_32(sVar As String, bVal As Boolean) As Boolean End Function - + Private Function EgtLuaSetGlobBoolVar_64(sVar As String, bVal As Boolean) As Boolean End Function Public Function EgtLuaSetGlobBoolVar(sVar As String, bVal As Boolean) As Boolean @@ -1750,10 +1751,10 @@ Public Function EgtLuaSetGlobBoolVar(sVar As String, bVal As Boolean) As Boolean End If End Function - + Private Function EgtLuaSetGlobIntVar_32(sVar As String, nVal As Integer) As Boolean End Function - + Private Function EgtLuaSetGlobIntVar_64(sVar As String, nVal As Integer) As Boolean End Function Public Function EgtLuaSetGlobIntVar(sVar As String, nVal As Integer) As Boolean @@ -1764,10 +1765,10 @@ Public Function EgtLuaSetGlobIntVar(sVar As String, nVal As Integer) As Boolean End If End Function - + Private Function EgtLuaSetGlobNumVar_32(sVar As String, dVal As Double) As Boolean End Function - + Private Function EgtLuaSetGlobNumVar_64(sVar As String, dVal As Double) As Boolean End Function Public Function EgtLuaSetGlobNumVar(sVar As String, dVal As Double) As Boolean @@ -1778,10 +1779,10 @@ Public Function EgtLuaSetGlobNumVar(sVar As String, dVal As Double) As Boolean End If End Function - + Private Function EgtLuaSetGlobStringVar_32(sVar As String, sVal As String) As Boolean End Function - + Private Function EgtLuaSetGlobStringVar_64(sVar As String, sVal As String) As Boolean End Function Public Function EgtLuaSetGlobStringVar(sVar As String, sVal As String) As Boolean @@ -1792,10 +1793,10 @@ Public Function EgtLuaSetGlobStringVar(sVar As String, sVal As String) As Boolea End If End Function - + Private Function EgtLuaGetGlobBoolVar_32(sVar As String, ByRef bVal As Boolean) As Boolean End Function - + Private Function EgtLuaGetGlobBoolVar_64(sVar As String, ByRef bVal As Boolean) As Boolean End Function Public Function EgtLuaGetGlobBoolVar(sVar As String, ByRef bVal As Boolean) As Boolean @@ -1806,10 +1807,10 @@ Public Function EgtLuaGetGlobBoolVar(sVar As String, ByRef bVal As Boolean) As B End If End Function - + Private Function EgtLuaGetGlobIntVar_32(sVar As String, ByRef nVal As Integer) As Boolean End Function - + Private Function EgtLuaGetGlobIntVar_64(sVar As String, ByRef nVal As Integer) As Boolean End Function Public Function EgtLuaGetGlobIntVar(sVar As String, ByRef nVal As Integer) As Boolean @@ -1820,10 +1821,10 @@ Public Function EgtLuaGetGlobIntVar(sVar As String, ByRef nVal As Integer) As Bo End If End Function - + Private Function EgtLuaGetGlobNumVar_32(sVar As String, ByRef dVal As Double) As Boolean End Function - + Private Function EgtLuaGetGlobNumVar_64(sVar As String, ByRef dVal As Double) As Boolean End Function Public Function EgtLuaGetGlobNumVar(sVar As String, ByRef dVal As Double) As Boolean @@ -1834,10 +1835,10 @@ Public Function EgtLuaGetGlobNumVar(sVar As String, ByRef dVal As Double) As Boo End If End Function - + Private Function EgtLuaGetGlobStringVar_32(sVar As String, ByRef psVal As IntPtr) As Boolean End Function - + Private Function EgtLuaGetGlobStringVar_64(sVar As String, ByRef psVal As IntPtr) As Boolean End Function Public Function EgtLuaGetGlobStringVar(sVar As String, ByRef sVal As String) As Boolean @@ -1857,10 +1858,10 @@ Public Function EgtLuaGetGlobStringVar(sVar As String, ByRef sVal As String) As Return bOk End Function - + Private Function EgtLuaResetGlobVar_32(sVar As String) As Boolean End Function - + Private Function EgtLuaResetGlobVar_64(sVar As String) As Boolean End Function Public Function EgtLuaResetGlobVar(sVar As String) As Boolean @@ -1871,10 +1872,10 @@ Public Function EgtLuaResetGlobVar(sVar As String) As Boolean End If End Function - + Private Function EgtLuaCallFunction_32(sFun As String) As Boolean End Function - + Private Function EgtLuaCallFunction_64(sFun As String) As Boolean End Function Public Function EgtLuaCallFunction(sFun As String) As Boolean @@ -1885,10 +1886,10 @@ Public Function EgtLuaCallFunction(sFun As String) As Boolean End If End Function - + Private Function EgtLuaEvalNumExpr_32(sLine As String, ByRef dVal As Double) As Boolean End Function - + Private Function EgtLuaEvalNumExpr_64(sLine As String, ByRef dVal As Double) As Boolean End Function Public Function EgtLuaEvalNumExpr(sLine As String, ByRef dVal As Double) As Boolean @@ -1899,10 +1900,10 @@ Public Function EgtLuaEvalNumExpr(sLine As String, ByRef dVal As Double) As Bool End If End Function - + Private Function EgtLuaEvalStringExpr_32(sLine As String, ByRef psVal As IntPtr) As Boolean End Function - + Private Function EgtLuaEvalStringExpr_64(sLine As String, ByRef psVal As IntPtr) As Boolean End Function Public Function EgtLuaEvalStringExpr(sLine As String, ByRef sVal As String) As Boolean @@ -1922,10 +1923,10 @@ Public Function EgtLuaEvalStringExpr(sLine As String, ByRef sVal As String) As B Return bOk End Function - + Private Function EgtLuaExecLine_32(sLine As String) As Boolean End Function - + Private Function EgtLuaExecLine_64(sLine As String) As Boolean End Function Public Function EgtLuaExecLine(sLine As String) As Boolean @@ -1936,10 +1937,10 @@ Public Function EgtLuaExecLine(sLine As String) As Boolean End If End Function - + Private Function EgtLuaExecFile_32(sFilePath As String) As Boolean End Function - + Private Function EgtLuaExecFile_64(sFilePath As String) As Boolean End Function Public Function EgtLuaExecFile(sFilePath As String) As Boolean @@ -1950,10 +1951,10 @@ Public Function EgtLuaExecFile(sFilePath As String) As Boolean End If End Function - + Private Function EgtLuaRequire_32(sFilePath As String) As Boolean End Function - + Private Function EgtLuaRequire_64(sFilePath As String) As Boolean End Function Public Function EgtLuaRequire(sFilePath As String) As Boolean @@ -1964,10 +1965,10 @@ Public Function EgtLuaRequire(sFilePath As String) As Boolean End If End Function - + Private Function EgtLuaGetLastError_32(ByRef psError As IntPtr) As Boolean End Function - + Private Function EgtLuaGetLastError_64(ByRef psError As IntPtr) As Boolean End Function Public Function EgtLuaGetLastError(ByRef sError As String) As Boolean @@ -1989,11 +1990,11 @@ End Function '---------- GeomDb Objects Create ---------------------------------------------- - + 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(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 @@ -2012,11 +2013,11 @@ Public Function EgtCreateGroup(nParentId As Integer) As Integer End If End Function - + 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(nParentId As Integer, ByRef PtP As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function @@ -2029,11 +2030,11 @@ Public Function EgtCreateGeoPoint(nParentId As Integer, End If End Function - + 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(nParentId As Integer, ByRef vtV As Vector3d, ByRef PtB As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function @@ -2046,11 +2047,11 @@ Public Function EgtCreateGeoVector(nParentId As Integer, End If End Function - + 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(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 @@ -2062,11 +2063,11 @@ Public Function EgtCreateGeoFrame(nParentId As Integer, ByRef frRef As Frame3d, End If End Function - + 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(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function @@ -2079,12 +2080,12 @@ Public Function EgtCreateLine(nParentId As Integer, End If End Function - + 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(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 @@ -2099,11 +2100,11 @@ Public Function EgtCreateLineEx(nParentId As Integer, End If End Function - + 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(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 @@ -2116,11 +2117,11 @@ Public Function EgtCreateLinePDL(nParentId As Integer, End If End Function - + 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(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 @@ -2133,11 +2134,11 @@ Public Function EgtCreateLinePVL(nParentId As Integer, End If End Function - + 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(nParentId As Integer, ByRef PtCen As Point3d, dRad As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function @@ -2150,11 +2151,11 @@ Public Function EgtCreateCircle(nParentId As Integer, End If End Function - + 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(nParentId As Integer, ByRef PtCen As Point3d, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function @@ -2167,12 +2168,12 @@ Public Function EgtCreateCircleCP(nParentId As Integer, End If End Function - + 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(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 @@ -2187,11 +2188,11 @@ Public Function EgtCreateCircleCPEx(nParentId As Integer, ByRef PtCen As Point3d End If End Function - + 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(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 @@ -2204,12 +2205,12 @@ Public Function EgtCreateArc3P(nParentId As Integer, End If End Function - + Private Function EgtCreateArcC2P_32(nParentId As Integer, ByRef PtCen As Point3d, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function - + Private Function EgtCreateArcC2P_64(nParentId As Integer, ByRef PtCen As Point3d, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer @@ -2224,12 +2225,12 @@ Public Function EgtCreateArcC2P(nParentId As Integer, End If End Function - + 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(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 @@ -2244,11 +2245,11 @@ Public Function EgtCreateArcC2PEx(nParentId As Integer, End If End Function - + 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(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 @@ -2261,12 +2262,12 @@ Public Function EgtCreateArc2PD(nParentId As Integer, ByRef PtStart As Point3d, End If End Function - + 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(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 @@ -2281,12 +2282,12 @@ Public Function EgtCreateArc2PDEx(nParentId As Integer, ByRef PtStart As Point3d End If End Function - + Private Function EgtCreateArc2PV_32(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, ByRef VtDirS As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function - + Private Function EgtCreateArc2PV_64(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtEnd As Point3d, ByRef VtDirS As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer @@ -2301,12 +2302,12 @@ Public Function EgtCreateArc2PV(nParentId As Integer, End If End Function - + 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(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 @@ -2321,12 +2322,12 @@ Public Function EgtCreateBiArc(nParentId As Integer, ByRef PtStart As Point3d, B End If End Function - + 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(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 @@ -2341,12 +2342,12 @@ Public Function EgtCreateCurveFillet(nParentId As Integer, nCrv1 As Integer, ByR End If End Function - + 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(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 @@ -2361,11 +2362,11 @@ Public Function EgtCreateCurveChamfer(nParentId As Integer, nCrv1 As Integer, By End If End Function - + 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(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 @@ -2378,12 +2379,12 @@ Public Function EgtCreateCurveCompoByChain(nParentId As Integer, nNumCrv As Inte End If End Function - + Private Function EgtCreateRectangle2P_32(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtCross As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function - + Private Function EgtCreateRectangle2P_64(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtCross As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer @@ -2398,12 +2399,12 @@ Public Function EgtCreateRectangle2P(nParentId As Integer, End If End Function - + Private Function EgtCreateRectangle3P_32(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtCross As Point3d, ByRef PtDir As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function - + Private Function EgtCreateRectangle3P_64(nParentId As Integer, ByRef PtStart As Point3d, ByRef PtCross As Point3d, ByRef PtDir As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer @@ -2418,11 +2419,11 @@ Public Function EgtCreateRectangle3P(nParentId As Integer, End If End Function - + 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(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 @@ -2435,11 +2436,11 @@ Public Function EgtCreatePolygonFromRadius(nParentId As Integer, nNumSides As In End If End Function - + 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(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 @@ -2452,11 +2453,11 @@ Public Function EgtCreatePolygonFromApothem(nParentId As Integer, nNumSides As I End If End Function - + 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(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 @@ -2469,11 +2470,11 @@ Public Function EgtCreatePolygonFromSide(nParentId As Integer, nNumSides As Inte End If End Function - + 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(nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function @@ -2486,10 +2487,10 @@ Public Function EgtCreateSurfFrRectangle(nParentId As Integer, ByRef ptMin As Po End If End Function - + Private Function EgtCreateSurfFlatRegion_32(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer) As Integer End Function - + Private Function EgtCreateSurfFlatRegion_64(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer) As Integer End Function Public Function EgtCreateSurfFlatRegion(nParentId As Integer, nCrvId() As Integer) As Integer @@ -2509,11 +2510,11 @@ Public Function EgtCreateSurfFlatRegion(nParentId As Integer, nCrvId As Integer) End If End Function - + 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(nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function @@ -2534,10 +2535,10 @@ Public Function EgtCreateSurfTmBBox(nParentId As Integer, ByRef b3Box As BBox3d, End If End Function - + Private Function EgtCreateSurfTmByFlatContour_32(nParentId As Integer, nCrvId As Integer, dLinTol As Double) As Integer End Function - + Private Function EgtCreateSurfTmByFlatContour_64(nParentId As Integer, nCrvId As Integer, dLinTol As Double) As Integer End Function Public Function EgtCreateSurfTmByFlatContour(nParentId As Integer, nCrvId As Integer, dLinTol As Double) As Integer @@ -2548,10 +2549,10 @@ Public Function EgtCreateSurfTmByFlatContour(nParentId As Integer, nCrvId As Int End If End Function - + Private Function EgtCreateSurfTmByRegion_32(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, dLinTol As Double) As Integer End Function - + Private Function EgtCreateSurfTmByRegion_64(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer, dLinTol As Double) As Integer End Function Public Function EgtCreateSurfTmByRegion(nParentId As Integer, nCrvId() As Integer, dLinTol As Double) As Integer @@ -2562,12 +2563,12 @@ Public Function EgtCreateSurfTmByRegion(nParentId As Integer, nCrvId() As Intege End If End Function - + 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(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 @@ -2582,12 +2583,12 @@ Public Function EgtCreateSurfTmByExtrusion(nParentId As Integer, nNumCrv As Inte End If End Function - + 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(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 @@ -2602,13 +2603,13 @@ Public Function EgtCreateSurfTmByRegionExtrusion(nParentId As Integer, nNumCrv A End If End Function - + Private Function EgtCreateSurfTmByRevolve_32(nParentId As Integer, nCrvId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, bCapEnds As Boolean, dLinTol As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function - + Private Function EgtCreateSurfTmByRevolve_64(nParentId As Integer, nCrvId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, bCapEnds As Boolean, dLinTol As Double, @@ -2625,13 +2626,13 @@ Public Function EgtCreateSurfTmByRevolve(nParentId As Integer, nCrvId As Integer End If End Function - + Private Function EgtCreateSurfTmByScrewing_32(nParentId As Integer, nCrvId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, 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(nParentId As Integer, nCrvId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double, dMove As Double, @@ -2648,10 +2649,10 @@ Public Function EgtCreateSurfTmByScrewing(nParentId As Integer, nCrvId As Intege End If End Function - + Private Function EgtCreateSurfTmRuled_32(nParentId As Integer, nCrvId1 As Integer, nCrvId2 As Integer, dLinTol As Double) As Integer End Function - + Private Function EgtCreateSurfTmRuled_64(nParentId As Integer, nCrvId1 As Integer, nCrvId2 As Integer, dLinTol As Double) As Integer End Function Public Function EgtCreateSurfTmRuled(nParentId As Integer, nCrvId1 As Integer, nCrvId2 As Integer, dLinTol As Double) As Integer @@ -2662,10 +2663,10 @@ Public Function EgtCreateSurfTmRuled(nParentId As Integer, nCrvId1 As Integer, n End If End Function - + Private Function EgtCreateSurfTmByTriangles_32(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer End Function - + Private Function EgtCreateSurfTmByTriangles_64(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer End Function Public Function EgtCreateSurfTmByTriangles(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer @@ -2676,10 +2677,10 @@ Public Function EgtCreateSurfTmByTriangles(nParentId As Integer, nNumSrf As Inte End If End Function - + Private Function EgtCreateSurfTmBySewing_32(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer End Function - + Private Function EgtCreateSurfTmBySewing_64(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer End Function Public Function EgtCreateSurfTmBySewing(nParentId As Integer, nNumSrf As Integer, nSrfId() As Integer, bSrfErase As Boolean) As Integer @@ -2690,11 +2691,11 @@ Public Function EgtCreateSurfTmBySewing(nParentId As Integer, nNumSrf As Integer End If End Function - + 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(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 @@ -2707,12 +2708,12 @@ Public Function EgtCreateText(nParentId As Integer, ByRef ptP As Point3d, End If End Function - + 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(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 @@ -2727,13 +2728,13 @@ Public Function EgtCreateTextEx(nParentId As Integer, ByRef ptP As Point3d, dAng End If End Function - + 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(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, @@ -2752,11 +2753,11 @@ End Function '---------- GeomDb Objects Modify ---------------------------------------------- - + 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(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 @@ -2768,10 +2769,10 @@ Public Function EgtChangeGroupFrame(nId As Integer, ByRef frRef As Frame3d, Opti End If End Function - + 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(nId As Integer, ByRef PtBase As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtChangeVectorBase(nId As Integer, ByRef PtBase As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -2782,10 +2783,10 @@ Public Function EgtChangeVectorBase(nId As Integer, ByRef PtBase As Point3d, Opt End If End Function - + Private Function EgtFlipText_32(nId As Integer) As Boolean End Function - + Private Function EgtFlipText_64(nId As Integer) As Boolean End Function Public Function EgtFlipText(nId As Integer) As Boolean @@ -2796,10 +2797,10 @@ Public Function EgtFlipText(nId As Integer) As Boolean End If End Function - + Private Function EgtMirrorText_32(nId As Integer, bOnL As Boolean) As Boolean End Function - + Private Function EgtMirrorText_64(nId As Integer, bOnL As Boolean) As Boolean End Function Public Function EgtMirrorText(nId As Integer, bOnL As Boolean) As Boolean @@ -2810,10 +2811,10 @@ Public Function EgtMirrorText(nId As Integer, bOnL As Boolean) As Boolean End If End Function - + Private Function EgtExplodeText_32(nId As Integer, ByRef nCount As Integer) As Integer End Function - + Private Function EgtExplodeText_64(nId As Integer, ByRef nCount As Integer) As Integer End Function Public Function EgtExplodeText(nId As Integer, ByRef nCount As Integer) As Integer @@ -2826,10 +2827,10 @@ End Function '---------- GeomDb Curves Modify ----------------------------------------------- - + Private Function EgtInvertCurve_32(nId As Integer) As Boolean End Function - + Private Function EgtInvertCurve_64(nId As Integer) As Boolean End Function Public Function EgtInvertCurve(nId As Integer) As Boolean @@ -2840,10 +2841,10 @@ Public Function EgtInvertCurve(nId As Integer) As Boolean End If End Function - + Private Function EgtOffsetCurve_32(nId As Integer, dDist As Double, nType As OFF_TYPE) As Boolean End Function - + Private Function EgtOffsetCurve_64(nId As Integer, dDist As Double, nType As OFF_TYPE) As Boolean End Function Public Function EgtOffsetCurve(nId As Integer, dDist As Double, nType As OFF_TYPE) As Boolean @@ -2854,10 +2855,10 @@ Public Function EgtOffsetCurve(nId As Integer, dDist As Double, nType As OFF_TYP End If End Function - + 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(nId As Integer, dDist As Double, nType As OFF_TYPE, ByRef nCount As Integer) As Integer End Function Public Function EgtOffsetCurveAdv(nId As Integer, dDist As Double, nType As OFF_TYPE, ByRef nCount As Integer) As Integer @@ -2868,10 +2869,10 @@ Public Function EgtOffsetCurveAdv(nId As Integer, dDist As Double, nType As OFF_ End If End Function - + Private Function EgtApproxCurve_32(nId As Integer, nApprType As Integer, dLinTol As Double) As Boolean End Function - + Private Function EgtApproxCurve_64(nId As Integer, nApprType As Integer, dLinTol As Double) As Boolean End Function Public Function EgtApproxCurve(nId As Integer, nApprType As Integer, dLinTol As Double) As Boolean @@ -2882,10 +2883,10 @@ Public Function EgtApproxCurve(nId As Integer, nApprType As Integer, dLinTol As End If End Function - + Private Function EgtProjectCurveOnPlane_32(nId As Integer, ByRef PtOn As Point3d, ByRef VtN As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function - + Private Function EgtProjectCurveOnPlane_64(nId As Integer, ByRef PtOn As Point3d, ByRef VtN As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtProjectCurveOnPlane(nId As Integer, ByRef PtOn As Point3d, ByRef VtN As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -2896,10 +2897,10 @@ Public Function EgtProjectCurveOnPlane(nId As Integer, ByRef PtOn As Point3d, By End If End Function - + 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(nId As Integer, ByRef PtStart As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtChangeClosedCurveStartPoint(nId As Integer, ByRef PtStart As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -2910,10 +2911,10 @@ Public Function EgtChangeClosedCurveStartPoint(nId As Integer, ByRef PtStart As End If End Function - + 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(nId As Integer, ByRef PtStart As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtModifyCurveStartPoint(nId As Integer, ByRef PtStart As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -2924,10 +2925,10 @@ Public Function EgtModifyCurveStartPoint(nId As Integer, ByRef PtStart As Point3 End If End Function - + 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(nId As Integer, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtModifyCurveEndPoint(nId As Integer, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -2938,10 +2939,10 @@ Public Function EgtModifyCurveEndPoint(nId As Integer, ByRef PtEnd As Point3d, O End If End Function - + 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(nId As Integer, ByRef VtExtr As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtModifyCurveExtrusion(nId As Integer, ByRef VtExtr As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -2952,10 +2953,10 @@ Public Function EgtModifyCurveExtrusion(nId As Integer, ByRef VtExtr As Vector3d End If End Function - + Private Function EgtModifyCurveThickness_32(nId As Integer, dTh As Double) As Boolean End Function - + Private Function EgtModifyCurveThickness_64(nId As Integer, dTh As Double) As Boolean End Function Public Function EgtModifyCurveThickness(nId As Integer, dTh As Double) As Boolean @@ -2966,10 +2967,10 @@ Public Function EgtModifyCurveThickness(nId As Integer, dTh As Double) As Boolea End If End Function - + Private Function EgtExtendCurveStartByLen_32(nId As Integer, dLen As Double) As Boolean End Function - + Private Function EgtExtendCurveStartByLen_64(nId As Integer, dLen As Double) As Boolean End Function Public Function EgtExtendCurveStartByLen(nId As Integer, dLen As Double) As Boolean @@ -2980,10 +2981,10 @@ Public Function EgtExtendCurveStartByLen(nId As Integer, dLen As Double) As Bool End If End Function - + Private Function EgtExtendCurveEndByLen_32(nId As Integer, dLen As Double) As Boolean End Function - + Private Function EgtExtendCurveEndByLen_64(nId As Integer, dLen As Double) As Boolean End Function Public Function EgtExtendCurveEndByLen(nId As Integer, dLen As Double) As Boolean @@ -2994,10 +2995,10 @@ Public Function EgtExtendCurveEndByLen(nId As Integer, dLen As Double) As Boolea End If End Function - + 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(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(nId As Integer, dLen As Double, ByRef PtNear As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -3008,10 +3009,10 @@ Public Function EgtTrimExtendCurveByLen(nId As Integer, dLen As Double, ByRef Pt End If End Function - + Private Function EgtSplitCurve_32(nId As Integer, nParts As Integer) As Integer End Function - + Private Function EgtSplitCurve_64(nId As Integer, nParts As Integer) As Integer End Function Public Function EgtSplitCurve(nId As Integer, nParts As Integer) As Integer @@ -3022,10 +3023,10 @@ Public Function EgtSplitCurve(nId As Integer, nParts As Integer) As Integer End If End Function - + 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(nId As Integer, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer End Function Public Function EgtSplitCurveAtPoint(nId As Integer, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer @@ -3036,10 +3037,10 @@ Public Function EgtSplitCurveAtPoint(nId As Integer, ByRef PtOn As Point3d, Opti End If End Function - + 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(nId As Integer, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtModifyCircleCP(nId As Integer, ByRef PtOn As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -3050,10 +3051,10 @@ Public Function EgtModifyCircleCP(nId As Integer, ByRef PtOn As Point3d, Optiona End If End Function - + Private Function EgtModifyArcRadius_32(nId As Integer, dRad As Double) As Boolean End Function - + Private Function EgtModifyArcRadius_64(nId As Integer, dRad As Double) As Boolean End Function Public Function EgtModifyArcRadius(nId As Integer, dRad As Double) As Boolean @@ -3064,10 +3065,10 @@ Public Function EgtModifyArcRadius(nId As Integer, dRad As Double) As Boolean End If End Function - + 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(nId As Integer, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtModifyArcC2P(nId As Integer, ByRef PtEnd As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -3078,10 +3079,10 @@ Public Function EgtModifyArcC2P(nId As Integer, ByRef PtEnd As Point3d, Optional End If End Function - + 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(nId As Integer, ByRef PtMid As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtModifyArc3P(nId As Integer, ByRef PtMid As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -3092,10 +3093,10 @@ Public Function EgtModifyArc3P(nId As Integer, ByRef PtMid As Point3d, Optional End If End Function - + Private Function EgtCloseCurveCompo_32(nId As Integer) As Boolean End Function - + Private Function EgtCloseCurveCompo_64(nId As Integer) As Boolean End Function Public Function EgtCloseCurveCompo(nId As Integer) As Boolean @@ -3106,10 +3107,10 @@ Public Function EgtCloseCurveCompo(nId As Integer) As Boolean End If End Function - + Private Function EgtAddCurveCompoLine_32(nId As Integer, ByRef PtNew As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function - + Private Function EgtAddCurveCompoLine_64(nId As Integer, ByRef PtNew As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtAddCurveCompoLine(nId As Integer, ByRef PtNew As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -3120,10 +3121,10 @@ Public Function EgtAddCurveCompoLine(nId As Integer, ByRef PtNew As Point3d, Opt End If End Function - + Private Function EgtAddCurveCompoArcTg_32(nId As Integer, ByRef PtNew As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function - + Private Function EgtAddCurveCompoArcTg_64(nId As Integer, ByRef PtNew As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtAddCurveCompoArcTg(nId As Integer, ByRef PtNew As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -3134,10 +3135,10 @@ Public Function EgtAddCurveCompoArcTg(nId As Integer, ByRef PtNew As Point3d, Op End If End Function - + Private Function EgtAddCurveCompoArc2P_32(nId As Integer, ByRef PtMid As Point3d, ByRef PtNew As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function - + Private Function EgtAddCurveCompoArc2P_64(nId As Integer, ByRef PtMid As Point3d, ByRef PtNew As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtAddCurveCompoArc2P(nId As Integer, ByRef PtMid As Point3d, ByRef PtNew As Point3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -3148,10 +3149,10 @@ Public Function EgtAddCurveCompoArc2P(nId As Integer, ByRef PtMid As Point3d, By 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 @@ -3162,10 +3163,10 @@ Public Function EgtAddCurveCompoJoint(nId As Integer, dU As Double) As Boolean 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 @@ -3176,10 +3177,10 @@ Public Function EgtModifyCurveCompoJoint(nId As Integer, nU As Integer, ByRef Pt End If End Function - + Private Function EgtGetCurveCompoJointCount_32(nId As Integer) As Integer End Function - + Private Function EgtGetCurveCompoJointCount_64(nId As Integer) As Integer End Function Public Function EgtGetCurveCompoJointCount(nId As Integer) As Integer @@ -3190,10 +3191,10 @@ Public Function EgtGetCurveCompoJointCount(nId As Integer) As Integer 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 @@ -3204,10 +3205,10 @@ Public Function EgtRemoveCurveCompoJoint(nId As Integer, nU As Integer) As Boole End If End Function - + Private Function EgtExplodeCurveCompo_32(nId As Integer, ByRef nCount As Integer) As Integer End Function - + Private Function EgtExplodeCurveCompo_64(nId As Integer, ByRef nCount As Integer) As Integer End Function Public Function EgtExplodeCurveCompo(nId As Integer, ByRef nCount As Integer) As Integer @@ -3218,10 +3219,10 @@ Public Function EgtExplodeCurveCompo(nId As Integer, ByRef nCount As Integer) As End If End Function - + Private Function EgtMergeCurvesInCurveCompo_32(nId As Integer, dLinTol As Double, bStartEnd As Boolean) As Boolean End Function - + Private Function EgtMergeCurvesInCurveCompo_64(nId As Integer, dLinTol As Double, bStartEnd As Boolean) As Boolean End Function Public Function EgtMergeCurvesInCurveCompo(nId As Integer, dLinTol As Double, Optional bStartEnd As Boolean = True) As Boolean @@ -3234,10 +3235,10 @@ End Function '---------- GeomDb Surfaces Modify --------------------------------------------- - + Private Function EgtInvertSurface_32(nId As Integer) As Boolean End Function - + Private Function EgtInvertSurface_64(nId As Integer) As Boolean End Function Public Function EgtInvertSurface(nId As Integer) As Boolean @@ -3248,10 +3249,10 @@ Public Function EgtInvertSurface(nId As Integer) As Boolean End If End Function - + Private Function EgtExplodeSurface_32(nId As Integer, ByRef nCount As Integer) As Integer End Function - + Private Function EgtExplodeSurface_64(nId As Integer, ByRef nCount As Integer) As Integer End Function Public Function EgtExplodeSurface(nId As Integer, ByRef nCount As Integer) As Integer @@ -3264,10 +3265,10 @@ End Function '---------- GeomDb Parts & Layers ---------------------------------------------- - + Private Function EgtIsPart_32(nPartId As Integer) As Boolean End Function - + Private Function EgtIsPart_64(nPartId As Integer) As Boolean End Function Public Function EgtIsPart(nPartId As Integer) As Boolean @@ -3278,10 +3279,10 @@ Public Function EgtIsPart(nPartId As Integer) As Boolean End If End Function - + Private Function EgtIsLayer_32(nLayerId As Integer) As Boolean End Function - + Private Function EgtIsLayer_64(nLayerId As Integer) As Boolean End Function Public Function EgtIsLayer(nLayerId As Integer) As Boolean @@ -3292,10 +3293,10 @@ Public Function EgtIsLayer(nLayerId As Integer) As Boolean End If End Function - + Private Function EgtGetCurrPart_32() As Integer End Function - + Private Function EgtGetCurrPart_64() As Integer End Function Public Function EgtGetCurrPart() As Integer @@ -3306,10 +3307,10 @@ Public Function EgtGetCurrPart() As Integer End If End Function - + Private Function EgtGetCurrLayer_32() As Integer End Function - + Private Function EgtGetCurrLayer_64() As Integer End Function Public Function EgtGetCurrLayer() As Integer @@ -3320,10 +3321,10 @@ Public Function EgtGetCurrLayer() As Integer End If End Function - + Private Function EgtSetCurrPartLayer_32(nPartId As Integer, nLayerId As Integer) As Integer End Function - + Private Function EgtSetCurrPartLayer_64(nPartId As Integer, nLayerId As Integer) As Integer End Function Public Function EgtSetCurrPartLayer(nPartId As Integer, nLayerId As Integer) As Integer @@ -3334,10 +3335,10 @@ Public Function EgtSetCurrPartLayer(nPartId As Integer, nLayerId As Integer) As End If End Function - + Private Function EgtResetCurrPartLayer_32() As Integer End Function - + Private Function EgtResetCurrPartLayer_64() As Integer End Function Public Function EgtResetCurrPartLayer() As Integer @@ -3348,10 +3349,10 @@ Public Function EgtResetCurrPartLayer() As Integer End If End Function - + Private Function EgtGetFirstPart_32(Optional bOnlyVisible As Boolean = False) As Integer End Function - + Private Function EgtGetFirstPart_64(Optional bOnlyVisible As Boolean = False) As Integer End Function Public Function EgtGetFirstPart(Optional bOnlyVisible As Boolean = False) As Integer @@ -3362,10 +3363,10 @@ Public Function EgtGetFirstPart(Optional bOnlyVisible As Boolean = False) As Int End If End Function - + Private Function EgtGetNextPart_32(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function - + Private Function EgtGetNextPart_64(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function Public Function EgtGetNextPart(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer @@ -3376,10 +3377,10 @@ Public Function EgtGetNextPart(nPartId As Integer, Optional bOnlyVisible As Bool End If End Function - + Private Function EgtGetLastPart_32(Optional bOnlyVisible As Boolean = False) As Integer End Function - + Private Function EgtGetLastPart_64(Optional bOnlyVisible As Boolean = False) As Integer End Function Public Function EgtGetLastPart(Optional bOnlyVisible As Boolean = False) As Integer @@ -3390,10 +3391,10 @@ Public Function EgtGetLastPart(Optional bOnlyVisible As Boolean = False) As Inte End If End Function - + Private Function EgtGetPrevPart_32(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function - + Private Function EgtGetPrevPart_64(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function Public Function EgtGetPrevPart(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer @@ -3404,10 +3405,10 @@ Public Function EgtGetPrevPart(nPartId As Integer, Optional bOnlyVisible As Bool End If End Function - + Private Function EgtGetFirstLayer_32(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function - + Private Function EgtGetFirstLayer_64(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function Public Function EgtGetFirstLayer(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer @@ -3418,10 +3419,10 @@ Public Function EgtGetFirstLayer(nPartId As Integer, Optional bOnlyVisible As Bo End If End Function - + Private Function EgtGetNextLayer_32(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function - + Private Function EgtGetNextLayer_64(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function Public Function EgtGetNextLayer(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer @@ -3432,10 +3433,10 @@ Public Function EgtGetNextLayer(nLayerId As Integer, Optional bOnlyVisible As Bo End If End Function - + Private Function EgtGetLastLayer_32(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function - + Private Function EgtGetlastLayer_64(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function Public Function EgtGetLastLayer(nPartId As Integer, Optional bOnlyVisible As Boolean = False) As Integer @@ -3446,10 +3447,10 @@ Public Function EgtGetLastLayer(nPartId As Integer, Optional bOnlyVisible As Boo End If End Function - + Private Function EgtGetPrevLayer_32(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function - + Private Function EgtGetPrevLayer_64(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer End Function Public Function EgtGetPrevLayer(nLayerId As Integer, Optional bOnlyVisible As Boolean = False) As Integer @@ -3460,10 +3461,10 @@ Public Function EgtGetPrevLayer(nLayerId As Integer, Optional bOnlyVisible As Bo End If End Function - + Private Function EgtEraseEmptyParts_32() As Boolean End Function - + Private Function EgtEraseEmptyParts_64() As Boolean End Function Public Function EgtEraseEmptyParts() As Boolean @@ -3474,10 +3475,10 @@ Public Function EgtEraseEmptyParts() As Boolean End If End Function - + Private Function EgtSelectPartObjs_32(nPartId As Integer) As Boolean End Function - + Private Function EgtSelectPartObjs_64(nPartId As Integer) As Boolean End Function Public Function EgtSelectPartObjs(nPartId As Integer) As Boolean @@ -3488,10 +3489,10 @@ Public Function EgtSelectPartObjs(nPartId As Integer) As Boolean End If End Function - + Private Function EgtDeselectPartObjs_32(nPartId As Integer) As Boolean End Function - + Private Function EgtDeselectPartObjs_64(nPartId As Integer) As Boolean End Function Public Function EgtDeselectPartObjs(nPartId As Integer) As Boolean @@ -3502,10 +3503,10 @@ Public Function EgtDeselectPartObjs(nPartId As Integer) As Boolean End If End Function - + Private Function EgtSelectLayerObjs_32(nLayerId As Integer) As Boolean End Function - + Private Function EgtSelectLayerObjs_64(nLayerId As Integer) As Boolean End Function Public Function EgtSelectLayerObjs(nLayerId As Integer) As Boolean @@ -3516,10 +3517,10 @@ Public Function EgtSelectLayerObjs(nLayerId As Integer) As Boolean End If End Function - + Private Function EgtDeselectLayerObjs_32(nLayerId As Integer) As Boolean End Function - + Private Function EgtDeselectLayerObjs_64(nLayerId As Integer) As Boolean End Function Public Function EgtDeselectLayerObjs(nLayerId As Integer) As Boolean @@ -3530,10 +3531,10 @@ Public Function EgtDeselectLayerObjs(nLayerId As Integer) As Boolean End If End Function - + Private Function EgtSelectPathObjs_32(nId As Integer, bHaltOnFork As Boolean) As Boolean End Function - + Private Function EgtSelectPathObjs_64(nId As Integer, bHaltOnFork As Boolean) As Boolean End Function Public Function EgtSelectPathObjs(nId As Integer, bHaltOnFork As Boolean) As Boolean @@ -3546,10 +3547,10 @@ End Function '---------- GeomDb Objects ----------------------------------------------------- - + Private Function EgtExistsObj_32(nId As Integer) As Boolean End Function - + Private Function EgtExistsObj_64(nId As Integer) As Boolean End Function Public Function EgtExistsObj(nId As Integer) As Boolean @@ -3560,10 +3561,10 @@ Public Function EgtExistsObj(nId As Integer) As Boolean End If End Function - + Private Function EgtGetParent_32(nId As Integer) As Integer End Function - + Private Function EgtGetParent_64(nId As Integer) As Integer End Function Public Function EgtGetParent(nId As Integer) As Integer @@ -3574,22 +3575,22 @@ Public Function EgtGetParent(nId As Integer) As Integer End If End Function - -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 + +Private Function EgtGetGlobFrame_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(nId As Integer, - ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean + +Private Function EgtGetGlobFrame_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(nId As Integer, ByRef frGRef As Frame3d) As Boolean +Public Function EgtGetGlobFrame(nId As Integer, ByRef frGRef As Frame3d) As Boolean Dim PtOrig As Point3d Dim VtDirX, VtDirY, VtDirZ As Vector3d Dim bOk As Boolean If IntPtr.Size = 4 Then - bOk = EgtGetGroupGlobFrame_32(nId, PtOrig, VtDirX, VtDirY, VtDirZ) + bOk = EgtGetGlobFrame_32(nId, PtOrig, VtDirX, VtDirY, VtDirZ) Else - bOk = EgtGetGroupGlobFrame_64(nId, PtOrig, VtDirX, VtDirY, VtDirZ) + bOk = EgtGetGlobFrame_64(nId, PtOrig, VtDirX, VtDirY, VtDirZ) End If If Not bOk Then Return False @@ -3598,10 +3599,34 @@ Public Function EgtGetGroupGlobFrame(nId As Integer, ByRef frGRef As Frame3d) As End If End Function - + +Private Function EgtGetGroupGlobFrame_32(nGroupId 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(nGroupId 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(nGroupId As Integer, ByRef frGRef As Frame3d) As Boolean + Dim PtOrig As Point3d + Dim VtDirX, VtDirY, VtDirZ As Vector3d + Dim bOk As Boolean + If IntPtr.Size = 4 Then + bOk = EgtGetGroupGlobFrame_32(nGroupId, PtOrig, VtDirX, VtDirY, VtDirZ) + Else + bOk = EgtGetGroupGlobFrame_64(nGroupId, PtOrig, VtDirX, VtDirY, VtDirZ) + End If + If Not bOk Then + Return False + Else + Return frGRef.Setup(PtOrig, VtDirX, VtDirY, VtDirZ) + End If +End Function + + Private Function EgtGetGroupObjs_32(nGroupId As Integer) As Integer End Function - + Private Function EgtGetGroupObjs_64(nGroupId As Integer) As Integer End Function Public Function EgtGetGroupObjs(nGroupId As Integer) As Integer @@ -3612,10 +3637,10 @@ Public Function EgtGetGroupObjs(nGroupId As Integer) As Integer End If End Function - + Private Function EgtGetFirstInGroup_32(nGroupId As Integer) As Integer End Function - + Private Function EgtGetFirstInGroup_64(nGroupId As Integer) As Integer End Function Public Function EgtGetFirstInGroup(nGroupId As Integer) As Integer @@ -3626,10 +3651,10 @@ Public Function EgtGetFirstInGroup(nGroupId As Integer) As Integer End If End Function - + Private Function EgtGetNext_32(nId As Integer) As Integer End Function - + Private Function EgtGetNext_64(nId As Integer) As Integer End Function Public Function EgtGetNext(nId As Integer) As Integer @@ -3640,10 +3665,10 @@ Public Function EgtGetNext(nId As Integer) As Integer End If End Function - + Private Function EgtGetLastInGroup_32(nGroupId As Integer) As Integer End Function - + Private Function EgtGetLastInGroup_64(nGroupId As Integer) As Integer End Function Public Function EgtGetLastInGroup(nGroupId As Integer) As Integer @@ -3654,10 +3679,10 @@ Public Function EgtGetLastInGroup(nGroupId As Integer) As Integer End If End Function - + Private Function EgtGetPrev_32(nId As Integer) As Integer End Function - + Private Function EgtGetPrev_64(nId As Integer) As Integer End Function Public Function EgtGetPrev(nId As Integer) As Integer @@ -3668,10 +3693,10 @@ Public Function EgtGetPrev(nId As Integer) As Integer End If End Function - + Private Function EgtGetFirstGroupInGroup_32(nGroupId As Integer) As Integer End Function - + Private Function EgtGetFirstGroupInGroup_64(nGroupId As Integer) As Integer End Function Public Function EgtGetFirstGroupInGroup(nGroupId As Integer) As Integer @@ -3682,10 +3707,10 @@ Public Function EgtGetFirstGroupInGroup(nGroupId As Integer) As Integer End If End Function - + Private Function EgtGetNextGroup_32(nId As Integer) As Integer End Function - + Private Function EgtGetNextGroup_64(nId As Integer) As Integer End Function Public Function EgtGetNextGroup(nId As Integer) As Integer @@ -3696,10 +3721,10 @@ Public Function EgtGetNextGroup(nId As Integer) As Integer End If End Function - + Private Function EgtGetLastGroupInGroup_32(nGroupId As Integer) As Integer End Function - + Private Function EgtGetLastGroupInGroup_64(nGroupId As Integer) As Integer End Function Public Function EgtGetLastGroupInGroup(nGroupId As Integer) As Integer @@ -3710,10 +3735,10 @@ Public Function EgtGetLastGroupInGroup(nGroupId As Integer) As Integer End If End Function - + Private Function EgtGetPrevGroup_32(nId As Integer) As Integer End Function - + Private Function EgtGetPrevGroup_64(nId As Integer) As Integer End Function Public Function EgtGetPrevGroup(nId As Integer) As Integer @@ -3724,10 +3749,10 @@ Public Function EgtGetPrevGroup(nId As Integer) As Integer End If End Function - + Private Function EgtGetFirstNameInGroup_32(nGroupId As Integer, sName As String) As Integer End Function - + Private Function EgtGetFirstNameInGroup_64(nGroupId As Integer, sName As String) As Integer End Function Public Function EgtGetFirstNameInGroup(nGroupId As Integer, sName As String) As Integer @@ -3738,10 +3763,10 @@ Public Function EgtGetFirstNameInGroup(nGroupId As Integer, sName As String) As End If End Function - + Private Function EgtGetNextName_32(nId As Integer, sName As String) As Integer End Function - + Private Function EgtGetNextName_64(nId As Integer, sName As String) As Integer End Function Public Function EgtGetNextName(nId As Integer, sName As String) As Integer @@ -3752,10 +3777,10 @@ Public Function EgtGetNextName(nId As Integer, sName As String) As Integer End If End Function - + Private Function EgtGetLastNameInGroup_32(nGroupId As Integer, sName As String) As Integer End Function - + Private Function EgtGetLastNameInGroup_64(nGroupId As Integer, sName As String) As Integer End Function Public Function EgtGetLastNameInGroup(nGroupId As Integer, sName As String) As Integer @@ -3766,10 +3791,10 @@ Public Function EgtGetLastNameInGroup(nGroupId As Integer, sName As String) As I End If End Function - + Private Function EgtGetPrevName_32(nId As Integer, sName As String) As Integer End Function - + Private Function EgtGetPrevName_64(nId As Integer, sName As String) As Integer End Function Public Function EgtGetPrevName(nId As Integer, sName As String) As Integer @@ -3780,11 +3805,11 @@ Public Function EgtGetPrevName(nId As Integer, sName As String) As Integer End If End Function - + 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(nId As Integer, nFlag As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function @@ -3809,11 +3834,11 @@ Public Function EgtGetBBox(nId As Integer, nFlag As Integer, ByRef b3Box As BBox Return True End Function - + 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(nId As Integer, nFlag As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function @@ -3838,10 +3863,10 @@ Public Function EgtGetBBoxGlob(nId As Integer, nFlag As Integer, ByRef b3Box As Return True End Function - + 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(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer End Function Public Function EgtCopy(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer @@ -3852,10 +3877,10 @@ Public Function EgtCopy(nId As Integer, nRefId As Integer, Optional nSonBeforeAf End If End Function - + 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(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer End Function Public Function EgtCopyGlob(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Integer @@ -3866,10 +3891,10 @@ Public Function EgtCopyGlob(nId As Integer, nRefId As Integer, Optional nSonBefo End If End Function - + Private Function EgtRelocate_32(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Boolean End Function - + Private Function EgtRelocate_64(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Boolean End Function Public Function EgtRelocate(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Boolean @@ -3880,10 +3905,10 @@ Public Function EgtRelocate(nId As Integer, nRefId As Integer, Optional nSonBefo End If End Function - + Private Function EgtRelocateGlob_32(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Boolean End Function - + Private Function EgtRelocateGlob_64(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Boolean End Function Public Function EgtRelocateGlob(nId As Integer, nRefId As Integer, Optional nSonBeforeAfter As GDB_POS = GDB_POS.LAST_SON) As Boolean @@ -3894,10 +3919,10 @@ Public Function EgtRelocateGlob(nId As Integer, nRefId As Integer, Optional nSon End If End Function - + Private Function EgtErase_32(nId As Integer) As Boolean End Function - + Private Function EgtErase_64(nId As Integer) As Boolean End Function Public Function EgtErase(nId As Integer) As Boolean @@ -3908,10 +3933,10 @@ Public Function EgtErase(nId As Integer) As Boolean End If End Function - + Private Function EgtEmptyGroup_32(nId As Integer) As Boolean End Function - + Private Function EgtEmptyGroup_64(nId As Integer) As Boolean End Function Public Function EgtEmptyGroup(nId As Integer) As Boolean @@ -3922,10 +3947,10 @@ Public Function EgtEmptyGroup(nId As Integer) As Boolean End If End Function - + Private Function EgtGetType_32(nId As Integer) As GDB_TY End Function - + Private Function EgtGetType_64(nId As Integer) As GDB_TY End Function Public Function EgtGetType(nId As Integer) As GDB_TY @@ -3936,10 +3961,10 @@ Public Function EgtGetType(nId As Integer) As GDB_TY End If End Function - + Private Function EgtGetTitle_32(nId As Integer, ByRef psTitle As IntPtr) As Boolean End Function - + Private Function EgtGetTitle_64(nId As Integer, ByRef psTitle As IntPtr) As Boolean End Function Public Function EgtGetTitle(nId As Integer, ByRef sTitle As String) As Boolean @@ -3959,10 +3984,10 @@ Public Function EgtGetTitle(nId As Integer, ByRef sTitle As String) As Boolean Return bOk End Function - + Private Function EgtGroupDump_32(nId As Integer, ByRef psDump As IntPtr) As Boolean End Function - + Private Function EgtGroupDump_64(nId As Integer, ByRef psDump As IntPtr) As Boolean End Function Public Function EgtGroupDump(nId As Integer, ByRef sDump As String) As Boolean @@ -3982,10 +4007,10 @@ Public Function EgtGroupDump(nId As Integer, ByRef sDump As String) As Boolean Return bOk End Function - + Private Function EgtGeoObjDump_32(nId As Integer, ByRef psDump As IntPtr) As Boolean End Function - + Private Function EgtGeoObjDump_64(nId As Integer, ByRef psDump As IntPtr) As Boolean End Function Public Function EgtGeoObjDump(nId As Integer, ByRef sDump As String) As Boolean @@ -4007,10 +4032,10 @@ End Function '---------- GeomDb Obj Attributes ---------------------------------------------- - + Private Function EgtSetLevel_32(nId As Integer, nLevel As Integer) As Boolean End Function - + Private Function EgtSetLevel_64(nId As Integer, nLevel As Integer) As Boolean End Function Public Function EgtSetLevel(nId As Integer, nLevel As Integer) As Boolean @@ -4021,10 +4046,10 @@ Public Function EgtSetLevel(nId As Integer, nLevel As Integer) As Boolean End If End Function - + Private Function EgtRevertLevel_32(nId As Integer) As Boolean End Function - + Private Function EgtRevertLevel_64(nId As Integer) As Boolean End Function Public Function EgtRevertLevel(nId As Integer) As Boolean @@ -4035,10 +4060,10 @@ Public Function EgtRevertLevel(nId As Integer) As Boolean End If End Function - + Private Function EgtGetLevel_32(nId As Integer, ByRef nLevel As Integer) As Boolean End Function - + Private Function EgtGetLevel_64(nId As Integer, ByRef nLevel As Integer) As Boolean End Function Public Function EgtGetLevel(nId As Integer, ByRef nLevel As Integer) As Boolean @@ -4049,10 +4074,10 @@ Public Function EgtGetLevel(nId As Integer, ByRef nLevel As Integer) As Boolean End If End Function - + Private Function EgtGetCalcLevel_32(nId As Integer, ByRef nLevel As Integer) As Boolean End Function - + Private Function EgtGetCalcLevel_64(nId As Integer, ByRef nLevel As Integer) As Boolean End Function Public Function EgtGetCalcLevel(nId As Integer, ByRef nLevel As Integer) As Boolean @@ -4063,10 +4088,10 @@ Public Function EgtGetCalcLevel(nId As Integer, ByRef nLevel As Integer) As Bool End If End Function - + Private Function EgtSetMode_32(nId As Integer, nMode As Integer) As Boolean End Function - + Private Function EgtSetMode_64(nId As Integer, nMode As Integer) As Boolean End Function Public Function EgtSetMode(nId As Integer, nMode As Integer) As Boolean @@ -4077,10 +4102,10 @@ Public Function EgtSetMode(nId As Integer, nMode As Integer) As Boolean End If End Function - + Private Function EgtRevertMode_32(nId As Integer) As Boolean End Function - + Private Function EgtRevertMode_64(nId As Integer) As Boolean End Function Public Function EgtRevertMode(nId As Integer) As Boolean @@ -4091,10 +4116,10 @@ Public Function EgtRevertMode(nId As Integer) As Boolean End If End Function - + Private Function EgtGetMode_32(nId As Integer, ByRef nMode As Integer) As Boolean End Function - + Private Function EgtGetMode_64(nId As Integer, ByRef nMode As Integer) As Boolean End Function Public Function EgtGetMode(nId As Integer, ByRef nMode As Integer) As Boolean @@ -4105,10 +4130,10 @@ Public Function EgtGetMode(nId As Integer, ByRef nMode As Integer) As Boolean End If End Function - + Private Function EgtGetCalcMode_32(nId As Integer, ByRef nMode As Integer) As Boolean End Function - + Private Function EgtGetCalcMode_64(nId As Integer, ByRef nMode As Integer) As Boolean End Function Public Function EgtGetCalcMode(nId As Integer, ByRef nMode As Integer) As Boolean @@ -4119,10 +4144,10 @@ Public Function EgtGetCalcMode(nId As Integer, ByRef nMode As Integer) As Boolea End If End Function - + Private Function EgtSetStatus_32(nId As Integer, nStat As Integer) As Boolean End Function - + Private Function EgtSetStatus_64(nId As Integer, nStat As Integer) As Boolean End Function Public Function EgtSetStatus(nId As Integer, nStat As Integer) As Boolean @@ -4133,10 +4158,10 @@ Public Function EgtSetStatus(nId As Integer, nStat As Integer) As Boolean End If End Function - + Private Function EgtRevertStatus_32(nId As Integer) As Boolean End Function - + Private Function EgtRevertStatus_64(nId As Integer) As Boolean End Function Public Function EgtRevertStatus(nId As Integer) As Boolean @@ -4147,10 +4172,10 @@ Public Function EgtRevertStatus(nId As Integer) As Boolean End If End Function - + Private Function EgtGetStatus_32(nId As Integer, ByRef nStat As Integer) As Boolean End Function - + Private Function EgtGetStatus_64(nId As Integer, ByRef nStat As Integer) As Boolean End Function Public Function EgtGetStatus(nId As Integer, ByRef nStat As Integer) As Boolean @@ -4161,10 +4186,10 @@ Public Function EgtGetStatus(nId As Integer, ByRef nStat As Integer) As Boolean End If End Function - + Private Function EgtGetCalcStatus_32(nId As Integer, ByRef nStat As Integer) As Boolean End Function - + Private Function EgtGetCalcStatus_64(nId As Integer, ByRef nStat As Integer) As Boolean End Function Public Function EgtGetCalcStatus(nId As Integer, ByRef nStat As Integer) As Boolean @@ -4180,10 +4205,10 @@ Public Function EgtIsVisibleObj(nId As Integer) As Boolean Return EgtGetCalcStatus(nId, nStat) AndAlso nStat <> GDB_ST.OFF End Function - + Private Function EgtSetMark_32(nId As Integer) As Boolean End Function - + Private Function EgtSetMark_64(nId As Integer) As Boolean End Function Public Function EgtSetMark(nId As Integer) As Boolean @@ -4194,10 +4219,10 @@ Public Function EgtSetMark(nId As Integer) As Boolean End If End Function - + Private Function EgtResetMark_32(nId As Integer) As Boolean End Function - + Private Function EgtResetMark_64(nId As Integer) As Boolean End Function Public Function EgtResetMark(nId As Integer) As Boolean @@ -4208,10 +4233,10 @@ Public Function EgtResetMark(nId As Integer) As Boolean End If End Function - + Private Function EgtGetMark_32(nId As Integer, ByRef bMark As Boolean) As Boolean End Function - + Private Function EgtGetMark_64(nId As Integer, ByRef bMark As Boolean) As Boolean End Function Public Function EgtGetMark(nId As Integer, ByRef bMark As Boolean) As Boolean @@ -4222,10 +4247,10 @@ Public Function EgtGetMark(nId As Integer, ByRef bMark As Boolean) As Boolean End If End Function - + Private Function EgtGetCalcMark_32(nId As Integer, ByRef bMark As Boolean) As Boolean End Function - + Private Function EgtGetCalcMark_64(nId As Integer, ByRef bMark As Boolean) As Boolean End Function Public Function EgtGetCalcMark(nId As Integer, ByRef bMark As Boolean) As Boolean @@ -4236,10 +4261,10 @@ Public Function EgtGetCalcMark(nId As Integer, ByRef bMark As Boolean) As Boolea End If End Function - + Private Function EgtSetColor_32(nId As Integer, ByRef ColObj As Color3d, Optional bSetAlpha As Boolean = True) As Boolean End Function - + Private Function EgtSetColor_64(nId As Integer, ByRef ColObj As Color3d, Optional bSetAlpha As Boolean = True) As Boolean End Function Public Function EgtSetColor(nId As Integer, ByRef ColObj As Color3d, Optional bSetAlpha As Boolean = True) As Boolean @@ -4250,10 +4275,10 @@ Public Function EgtSetColor(nId As Integer, ByRef ColObj As Color3d, Optional bS End If End Function - + Private Function EgtSetAlpha_32(nId As Integer, nAlpha As Integer) As Boolean End Function - + Private Function EgtSetAlpha_64(nId As Integer, nAlpha As Integer) As Boolean End Function Public Function EgtSetAlpha(nId As Integer, nAlpha As Integer) As Boolean @@ -4264,10 +4289,10 @@ Public Function EgtSetAlpha(nId As Integer, nAlpha As Integer) As Boolean End If End Function - + Private Function EgtResetColor_32(nId As Integer) As Boolean End Function - + Private Function EgtResetColor_64(nId As Integer) As Boolean End Function Public Function EgtResetColor(nId As Integer) As Boolean @@ -4278,10 +4303,10 @@ Public Function EgtResetColor(nId As Integer) As Boolean End If End Function - + Private Function EgtGetColor_32(nId As Integer, ByRef ColObj As Color3d) As Boolean End Function - + Private Function EgtGetColor_64(nId As Integer, ByRef ColObj As Color3d) As Boolean End Function Public Function EgtGetColor(nId As Integer, ByRef ColObj As Color3d) As Boolean @@ -4292,10 +4317,10 @@ Public Function EgtGetColor(nId As Integer, ByRef ColObj As Color3d) As Boolean End If End Function - + Private Function EgtGetCalcColor_32(nId As Integer, ByRef ColObj As Color3d) As Boolean End Function - + Private Function EgtGetCalcColor_64(nId As Integer, ByRef ColObj As Color3d) As Boolean End Function Public Function EgtGetCalcColor(nId As Integer, ByRef ColObj As Color3d) As Boolean @@ -4306,10 +4331,10 @@ Public Function EgtGetCalcColor(nId As Integer, ByRef ColObj As Color3d) As Bool End If End Function - + Private Function EgtSetName_32(nId As Integer, sName As String) As Boolean End Function - + Private Function EgtSetName_64(nId As Integer, sName As String) As Boolean End Function Public Function EgtSetName(nId As Integer, sName As String) As Boolean @@ -4320,10 +4345,10 @@ Public Function EgtSetName(nId As Integer, sName As String) As Boolean End If End Function - + Private Function EgtGetName_32(nId As Integer, ByRef psName As IntPtr) As Boolean End Function - + Private Function EgtGetName_64(nId As Integer, ByRef psName As IntPtr) As Boolean End Function Public Function EgtGetName(nId As Integer, ByRef sName As String) As Boolean @@ -4343,10 +4368,10 @@ Public Function EgtGetName(nId As Integer, ByRef sName As String) As Boolean Return bOk End Function - + Private Function EgtExistsName_32(nId As Integer) As Boolean End Function - + Private Function EgtExistsName_64(nId As Integer) As Boolean End Function Public Function EgtExistsName(nId As Integer) As Boolean @@ -4357,10 +4382,10 @@ Public Function EgtExistsName(nId As Integer) As Boolean End If End Function - + Private Function EgtRemoveName_32(nId As Integer) As Boolean End Function - + Private Function EgtRemoveName_64(nId As Integer) As Boolean End Function Public Function EgtRemoveName(nId As Integer) As Boolean @@ -4371,10 +4396,10 @@ Public Function EgtRemoveName(nId As Integer) As Boolean End If End Function - + Private Function EgtSetInfo_32(nId As Integer, sKey As String, sInfo As String) As Boolean End Function - + Private Function EgtSetInfo_64(nId As Integer, sKey As String, sInfo As String) As Boolean End Function Public Function EgtSetInfo(nId As Integer, sKey As String, sInfo As String) As Boolean @@ -4385,10 +4410,10 @@ Public Function EgtSetInfo(nId As Integer, sKey As String, sInfo As String) As B End If End Function - + Private Function EgtSetInfoBool_32(nId As Integer, sKey As String, bInfo As Boolean) As Boolean End Function - + Private Function EgtSetInfoBool_64(nId As Integer, sKey As String, bInfo As Boolean) As Boolean End Function Public Function EgtSetInfo(nId As Integer, sKey As String, bInfo As Boolean) As Boolean @@ -4399,10 +4424,10 @@ Public Function EgtSetInfo(nId As Integer, sKey As String, bInfo As Boolean) As End If End Function - + Private Function EgtSetInfoInt_32(nId As Integer, sKey As String, nInfo As Integer) As Boolean End Function - + Private Function EgtSetInfoInt_64(nId As Integer, sKey As String, nInfo As Integer) As Boolean End Function Public Function EgtSetInfo(nId As Integer, sKey As String, nInfo As Integer) As Boolean @@ -4413,10 +4438,10 @@ Public Function EgtSetInfo(nId As Integer, sKey As String, nInfo As Integer) As End If End Function - + Private Function EgtSetInfoDouble_32(nId As Integer, sKey As String, dInfo As Double) As Boolean End Function - + Private Function EgtSetInfoDouble_64(nId As Integer, sKey As String, dInfo As Double) As Boolean End Function Public Function EgtSetInfo(nId As Integer, sKey As String, dInfo As Double) As Boolean @@ -4427,11 +4452,11 @@ Public Function EgtSetInfo(nId As Integer, sKey As String, dInfo As Double) As B End If End Function - + 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(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 @@ -4443,10 +4468,10 @@ Public Function EgtSetInfo(nId As Integer, sKey As String, Frame As Frame3d) As End If End Function - + Private Function EgtGetInfo_32(nId As Integer, sKey As String, ByRef psInfo As IntPtr) As Boolean End Function - + Private Function EgtGetInfo_64(nId As Integer, sKey As String, ByRef psInfo As IntPtr) As Boolean End Function Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef sInfo As String) As Boolean @@ -4466,10 +4491,10 @@ Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef sInfo As String Return bOk End Function - + Private Function EgtGetInfoBool_32(nId As Integer, sKey As String, ByRef bInfo As Boolean) As Boolean End Function - + Private Function EgtGetInfoBool_64(nId As Integer, sKey As String, ByRef bInfo As Boolean) As Boolean End Function Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef bInfo As Boolean) As Boolean @@ -4480,10 +4505,10 @@ Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef bInfo As Boolea End If End Function - + Private Function EgtGetInfoInt_32(nId As Integer, sKey As String, ByRef nInfo As Integer) As Boolean End Function - + Private Function EgtGetInfoInt_64(nId As Integer, sKey As String, ByRef nInfo As Integer) As Boolean End Function Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef nInfo As Integer) As Boolean @@ -4494,10 +4519,10 @@ Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef nInfo As Intege End If End Function - + Private Function EgtGetInfoDouble_32(nId As Integer, sKey As String, ByRef dInfo As Double) As Boolean End Function - + Private Function EgtGetInfoDouble_64(nId As Integer, sKey As String, ByRef dInfo As Double) As Boolean End Function Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef dInfo As Double) As Boolean @@ -4508,11 +4533,11 @@ Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef dInfo As Double End If End Function - + 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(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 @@ -4533,10 +4558,10 @@ Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef Frame As Frame3 Return Frame.Setup(ptOri, vtX, vtY, vtZ) End Function - + Private Function EgtExistsInfo_32(nId As Integer, sKey As String) As Boolean End Function - + Private Function EgtExistsInfo_64(nId As Integer, sKey As String) As Boolean End Function Public Function EgtExistsInfo(nId As Integer, sKey As String) As Boolean @@ -4547,10 +4572,10 @@ Public Function EgtExistsInfo(nId As Integer, sKey As String) As Boolean End If End Function - + Private Function EgtRemoveInfo_32(nId As Integer, sKey As String) As Boolean End Function - + Private Function EgtRemoveInfo_64(nId As Integer, sKey As String) As Boolean End Function Public Function EgtRemoveInfo(nId As Integer, sKey As String) As Boolean @@ -4561,10 +4586,10 @@ Public Function EgtRemoveInfo(nId As Integer, sKey As String) As Boolean End If End Function - + Private Function EgtSetTextureName_32(nId As Integer, sName As String) As Boolean End Function - + Private Function EgtSetTextureName_64(nId As Integer, sName As String) As Boolean End Function Public Function EgtSetTextureName(nId As Integer, sName As String) As Boolean @@ -4575,11 +4600,11 @@ Public Function EgtSetTextureName(nId As Integer, sName As String) As Boolean End If End Function - + 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(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 @@ -4591,10 +4616,10 @@ Public Function EgtSetTextureFrame(nId As Integer, ByRef frRef As Frame3d, Optio End If End Function - + Private Function EgtRemoveTextureData_32(nId As Integer) As Boolean End Function - + Private Function EgtRemoveTextureData_64(nId As Integer) As Boolean End Function Public Function EgtRemoveTextureData(nId As Integer) As Boolean @@ -4605,10 +4630,10 @@ Public Function EgtRemoveTextureData(nId As Integer) As Boolean End If End Function - + Private Function EgtGetTextureName_32(nId As Integer, ByRef psName As IntPtr) As Boolean End Function - + Private Function EgtGetTextureName_64(nId As Integer, ByRef psName As IntPtr) As Boolean End Function Public Function EgtGetTextureName(nId As Integer, ByRef sName As String) As Boolean @@ -4628,11 +4653,11 @@ Public Function EgtGetTextureName(nId As Integer, ByRef sName As String) As Bool Return bOk End Function - + 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(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 @@ -4655,10 +4680,10 @@ End Function '---------- GeomDb Obj Selection ----------------------------------------------- - + Private Function EgtSelectObj_32(nId As Integer) As Boolean End Function - + Private Function EgtSelectObj_64(nId As Integer) As Boolean End Function Public Function EgtSelectObj(nId As Integer) As Boolean @@ -4669,10 +4694,10 @@ Public Function EgtSelectObj(nId As Integer) As Boolean End If End Function - + Private Function EgtDeselectObj_32(nId As Integer) As Boolean End Function - + Private Function EgtDeselectObj_64(nId As Integer) As Boolean End Function Public Function EgtDeselectObj(nId As Integer) As Boolean @@ -4683,10 +4708,10 @@ Public Function EgtDeselectObj(nId As Integer) As Boolean End If End Function - + Private Function EgtSelectAll_32(Optional bOnlyIfVisible As Boolean = False) As Boolean End Function - + Private Function EgtSelectAll_64(Optional bOnlyIfVisible As Boolean = False) As Boolean End Function Public Function EgtSelectAll(Optional bOnlyIfVisible As Boolean = False) As Boolean @@ -4697,10 +4722,10 @@ Public Function EgtSelectAll(Optional bOnlyIfVisible As Boolean = False) As Bool End If End Function - + Private Function EgtDeselectAll_32() As Boolean End Function - + Private Function EgtDeselectAll_64() As Boolean End Function Public Function EgtDeselectAll() As Boolean @@ -4711,10 +4736,10 @@ Public Function EgtDeselectAll() As Boolean End If End Function - + Private Function EgtSelectGroupObjs_32(nGroupId As Integer) As Boolean End Function - + Private Function EgtSelectGroupObjs_64(nGroupId As Integer) As Boolean End Function Public Function EgtSelectGroupObjs(nGroupId As Integer) As Boolean @@ -4725,10 +4750,10 @@ Public Function EgtSelectGroupObjs(nGroupId As Integer) As Boolean End If End Function - + Private Function EgtDeselectGroupObjs_32(nGroupId As Integer) As Boolean End Function - + Private Function EgtDeselectGroupObjs_64(nGroupId As Integer) As Boolean End Function Public Function EgtDeselectGroupObjs(nGroupId As Integer) As Boolean @@ -4739,10 +4764,10 @@ Public Function EgtDeselectGroupObjs(nGroupId As Integer) As Boolean End If End Function - + Private Function EgtIsSelectedObj_32(nId As Integer) As Boolean End Function - + Private Function EgtIsSelectedObj_64(nId As Integer) As Boolean End Function Public Function EgtIsSelectedObj(nId As Integer) As Boolean @@ -4753,10 +4778,10 @@ Public Function EgtIsSelectedObj(nId As Integer) As Boolean End If End Function - + Private Function EgtGetSelectedObjCount_32() As Integer End Function - + Private Function EgtGetSelectedObjCount_64() As Integer End Function Public Function EgtGetSelectedObjCount() As Integer @@ -4767,10 +4792,10 @@ Public Function EgtGetSelectedObjCount() As Integer End If End Function - + Private Function EgtGetFirstSelectedObj_32() As Integer End Function - + Private Function EgtGetFirstSelectedObj_64() As Integer End Function Public Function EgtGetFirstSelectedObj() As Integer @@ -4781,10 +4806,10 @@ Public Function EgtGetFirstSelectedObj() As Integer End If End Function - + Private Function EgtGetNextSelectedObj_32() As Integer End Function - + Private Function EgtGetNextSelectedObj_64() As Integer End Function Public Function EgtGetNextSelectedObj() As Integer @@ -4795,10 +4820,10 @@ Public Function EgtGetNextSelectedObj() As Integer End If End Function - + Private Function EgtGetLastSelectedObj_32() As Integer End Function - + Private Function EgtGetLastSelectedObj_64() As Integer End Function Public Function EgtGetLastSelectedObj() As Integer @@ -4809,10 +4834,10 @@ Public Function EgtGetLastSelectedObj() As Integer End If End Function - + Private Function EgtGetPrevSelectedObj_32() As Integer End Function - + Private Function EgtGetPrevSelectedObj_64() As Integer End Function Public Function EgtGetPrevSelectedObj() As Integer @@ -4825,10 +4850,10 @@ End Function '---------- GeomDb Obj Transform ----------------------------------------------- - + 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(nId As Integer, ByRef VtMove As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean End Function Public Function EgtMove(nId As Integer, ByRef VtMove As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -4839,10 +4864,10 @@ Public Function EgtMove(nId As Integer, ByRef VtMove As Vector3d, Optional nRefT End If End Function - + 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(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(nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -4853,12 +4878,12 @@ Public Function EgtRotate(nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As V End If End Function - + Private Function EgtScale_32(nId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double, nRefType As GDB_RT) As Boolean End Function - + Private Function EgtScale_64(nId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double, nRefType As GDB_RT) As Boolean @@ -4872,10 +4897,10 @@ Public Function EgtScale(nId As Integer, Frame As Frame3d, End If End Function - + 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(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(nId As Integer, PtOn As Point3d, VtNorm As Vector3d, Optional nRefType As GDB_RT = GDB_RT.LOC) As Boolean @@ -4886,11 +4911,11 @@ Public Function EgtMirror(nId As Integer, PtOn As Point3d, VtNorm As Vector3d, O End If End Function - + 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(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 @@ -4903,10 +4928,10 @@ Public Function EgtShear(nId As Integer, PtOn As Point3d, VtNorm As Vector3d, End If End Function - + Private Function EgtMoveGroup_32(nId As Integer, ByRef VtMove As Vector3d) As Boolean End Function - + Private Function EgtMoveGroup_64(nId As Integer, ByRef VtMove As Vector3d) As Boolean End Function Public Function EgtMoveGroup(nId As Integer, VtMove As Vector3d) As Boolean @@ -4917,10 +4942,10 @@ Public Function EgtMoveGroup(nId As Integer, VtMove As Vector3d) As Boolean End If End Function - + 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(nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function Public Function EgtRotateGroup(nId As Integer, PtAx As Point3d, VtAx As Vector3d, dAngRotDeg As Double) As Boolean @@ -4931,12 +4956,12 @@ Public Function EgtRotateGroup(nId As Integer, PtAx As Point3d, VtAx As Vector3d End If End Function - + Private Function EgtScaleGroup_32(nId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean End Function - + Private Function EgtScaleGroup_64(nId As Integer, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean @@ -4950,10 +4975,10 @@ Public Function EgtScaleGroup(nId As Integer, Frame As Frame3d, End If End Function - + Private Function EgtMirrorGroup_32(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function - + Private Function EgtMirrorGroup_64(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function Public Function EgtMirrorGroup(nId As Integer, PtOn As Point3d, VtNorm As Vector3d) As Boolean @@ -4964,11 +4989,11 @@ Public Function EgtMirrorGroup(nId As Integer, PtOn As Point3d, VtNorm As Vector End If End Function - + 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(nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d, ByRef VtDir As Vector3d, dCoeff As Double) As Boolean End Function @@ -4983,10 +5008,10 @@ End Function '---------- GeomDb Snap Vector/Point/Frame ------------------------------------- - + Private Function EgtStartPoint_32(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function - + Private Function EgtStartPoint_64(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function Public Function EgtStartPoint(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean @@ -5000,10 +5025,10 @@ Public Function EgtStartPoint(nId As Integer, ByRef PtP As Point3d) As Boolean Return EgtStartPoint(nId, nId, PtP) End Function - + Private Function EgtEndPoint_32(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function - + Private Function EgtEndPoint_64(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function Public Function EgtEndPoint(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean @@ -5017,10 +5042,10 @@ Public Function EgtEndPoint(nId As Integer, ByRef PtP As Point3d) As Boolean Return EgtEndPoint(nId, nId, PtP) End Function - + Private Function EgtMidPoint_32(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function - + Private Function EgtMidPoint_64(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function Public Function EgtMidPoint(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean @@ -5034,10 +5059,10 @@ Public Function EgtMidPoint(nId As Integer, ByRef PtP As Point3d) As Boolean Return EgtMidPoint(nId, nId, PtP) End Function - + Private Function EgtCenterPoint_32(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function - + Private Function EgtCenterPoint_64(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function Public Function EgtCenterPoint(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean @@ -5051,10 +5076,10 @@ Public Function EgtCenterPoint(nId As Integer, ByRef PtP As Point3d) As Boolean Return EgtCenterPoint(nId, nId, PtP) End Function - + Private Function EgtCentroid_32(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function - + Private Function EgtCentroid_64(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function Public Function EgtCentroid(nId As Integer, nRefId As Integer, ByRef PtP As Point3d) As Boolean @@ -5068,10 +5093,10 @@ Public Function EgtCentroid(nId As Integer, ByRef PtP As Point3d) As Boolean Return EgtCentroid(nId, nId, PtP) End Function - + 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(nId As Integer, dU As Double, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function Public Function EgtAtParamPoint(nId As Integer, dU As Double, nRefId As Integer, ByRef PtP As Point3d) As Boolean @@ -5085,10 +5110,10 @@ Public Function EgtAtParamPoint(nId As Integer, dU As Double, ByRef PtP As Point Return EgtAtParamPoint(nId, dU, nId, PtP) End Function - + 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(nId As Integer, ByRef PtNear As Point3d, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function Public Function EgtNearPoint(nId As Integer, ByRef PtNear As Point3d, nRefId As Integer, ByRef PtP As Point3d) As Boolean @@ -5102,11 +5127,11 @@ Public Function EgtNearPoint(nId As Integer, ByRef PtNear As Point3d, ByRef PtP Return EgtNearPoint(nId, PtNear, nId, PtP) End Function - + 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(nId1 As Integer, nId2 As Integer, ByRef PtNear As Point3d, nRefId As Integer, ByRef PtP As Point3d) As Boolean End Function @@ -5123,10 +5148,10 @@ Public Function EgtIntersectionPoint(nId1 As Integer, nId2 As Integer, ByRef PtN Return EgtIntersectionPoint(nId1, nId2, PtNear, nId1, PtP) End Function - + Private Function EgtStartVector_32(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function - + Private Function EgtStartVector_64(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function Public Function EgtStartVector(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean @@ -5140,10 +5165,10 @@ Public Function EgtStartVector(nId As Integer, ByRef VtV As Vector3d) As Boolean Return EgtStartVector(nId, nId, VtV) End Function - + Private Function EgtEndVector_32(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function - + Private Function EgtEndVector_64(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function Public Function EgtEndVector(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean @@ -5157,10 +5182,10 @@ Public Function EgtEndVector(nId As Integer, ByRef VtV As Vector3d) As Boolean Return EgtEndVector(nId, nId, VtV) End Function - + Private Function EgtMidVector_32(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function - + Private Function EgtMidVector_64(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function Public Function EgtMidVector(nId As Integer, nRefId As Integer, ByRef VtV As Vector3d) As Boolean @@ -5174,10 +5199,10 @@ Public Function EgtMidVector(nId As Integer, ByRef VtV As Vector3d) As Boolean Return EgtMidVector(nId, nId, VtV) End Function - + 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(nId As Integer, dU As Double, nRefId As Integer, ByRef VtV As Vector3d) As Boolean End Function Public Function EgtAtParamVector(nId As Integer, dU As Double, nRefId As Integer, ByRef VtV As Vector3d) As Boolean @@ -5191,11 +5216,11 @@ Public Function EgtAtParamVector(nId As Integer, dU As Double, ByRef VtV As Vect Return EgtAtParamVector(nId, dU, nId, VtV) End Function - + 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(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 @@ -5216,10 +5241,10 @@ Public Function EgtFrame(nId As Integer, nRefId As Integer, ByRef frFrame As Fra End If End Function - + Private Function EgtCurveDomain_32(nId As Integer, ByRef dStart As Double, ByRef dEnd As Double) As Boolean End Function - + Private Function EgtCurveDomain_64(nId As Integer, ByRef dStart As Double, ByRef dEnd As Double) As Boolean End Function Public Function EgtCurveDomain(nId As Integer, ByRef dStart As Double, ByRef dEnd As Double) As Boolean @@ -5230,10 +5255,10 @@ Public Function EgtCurveDomain(nId As Integer, ByRef dStart As Double, ByRef dEn End If End Function - + Private Function EgtCurveLength_32(nId As Integer, ByRef dLen As Double) As Boolean End Function - + Private Function EgtCurveLength_64(nId As Integer, ByRef dLen As Double) As Boolean End Function Public Function EgtCurveLength(nId As Integer, ByRef dLen As Double) As Boolean @@ -5244,10 +5269,10 @@ Public Function EgtCurveLength(nId As Integer, ByRef dLen As Double) As Boolean End If End Function - + 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(nId As Integer, ByRef ptOn As Point3d, dExtend As Double, ByRef dLen As Double) As Boolean End Function Public Function EgtCurveLengthAtPoint(nId As Integer, ByRef ptOn As Point3d, dExtend As Double, ByRef dLen As Double) As Boolean @@ -5261,10 +5286,10 @@ Public Function EgtCurveLengthAtPoint(nId As Integer, ptOn As Point3d, ByRef dLe Return EgtCurveLengthAtPoint(nId, ptOn, 0, dLen) End Function - + Private Function EgtCurveIsClosed_32(nId As Integer) As Boolean End Function - + Private Function EgtCurveIsClosed_64(nId As Integer) As Boolean End Function Public Function EgtCurveIsClosed(nId As Integer) As Boolean @@ -5275,10 +5300,10 @@ Public Function EgtCurveIsClosed(nId As Integer) As Boolean End If End Function - + Private Function EgtCurveIsFlat_32(nId As Integer, ByRef VtN As Vector3d, ByRef dDist As Double) As Boolean End Function - + Private Function EgtCurveIsFlat_64(nId As Integer, ByRef VtN As Vector3d, ByRef dDist As Double) As Boolean End Function Public Function EgtCurveIsFlat(nId As Integer, ByRef VtN As Vector3d, ByRef dDist As Double) As Boolean @@ -5289,10 +5314,10 @@ Public Function EgtCurveIsFlat(nId As Integer, ByRef VtN As Vector3d, ByRef dDis End If End Function - + Private Function EgtCurveAreaXY_32(nId As Integer, ByRef dArea As Double) As Boolean End Function - + Private Function EgtCurveAreaXY_64(nId As Integer, ByRef dArea As Double) As Boolean End Function Public Function EgtCurveAreaXY(nId As Integer, ByRef dArea As Double) As Boolean @@ -5303,10 +5328,10 @@ Public Function EgtCurveAreaXY(nId As Integer, ByRef dArea As Double) As Boolean End If End Function - + Private Function EgtCurveArea_32(nId As Integer, ByRef VtN As Vector3d, ByRef dDist As Double, ByRef dArea As Double) As Boolean End Function - + Private Function EgtCurveArea_64(nId As Integer, ByRef VtN As Vector3d, ByRef dDist As Double, ByRef dArea As Double) As Boolean End Function Public Function EgtCurveArea(nId As Integer, ByRef VtN As Vector3d, ByRef dDist As Double, ByRef dArea As Double) As Boolean @@ -5317,10 +5342,10 @@ Public Function EgtCurveArea(nId As Integer, ByRef VtN As Vector3d, ByRef dDist End If End Function - + Private Function EgtCurveNearestExtremityToPoint_32(nId As Integer, ByRef ptP As Point3d, ByRef bStart As Boolean) As Boolean End Function - + Private Function EgtCurveNearestExtremityToPoint_64(nId As Integer, ByRef ptP As Point3d, ByRef bStart As Boolean) As Boolean End Function Public Function EgtCurveNearestExtremityToPoint(nId As Integer, ByRef ptP As Point3d, ByRef bStart As Boolean) As Boolean @@ -5331,10 +5356,10 @@ Public Function EgtCurveNearestExtremityToPoint(nId As Integer, ByRef ptP As Poi End If End Function - + Private Function EgtCurveExtrusion_32(nId As Integer, nRefId As Integer, ByRef VtExtr As Vector3d) As Boolean End Function - + Private Function EgtCurveExtrusion_64(nId As Integer, nRefId As Integer, ByRef VtExtr As Vector3d) As Boolean End Function Public Function EgtCurveExtrusion(nId As Integer, nRefId As Integer, ByRef VtExtr As Vector3d) As Boolean @@ -5348,10 +5373,10 @@ Public Function EgtCurveExtrusion(nId As Integer, ByRef VtExtr As Vector3d) As B Return EgtCurveExtrusion(nId, nId, VtExtr) End Function - + Private Function EgtCurveThickness_32(nId As Integer, ByRef dThick As Double) As Boolean End Function - + Private Function EgtCurveThickness_64(nId As Integer, ByRef dThick As Double) As Boolean End Function Public Function EgtCurveThickness(nId As Integer, ByRef dThick As Double) As Boolean @@ -5362,10 +5387,10 @@ Public Function EgtCurveThickness(nId As Integer, ByRef dThick As Double) As Boo End If End Function - + Private Function EgtCurveSelfIntersCount_32(nId As Integer, ByRef nCount As Integer) As Boolean End Function - + Private Function EgtCurveSelfIntersCount_64(nId As Integer, ByRef nCount As Integer) As Boolean End Function Public Function EgtCurveSelfIntersCount(nId As Integer, ByRef nCount As Integer) As Boolean @@ -5376,10 +5401,56 @@ Public Function EgtCurveSelfIntersCount(nId As Integer, ByRef nCount As Integer) End If End Function - + +Private Function EgtCurveMinAreaRectangleXY_32(nId As Integer, nRefId As Integer, + ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, + ByRef dDimX As Double, ByRef dDimY As Double) As Boolean +End Function + +Private Function EgtCurveMinAreaRectangleXY_64(nId As Integer, nRefId As Integer, + ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, + ByRef dDimX As Double, ByRef dDimY As Double) As Boolean +End Function +Public Function EgtCurveMinAreaRectangleXY(nId As Integer, nRefId As Integer, + ByRef frFrame As Frame3d, ByRef dDimX As Double, ByRef dDimY As Double) As Boolean + Dim PtOrig As Point3d + Dim VtDirX, VtDirY, VtDirZ As Vector3d + Dim bOk As Boolean + If IntPtr.Size = 4 Then + bOk = EgtCurveMinAreaRectangleXY_32(nId, nRefId, PtOrig, VtDirX, VtDirY, VtDirZ, dDimX, dDimY) + Else + bOk = EgtCurveMinAreaRectangleXY_64(nId, nRefId, PtOrig, VtDirX, VtDirY, VtDirZ, dDimX, dDimY) + End If + If Not bOk Then + frFrame = Frame3d.GLOB() + Return False + Else + Return frFrame.Setup(PtOrig, VtDirX, VtDirY, VtDirZ) + End If +End Function +Public Function EgtCurveMinAreaRectangleXY(nId As Integer, nRefId As Integer, + ByRef frFrame As Frame3d) As Boolean + Dim PtOrig As Point3d + Dim VtDirX, VtDirY, VtDirZ As Vector3d + Dim dDimX, dDimY As Double + Dim bOk As Boolean + If IntPtr.Size = 4 Then + bOk = EgtCurveMinAreaRectangleXY_32(nId, nRefId, PtOrig, VtDirX, VtDirY, VtDirZ, dDimX, dDimY) + Else + bOk = EgtCurveMinAreaRectangleXY_64(nId, nRefId, PtOrig, VtDirX, VtDirY, VtDirZ, dDimX, dDimY) + End If + If Not bOk Then + frFrame = Frame3d.GLOB() + Return False + Else + Return frFrame.Setup(PtOrig, VtDirX, VtDirY, VtDirZ) + End If +End Function + + Private Function EgtClosedCurveClassify_32(nId1 As Integer, nId2 As Integer) As Integer End Function - + Private Function EgtClosedCurveClassify_64(nId1 As Integer, nId2 As Integer) As Integer End Function Public Function EgtClosedCurveClassify(nId1 As Integer, nId2 As Integer) As Integer @@ -5390,10 +5461,10 @@ Public Function EgtClosedCurveClassify(nId1 As Integer, nId2 As Integer) As Inte End If End Function - + 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, nId As Integer, ByRef dDist As Double, ByRef dU As Double) As Boolean End Function Public Function EgtGetMinDistPointCurve(ByRef ptP As Point3d, nId As Integer, ByRef dDist As Double, ByRef dU As Double) As Boolean @@ -5404,11 +5475,11 @@ Public Function EgtGetMinDistPointCurve(ByRef ptP As Point3d, nId As Integer, By End If End Function - + 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, nId As Integer, ByRef vtN As Vector3d, ByRef dDist As Double, ByRef ptMin As Point3d, ByRef nSide As Integer) As Boolean End Function @@ -5421,10 +5492,10 @@ Public Function EgtGetMinDistPntSidePointCurve(ByRef ptP As Point3d, nId As Inte End If End Function - + Private Function EgtArcNormVersor_32(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function - + Private Function EgtArcNormVersor_64(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function Public Function EgtArcNormVersor(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean @@ -5438,10 +5509,10 @@ Public Function EgtArcNormVersor(nId As Integer, ByRef VtNorm As Vector3d) As Bo Return EgtArcNormVersor(nId, nId, VtNorm) End Function - + Private Function EgtSurfFrNormVersor_32(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function - + Private Function EgtSurfFrNormVersor_64(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function Public Function EgtSurfFrNormVersor(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean @@ -5455,10 +5526,10 @@ Public Function EgtSurfFrNormVersor(nId As Integer, ByRef VtNorm As Vector3d) As Return EgtSurfFrNormVersor(nId, nId, VtNorm) End Function - + Private Function EgtSurfFrChunkCount_32(nId As Integer) As Integer End Function - + Private Function EgtSurfFrChunkCount_64(nId As Integer) As Integer End Function Public Function EgtSurfFrChunkCount(nId As Integer) As Integer @@ -5469,10 +5540,10 @@ Public Function EgtSurfFrChunkCount(nId As Integer) As Integer End If End Function - + Private Function EgtSurfFrChunkSimpleClassify_32(nId1 As Integer, nChunk1 As Integer, nId2 As Integer, nChunk2 As Integer) As Integer End Function - + Private Function EgtSurfFrChunkSimpleClassify_64(nId1 As Integer, nChunk1 As Integer, nId2 As Integer, nChunk2 As Integer) As Integer End Function Public Function EgtSurfFrChunkSimpleClassify(nId1 As Integer, nChunk1 As Integer, nId2 As Integer, nChunk2 As Integer) As Integer @@ -5483,10 +5554,10 @@ Public Function EgtSurfFrChunkSimpleClassify(nId1 As Integer, nChunk1 As Integer End If End Function - + Private Function EgtSurfTmFacetFromTria_32(nId As Integer, nT As Integer) As Integer End Function - + Private Function EgtSurfTmFacetFromTria_64(nId As Integer, nT As Integer) As Integer End Function Public Function EgtSurfTmFacetFromTria(nId As Integer, nT As Integer) As Integer @@ -5497,11 +5568,11 @@ Public Function EgtSurfTmFacetFromTria(nId As Integer, nT As Integer) As Integer End If End Function - + 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(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 @@ -5518,10 +5589,10 @@ Public Function EgtSurfTmFacetNearestEndPoint(nId As Integer, nF As Integer, ByR Return EgtSurfTmFacetNearestEndPoint(nId, nF, PtNear, nId, PtP, VtNorm) End Function - + 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(nId As Integer, nF As Integer, nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function Public Function EgtSurfTmFacetCenter(nId As Integer, nF As Integer, nRefId As Integer, ByRef PtP As Point3d, ByRef VtNorm As Vector3d) As Boolean @@ -5535,10 +5606,10 @@ Public Function EgtSurfTmFacetCenter(nId As Integer, nF As Integer, ByRef PtP As Return EgtSurfTmFacetCenter(nId, nF, nId, PtP, VtNorm) End Function - + 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(nId As Integer, nF As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function Public Function EgtSurfTmFacetNormVersor(nId As Integer, nF As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean @@ -5552,10 +5623,10 @@ Public Function EgtSurfTmFacetNormVersor(nId As Integer, nF As Integer, ByRef Vt Return EgtSurfTmFacetNormVersor(nId, nF, nId, VtNorm) End Function - + Private Function EgtTextNormVersor_32(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function - + Private Function EgtTextNormVersor_64(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean End Function Public Function EgtTextNormVersor(nId As Integer, nRefId As Integer, ByRef VtNorm As Vector3d) As Boolean @@ -5569,10 +5640,10 @@ Public Function EgtTextNormVersor(nId As Integer, ByRef VtNorm As Vector3d) As B Return EgtTextNormVersor(nId, nId, VtNorm) End Function - + Private Function EgtPointToIdGlob_32(ByRef PtP As Point3d, nId As Integer) As Boolean End Function - + Private Function EgtPointToIdGlob_64(ByRef PtP As Point3d, nId As Integer) As Boolean End Function Private Function EgtPointToIdGlob(ByRef PtP As Point3d, nId As Integer) As Boolean @@ -5583,10 +5654,10 @@ Private Function EgtPointToIdGlob(ByRef PtP As Point3d, nId As Integer) As Boole End If End Function - + Private Function EgtPointToIdLoc_32(ByRef PtP As Point3d, nId As Integer) As Boolean End Function - + Private Function EgtPointToIdLoc_64(ByRef PtP As Point3d, nId As Integer) As Boolean End Function Private Function EgtPointToIdLoc(ByRef PtP As Point3d, nId As Integer) As Boolean @@ -5597,10 +5668,10 @@ Private Function EgtPointToIdLoc(ByRef PtP As Point3d, nId As Integer) As Boolea End If End Function - + Private Function EgtVectorToIdGlob_32(ByRef VtV As Vector3d, nId As Integer) As Boolean End Function - + Private Function EgtVectorToIdGlob_64(ByRef VtV As Vector3d, nId As Integer) As Boolean End Function Private Function EgtVectorToIdGlob(ByRef VtV As Vector3d, nId As Integer) As Boolean @@ -5611,10 +5682,10 @@ Private Function EgtVectorToIdGlob(ByRef VtV As Vector3d, nId As Integer) As Boo End If End Function - + Private Function EgtVectorToIdLoc_32(ByRef VtV As Vector3d, nId As Integer) As Boolean End Function - + Private Function EgtVectorToIdLoc_64(ByRef VtV As Vector3d, nId As Integer) As Boolean End Function Private Function EgtVectorToIdLoc(ByRef VtV As Vector3d, nId As Integer) As Boolean @@ -5627,10 +5698,10 @@ End Function '---------- Nestings ----------------------------------------------------------- - + Private Function EgtCreateFlatParts_32(nType As Integer) As Boolean End Function - + Private Function EgtCreateFlatParts_64(nType As Integer) As Boolean End Function Public Function EgtCreateFlatParts(nType As Integer) As Boolean @@ -5641,10 +5712,10 @@ Public Function EgtCreateFlatParts(nType As Integer) As Boolean End If End Function - + Private Function EgtAdjustFlatPartLayer_32(nLayerId As Integer) As Boolean End Function - + Private Function EgtAdjustFlatPartLayer_64(nLayerId As Integer) As Boolean End Function Public Function EgtAdjustFlatPartLayer(nLayerId As Integer) As Boolean @@ -5655,10 +5726,10 @@ Public Function EgtAdjustFlatPartLayer(nLayerId As Integer) As Boolean End If End Function - + Private Function EgtCalcFlatPartDownRegion_32(nPartId As Integer, dH As Double) As Boolean End Function - + Private Function EgtCalcFlatPartDownRegion_64(nPartId As Integer, dH As Double) As Boolean End Function Public Function EgtCalcFlatPartDownRegion(nPartId As Integer, dH As Double) As Boolean @@ -5669,11 +5740,11 @@ Public Function EgtCalcFlatPartDownRegion(nPartId As Integer, dH As Double) As B End If End Function - + 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(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 @@ -5696,12 +5767,12 @@ Public Function EgtPackBox(nPartId As Integer, dXmin As Double, dYmin As Double, End If End Function - + 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(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 @@ -5726,11 +5797,11 @@ Public Function EgtMoveBox(nPartId As Integer, ByRef vtMove As Vector3d, dXmin A End If End Function - + 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(vId As Integer(), nCount As Integer, ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean End Function @@ -5778,12 +5849,12 @@ Public Function EgtGetPartBBoxGlob(nPartId As Integer, ByRef b3Box As BBox3d) As Return True End Function - + Private Function EgtCreateOutRegionRectangle_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 EgtCreateOutRegionRectangle_64(nParentId As Integer, dXmin As Double, dYmin As Double, dXmax As Double, dYmax As Double, dZ As Double) As Boolean @@ -5798,10 +5869,10 @@ Public Function EgtCreateOutRegionRectangle(nParentId As Integer, End If End Function - + Private Function EgtCreateOutRegion_32(nParentId As Integer, nOutCrvId As Integer) As Boolean End Function - + Private Function EgtCreateOutRegion_64(nParentId As Integer, nOutCrvId As Integer) As Boolean End Function Public Function EgtCreateOutRegion(nParentId As Integer, nOutCrvId As Integer) As Boolean @@ -5812,10 +5883,10 @@ Public Function EgtCreateOutRegion(nParentId As Integer, nOutCrvId As Integer) A End If End Function - + Private Function EgtCreateDamagedRegion_32(nParentId As Integer, nDmgCrvId As Integer) As Boolean End Function - + Private Function EgtCreateDamagedRegion_64(nParentId As Integer, nDmgCrvId As Integer) As Boolean End Function Public Function EgtCreateDamagedRegion(nParentId As Integer, nDmgCrvId As Integer) As Boolean @@ -5826,10 +5897,10 @@ Public Function EgtCreateDamagedRegion(nParentId As Integer, nDmgCrvId As Intege 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 @@ -5849,11 +5920,11 @@ Public Function EgtVerifyPart(nPartId As Integer, bReducedCut As Boolean) As Boo End If End Function - + Private Function EgtPackPartClusterInRectangle_32(vId As Integer(), nCount As Integer, bReducedCut As Boolean, bBottomUp As Boolean) As Boolean End Function - + Private Function EgtPackPartClusterInRectangle_64(vId As Integer(), nCount As Integer, bReducedCut As Boolean, bBottomUp As Boolean) As Boolean End Function @@ -5876,11 +5947,11 @@ Public Function EgtPackPartInRectangle(nPartId As Integer, bReducedCut As Boolea End If End Function - + Private Function EgtPackPartCluster_32(vId As Integer(), nCount As Integer, bReducedCut As Boolean, bBottomUp As Boolean) As Boolean End Function - + Private Function EgtPackPartCluster_64(vId As Integer(), nCount As Integer, bReducedCut As Boolean, bBottomUp As Boolean) As Boolean End Function @@ -5901,11 +5972,11 @@ Public Function EgtPackPart(nPartId As Integer, bReducedCut As Boolean, bBottomU 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 @@ -5927,11 +5998,11 @@ Public Function EgtMovePart(nPartId As Integer, bReducedCut As Boolean, ByRef vt End If End Function - + 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(vId As Integer(), nCount As Integer, bReducedCut As Boolean, ByRef ptCen As Point3d, ByRef dRotAngDeg As Double) As Boolean End Function @@ -5954,11 +6025,11 @@ Public Function EgtRotatePart(nPartId As Integer, bReducedCut As Boolean, End If End Function - + 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(vId As Integer(), nCount As Integer, bReducedCut As Boolean, ByRef vtMove As Vector3d) As Boolean End Function @@ -5981,11 +6052,11 @@ Public Function EgtTgMovePartOnCollision(nPartId As Integer, End If End Function - + 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(vId As Integer(), nCount As Integer, bReducedCut As Boolean, ByRef bMoved As Boolean) As Boolean End Function @@ -6008,12 +6079,12 @@ Public Function EgtAlignPartOnCollision(nPartId As Integer, bReducedCut As Boole End If End Function - + 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(vId As Integer(), nCount As Integer, bReducedCut As Boolean, dMaxMove As Double, ByRef bMoved As Boolean) As Boolean @@ -6037,10 +6108,10 @@ Public Function EgtMovePartToSnapPointOnCollision(nPartId As Integer, bReducedCu End If End Function - + Private Sub EgtSaveCollInfo_32() End Sub - + Private Sub EgtSaveCollInfo_64() End Sub Public Sub EgtSaveCollInfo() @@ -6051,10 +6122,10 @@ Public Sub EgtSaveCollInfo() End If End Sub - + Private Sub EgtRestoreCollInfo_32() End Sub - + Private Sub EgtRestoreCollInfo_64() End Sub Public Sub EgtRestoreCollInfo() @@ -6065,10 +6136,10 @@ Public Sub EgtRestoreCollInfo() End If End Sub - + Private Function EgtGetPartClusterCenterGlob_32(vId As Integer(), nCount As Integer, ByRef ptCen As Point3d) As Boolean End Function - + Private Function EgtGetPartClusterCenterGlob_64(vId As Integer(), nCount As Integer, ByRef ptCen As Point3d) As Boolean End Function Public Function EgtGetPartClusterCenterGlob(vId As Integer(), ptCen As Point3d, ByRef dRotAngDeg As Double) As Boolean @@ -6088,10 +6159,10 @@ Public Function EgtGetPartPartClusterCenterGlob(nPartId As Integer, ByRef ptCen End If End Function - + Private Function EgtVerifyMachining_32(nId As Integer, ByRef nResult As Integer) As Boolean End Function - + Private Function EgtVerifyMachining_64(nId As Integer, ByRef nResult As Integer) As Boolean End Function Public Function EgtVerifyMachining(nId As Integer, ByRef nResult As Integer) As Boolean @@ -6102,10 +6173,10 @@ Public Function EgtVerifyMachining(nId As Integer, ByRef nResult As Integer) As End If End Function - + Private Function EgtVerifyCutAsSplitting_32(nId As Integer) As Integer End Function - + Private Function EgtVerifyCutAsSplitting_64(nId As Integer) As Integer End Function Public Function EgtVerifyCutAsSplitting(nId As Integer) As Integer @@ -6118,10 +6189,10 @@ End Function '---------- Machinings --------------------------------------------------------- - + Private Function EgtInitMachMgr_32(sMachinesDir As String) As Boolean End Function - + Private Function EgtInitMachMgr_64(sMachinesDir As String) As Boolean End Function Public Function EgtInitMachMgr(sMachinesDir As String) As Boolean @@ -6132,10 +6203,10 @@ Public Function EgtInitMachMgr(sMachinesDir As String) As Boolean End If End Function - + Private Function EgtSetCurrMachine_32(sMachineName As String) As Boolean End Function - + Private Function EgtSetCurrMachine_64(sMachineName As String) As Boolean End Function Public Function EgtSetCurrMachine(sMachineName As String) As Boolean @@ -6146,10 +6217,10 @@ Public Function EgtSetCurrMachine(sMachineName As String) As Boolean End If End Function - + Private Function EgtGetCurrMachineName_32(ByRef psMachineName As IntPtr) As Boolean End Function - + Private Function EgtGetCurrMachineName_64(ByRef psMachineName As IntPtr) As Boolean End Function Public Function EgtGetCurrMachineName(ByRef sMachineName As String) As Boolean @@ -6169,10 +6240,10 @@ Public Function EgtGetCurrMachineName(ByRef sMachineName As String) As Boolean Return bOk End Function - + Private Function EgtGetMachGroupCount_32() As Integer End Function - + Private Function EgtGetMachGroupCount_64() As Integer End Function Public Function EgtGetMachGroupCount() As Integer @@ -6183,10 +6254,10 @@ Public Function EgtGetMachGroupCount() As Integer End If End Function - + Private Function EgtGetFirstMachGroup_32() As Integer End Function - + Private Function EgtGetFirstMachGroup_64() As Integer End Function Public Function EgtGetFirstMachGroup() As Integer @@ -6197,10 +6268,10 @@ Public Function EgtGetFirstMachGroup() As Integer End If End Function - + Private Function EgtGetNextMachGroup_32(nMGroupId As Integer) As Integer End Function - + Private Function EgtGetNextMachGroup_64(nMGroupId As Integer) As Integer End Function Public Function EgtGetNextMachGroup(nMGroupId As Integer) As Integer @@ -6211,10 +6282,10 @@ Public Function EgtGetNextMachGroup(nMGroupId As Integer) As Integer End If End Function - + Private Function EgtAddMachGroup_32(sName As String, sMachineName As String) As Integer End Function - + Private Function EgtAddMachGroup_64(sName As String, sMachineName As String) As Integer End Function Public Function EgtAddMachGroup(sName As String, sMachineName As String) As Integer @@ -6225,10 +6296,10 @@ Public Function EgtAddMachGroup(sName As String, sMachineName As String) As Inte End If End Function - + Private Function EgtRemoveMachGroup_32(nMGroupId As Integer) As Boolean End Function - + Private Function EgtRemoveMachGroup_64(nMGroupId As Integer) As Boolean End Function Public Function EgtRemoveMachGroup(nMGroupId As Integer) As Boolean @@ -6239,10 +6310,10 @@ Public Function EgtRemoveMachGroup(nMGroupId As Integer) As Boolean End If End Function - + Private Function EgtGetMachGroupName_32(nMGroupId As Integer, ByRef psMachGrpName As IntPtr) As Boolean End Function - + Private Function EgtGetMachGroupName_64(nMGroupId As Integer, ByRef psMachGrpName As IntPtr) As Boolean End Function Public Function EgtGetMachGroupName(nMGroupId As Integer, ByRef sMachGrpName As String) As Boolean @@ -6262,10 +6333,10 @@ Public Function EgtGetMachGroupName(nMGroupId As Integer, ByRef sMachGrpName As Return bOk End Function - + Private Function EgtGetMachGroupId_32(sMachGrpName As String) As Integer End Function - + Private Function EgtGetMachGroupId_64(sMachGrpName As String) As Integer End Function Public Function EgtGetMachGroupId(sMachGrpName As String) As Integer @@ -6276,10 +6347,10 @@ Public Function EgtGetMachGroupId(sMachGrpName As String) As Integer End If End Function - + Private Function EgtSetCurrMachGroup_32(nMGroupId As Integer) As Boolean End Function - + Private Function EgtSetCurrMachGroup_64(nMGroupId As Integer) As Boolean End Function Public Function EgtSetCurrMachGroup(nMGroupId As Integer) As Boolean @@ -6290,10 +6361,10 @@ Public Function EgtSetCurrMachGroup(nMGroupId As Integer) As Boolean End If End Function - + Private Function EgtResetCurrMachGroup_32() As Boolean End Function - + Private Function EgtResetCurrMachGroup_64() As Boolean End Function Public Function EgtResetCurrMachGroup() As Boolean @@ -6304,10 +6375,10 @@ Public Function EgtResetCurrMachGroup() As Boolean End If End Function - + Private Function EgtGetCurrMachGroup_32() As Integer End Function - + Private Function EgtGetCurrMachGroup_64() As Integer End Function Public Function EgtGetCurrMachGroup() As Integer @@ -6318,10 +6389,10 @@ Public Function EgtGetCurrMachGroup() As Integer End If End Function - + Private Function EgtAddPhase_32() As Integer End Function - + Private Function EgtAddPhase_64() As Integer End Function Public Function EgtAddPhase() As Integer @@ -6332,10 +6403,10 @@ Public Function EgtAddPhase() As Integer End If End Function - + Private Function EgtSetCurrPhase_32(nPhase As Integer, bForced As Boolean) As Boolean End Function - + Private Function EgtSetCurrPhase_64(nPhase As Integer, bForced As Boolean) As Boolean End Function Public Function EgtSetCurrPhase(nPhase As Integer, Optional bForced As Boolean = False) As Boolean @@ -6346,10 +6417,10 @@ Public Function EgtSetCurrPhase(nPhase As Integer, Optional bForced As Boolean = End If End Function - + Private Function EgtGetCurrPhase_32() As Integer End Function - + Private Function EgtGetCurrPhase_64() As Integer End Function Public Function EgtGetCurrPhase() As Integer @@ -6360,10 +6431,10 @@ Public Function EgtGetCurrPhase() As Integer End If End Function - + Private Function EgtRemoveLastPhase_32() As Boolean End Function - + Private Function EgtRemoveLastPhase_64() As Boolean End Function Public Function EgtRemoveLastPhase() As Boolean @@ -6374,10 +6445,10 @@ Public Function EgtRemoveLastPhase() As Boolean End If End Function - + Private Function EgtGetPhaseCount_32() As Integer End Function - + Private Function EgtGetPhaseCount_64() As Integer End Function Public Function EgtGetPhaseCount() As Integer @@ -6388,10 +6459,10 @@ Public Function EgtGetPhaseCount() As Integer End If End Function - + Private Function EgtGetRawPartCount_32() As Integer End Function - + Private Function EgtGetRawPartCount_64() As Integer End Function Public Function EgtGetRawPartCount() As Integer @@ -6402,10 +6473,10 @@ Public Function EgtGetRawPartCount() As Integer End If End Function - + Private Function EgtGetFirstRawPart_32() As Integer End Function - + Private Function EgtGetFirstRawPart_64() As Integer End Function Public Function EgtGetFirstRawPart() As Integer @@ -6416,10 +6487,10 @@ Public Function EgtGetFirstRawPart() As Integer End If End Function - + Private Function EgtGetNextRawPart_32(nRawId As Integer) As Integer End Function - + Private Function EgtGetNextRawPart_64(nRawId As Integer) As Integer End Function Public Function EgtGetNextRawPart(nRawId As Integer) As Integer @@ -6430,11 +6501,11 @@ Public Function EgtGetNextRawPart(nRawId As Integer) As Integer End If End Function - + 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, dLength As Double, dWidth As Double, dHeight As Double, ByRef Color As Color3d) As Integer End Function @@ -6447,11 +6518,11 @@ Public Function EgtAddRawPart(ByRef ptOrig As Point3d, dLength As Double, dWidth End If End Function - + 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(nRawId As Integer, ByRef ptOrig As Point3d, dLength As Double, dWidth As Double, dHeight As Double, ByRef Color As Color3d) As Boolean End Function @@ -6464,11 +6535,11 @@ Public Function EgtModifyRawPart(nRawId As Integer, ByRef ptOrig As Point3d, dLe 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 @@ -6481,10 +6552,10 @@ Public Function EgtModifyRawPart(nRawId As Integer, nCrvId As Integer, dOverMat End If End Function - + Private Function EgtModifyRawPartSize_32(nRawId As Integer, dLength As Double, dWidth As Double, dHeight As Double) As Boolean End Function - + Private Function EgtModifyRawPartSize_64(nRawId As Integer, dLength As Double, dWidth As Double, dHeight As Double) As Boolean End Function Public Function EgtModifyRawPartSize(nRawId As Integer, dLength As Double, dWidth As Double, dHeight As Double) As Boolean @@ -6495,10 +6566,10 @@ Public Function EgtModifyRawPartSize(nRawId As Integer, dLength As Double, dWidt End If End Function - + Private Function EgtModifyRawPartHeight_32(nRawId As Integer, dHeight As Double) As Boolean End Function - + Private Function EgtModifyRawPartHeight_64(nRawId As Integer, dHeight As Double) As Boolean End Function Public Function EgtModifyRawPartHeight(nRawId As Integer, dHeight As Double) As Boolean @@ -6509,10 +6580,10 @@ Public Function EgtModifyRawPartHeight(nRawId As Integer, dHeight As Double) As End If End Function - + Private Function EgtKeepRawPart_32(nRawId As Integer) As Boolean End Function - + Private Function EgtKeepRawPart_64(nRawId As Integer) As Boolean End Function Public Function EgtKeepRawPart(nRawId As Integer) As Boolean @@ -6523,10 +6594,10 @@ Public Function EgtKeepRawPart(nRawId As Integer) As Boolean End If End Function - + Private Function EgtVerifyRawPartPhase_32(nRawId As Integer, nPhase As Integer) As Boolean End Function - + Private Function EgtVerifyRawPartPhase_64(nRawId As Integer, nPhase As Integer) As Boolean End Function Public Function EgtVerifyRawPartPhase(nRawId As Integer, nPhase As Integer) As Boolean @@ -6537,10 +6608,10 @@ Public Function EgtVerifyRawPartPhase(nRawId As Integer, nPhase As Integer) As B End If End Function - + Private Function EgtRemoveRawPartFromCurrPhase_32(nRawId As Integer) As Boolean End Function - + Private Function EgtRemoveRawPartFromCurrPhase_64(nRawId As Integer) As Boolean End Function Public Function EgtRemoveRawPartFromCurrPhase(nRawId As Integer) As Boolean @@ -6551,10 +6622,10 @@ Public Function EgtRemoveRawPartFromCurrPhase(nRawId As Integer) As Boolean End If End Function - + Private Function EgtRemoveRawPart_32(nRawId As Integer) As Boolean End Function - + Private Function EgtRemoveRawPart_64(nRawId As Integer) As Boolean End Function Public Function EgtRemoveRawPart(nRawId As Integer) As Boolean @@ -6565,10 +6636,10 @@ Public Function EgtRemoveRawPart(nRawId As Integer) As Boolean End If End Function - + Private Function EgtMoveToCornerRawPart_32(nRawId As Integer, ByRef ptCorner As Point3d, nFlag As Integer) As Boolean End Function - + Private Function EgtMoveToCornerRawPart_64(nRawId As Integer, ByRef ptCorner As Point3d, nFlag As Integer) As Boolean End Function Public Function EgtMoveToCornerRawPart(nRawId As Integer, ByRef ptCorner As Point3d, nFlag As Integer) As Boolean @@ -6579,10 +6650,10 @@ Public Function EgtMoveToCornerRawPart(nRawId As Integer, ByRef ptCorner As Poin End If End Function - + Private Function EgtMoveRawPart_32(nRawId As Integer, ByRef vtMove As Vector3d) As Boolean End Function - + Private Function EgtMoveRawPart_64(nRawId As Integer, ByRef vtMove As Vector3d) As Boolean End Function Public Function EgtMoveRawPart(nRawId As Integer, ByRef vtMove As Vector3d) As Boolean @@ -6593,10 +6664,10 @@ Public Function EgtMoveRawPart(nRawId As Integer, ByRef vtMove As Vector3d) As B End If End Function - + Private Function EgtSplitFlatRawPartWithMachinings_32(nRawId As Integer, nNumMch As Integer, nMchId() As Integer) As Integer End Function - + Private Function EgtSplitFlatRawPartWithMachinings_64(nRawId As Integer, nNumMch As Integer, nMchId() As Integer) As Integer End Function Public Function EgtSplitFlatRawPartWithMachinings(nRawId As Integer, nMchId() As Integer) As Integer @@ -6607,10 +6678,10 @@ Public Function EgtSplitFlatRawPartWithMachinings(nRawId As Integer, nMchId() As End If End Function - + Private Function EgtGetPartInRawPartCount_32(nRawId As Integer) As Integer End Function - + Private Function EgtGetPartInRawPartCount_64(nRawId As Integer) As Integer End Function Public Function EgtGetPartInRawPartCount(nRawId As Integer) As Integer @@ -6621,10 +6692,10 @@ Public Function EgtGetPartInRawPartCount(nRawId As Integer) As Integer End If End Function - + Private Function EgtGetFirstPartInRawPart_32(nRawId As Integer) As Integer End Function - + Private Function EgtGetFirstPartInRawPart_64(nRawId As Integer) As Integer End Function Public Function EgtGetFirstPartInRawPart(nRawId As Integer) As Integer @@ -6635,10 +6706,10 @@ Public Function EgtGetFirstPartInRawPart(nRawId As Integer) As Integer End If End Function - + Private Function EgtGetNextPartInRawPart_32(nPartId As Integer) As Integer End Function - + Private Function EgtGetNextPartInRawPart_64(nPartId As Integer) As Integer End Function Public Function EgtGetNextPartInRawPart(nPartId As Integer) As Integer @@ -6649,10 +6720,10 @@ Public Function EgtGetNextPartInRawPart(nPartId As Integer) As Integer End If End Function - + Private Function EgtAddPartToRawPart_32(nPartId As Integer, ByRef ptPos As Point3d, nRawId As Integer) As Boolean End Function - + Private Function EgtAddPartToRawPart_64(nPartId As Integer, ByRef ptPos As Point3d, nRawId As Integer) As Boolean End Function Public Function EgtAddPartToRawPart(nPartId As Integer, ByRef ptPos As Point3d, nRawId As Integer) As Boolean @@ -6663,10 +6734,10 @@ Public Function EgtAddPartToRawPart(nPartId As Integer, ByRef ptPos As Point3d, End If End Function - + Private Function EgtRemovePartFromRawPart_32(nPartId As Integer) As Boolean End Function - + Private Function EgtRemovePartFromRawPart_64(nPartId As Integer) As Boolean End Function Public Function EgtRemovePartFromRawPart(nPartId As Integer) As Boolean @@ -6677,10 +6748,10 @@ Public Function EgtRemovePartFromRawPart(nPartId As Integer) As Boolean End If End Function - + Private Function EgtSetTable_32(sTable As String) As Boolean End Function - + Private Function EgtSetTable_64(sTable As String) As Boolean End Function Public Function EgtSetTable(sTable As String) As Boolean @@ -6691,10 +6762,10 @@ Public Function EgtSetTable(sTable As String) As Boolean End If End Function - + Private Function EgtGetTableName_32(ByRef psTableName As IntPtr) As Boolean End Function - + Private Function EgtGetTableName_64(ByRef psTableName As IntPtr) As Boolean End Function Public Function EgtGetTableName(ByRef sTableName As String) As Boolean @@ -6714,10 +6785,10 @@ Public Function EgtGetTableName(ByRef sTableName As String) As Boolean Return bOk End Function - + Private Function EgtGetTableRef_32(nInd As Integer, ByRef ptPos As Point3d) As Boolean End Function - + Private Function EgtGetTableRef_64(nInd As Integer, ByRef ptPos As Point3d) As Boolean End Function Public Function EgtGetTableRef(nInd As Integer, ByRef ptPos As Point3d) As Boolean @@ -6728,10 +6799,10 @@ Public Function EgtGetTableRef(nInd As Integer, ByRef ptPos As Point3d) As Boole End If End Function - + Private Function EgtGetTableArea_32(nInd As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean End Function - + Private Function EgtGetTableArea_64(nInd As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean End Function Public Function EgtGetTableArea(nInd As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d) As Boolean @@ -6754,10 +6825,10 @@ Public Function EgtGetTableArea(nInd As Integer, ByRef b3Box As BBox3d) As Boole Return True End Function - + Private Function EgtShowOnlyTable_32(bVal As Boolean) As Boolean End Function - + Private Function EgtShowOnlyTable_64(bVal As Boolean) As Boolean End Function Public Function EgtShowOnlyTable(bVal As Boolean) As Boolean @@ -6769,10 +6840,10 @@ Public Function EgtShowOnlyTable(bVal As Boolean) As Boolean End Function ' Tools Database - + Private Function EgtTdbGetToolNewName_32(sName As String, ByRef psNewName As IntPtr) As Boolean End Function - + Private Function EgtTdbGetToolNewName_64(sName As String, ByRef psNewName As IntPtr) As Boolean End Function Public Function EgtTdbGetToolNewName(ByRef sName As String) As Boolean @@ -6792,10 +6863,10 @@ Public Function EgtTdbGetToolNewName(ByRef sName As String) As Boolean Return bOk End Function - + Private Function EgtTdbAddTool_32(sName As String, nType As Integer) As Boolean End Function - + Private Function EgtTdbAddTool_64(sName As String, nType As Integer) As Boolean End Function Public Function EgtTdbAddTool(sName As String, nType As Integer) As Boolean @@ -6806,10 +6877,10 @@ Public Function EgtTdbAddTool(sName As String, nType As Integer) As Boolean End If End Function - + Private Function EgtTdbCopyTool_32(sSource As String, sName As String) As Boolean End Function - + Private Function EgtTdbCopyTool_64(sSource As String, sName As String) As Boolean End Function Public Function EgtTdbCopyTool(sSource As String, sName As String) As Boolean @@ -6820,10 +6891,10 @@ Public Function EgtTdbCopyTool(sSource As String, sName As String) As Boolean End If End Function - + Private Function EgtTdbRemoveTool_32(sName As String) As Boolean End Function - + Private Function EgtTdbRemoveTool_64(sName As String) As Boolean End Function Public Function EgtTdbRemoveTool(sName As String) As Boolean @@ -6834,10 +6905,10 @@ Public Function EgtTdbRemoveTool(sName As String) As Boolean End If End Function - + Private Function EgtTdbGetFirstTool_32(nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean End Function - + Private Function EgtTdbGetFirstTool_64(nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean End Function Public Function EgtTdbGetFirstTool(nFamily As Integer, ByRef sName As String, ByRef nType As Integer) As Boolean @@ -6857,10 +6928,10 @@ Public Function EgtTdbGetFirstTool(nFamily As Integer, ByRef sName As String, By Return bOk End Function - + Private Function EgtTdbGetNextTool_32(nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean End Function - + Private Function EgtTdbGetNextTool_64(nFamily As Integer, ByRef psName As IntPtr, ByRef nType As Integer) As Boolean End Function Public Function EgtTdbGetNextTool(nFamily As Integer, ByRef sName As String, ByRef nType As Integer) As Boolean @@ -6880,10 +6951,10 @@ Public Function EgtTdbGetNextTool(nFamily As Integer, ByRef sName As String, ByR Return bOk End Function - + Private Function EgtTdbGetToolFromUUID_32(sTuuid As String, ByRef psName As IntPtr) As Boolean End Function - + Private Function EgtTdbGetToolFromUUID_64(sTuuid As String, ByRef psName As IntPtr) As Boolean End Function Public Function EgtTdbGetToolFromUUID(sTuuid As String, ByRef sName As String) As Boolean @@ -6903,10 +6974,10 @@ Public Function EgtTdbGetToolFromUUID(sTuuid As String, ByRef sName As String) A Return bOk End Function - + Private Function EgtTdbSetCurrTool_32(sName As String) As Boolean End Function - + Private Function EgtTdbSetCurrTool_64(sName As String) As Boolean End Function Public Function EgtTdbSetCurrTool(sName As String) As Boolean @@ -6917,10 +6988,10 @@ Public Function EgtTdbSetCurrTool(sName As String) As Boolean End If End Function - + Private Function EgtTdbSaveCurrTool_32() As Boolean End Function - + Private Function EgtTdbSaveCurrTool_64() As Boolean End Function Public Function EgtTdbSaveCurrTool() As Boolean @@ -6931,10 +7002,10 @@ Public Function EgtTdbSaveCurrTool() As Boolean End If End Function - + Private Function EgtTdbIsCurrToolModified_32() As Boolean End Function - + Private Function EgtTdbIsCurrToolModified_64() As Boolean End Function Public Function EgtTdbIsCurrToolModified() As Boolean @@ -6945,10 +7016,10 @@ Public Function EgtTdbIsCurrToolModified() As Boolean End If End Function - + Private Function EgtTdbSetCurrToolParamBool_32(nType As Integer, bVal As Boolean) As Boolean End Function - + Private Function EgtTdbSetCurrToolParamBool_64(nType As Integer, bVal As Boolean) As Boolean End Function Public Function EgtTdbSetCurrToolParam(nType As Integer, bVal As Boolean) As Boolean @@ -6959,10 +7030,10 @@ Public Function EgtTdbSetCurrToolParam(nType As Integer, bVal As Boolean) As Boo End If End Function - + Private Function EgtTdbSetCurrToolParamInt_32(nType As Integer, nVal As Integer) As Boolean End Function - + Private Function EgtTdbSetCurrToolParamInt_64(nType As Integer, nVal As Integer) As Boolean End Function Public Function EgtTdbSetCurrToolParam(nType As Integer, nVal As Integer) As Boolean @@ -6973,10 +7044,10 @@ Public Function EgtTdbSetCurrToolParam(nType As Integer, nVal As Integer) As Boo End If End Function - + Private Function EgtTdbSetCurrToolParamDouble_32(nType As Integer, dVal As Double) As Boolean End Function - + Private Function EgtTdbSetCurrToolParamDouble_64(nType As Integer, dVal As Double) As Boolean End Function Public Function EgtTdbSetCurrToolParam(nType As Integer, dVal As Double) As Boolean @@ -6987,10 +7058,10 @@ Public Function EgtTdbSetCurrToolParam(nType As Integer, dVal As Double) As Bool End If End Function - + Private Function EgtTdbSetCurrToolParamString_32(nType As Integer, sVal As String) As Boolean End Function - + Private Function EgtTdbSetCurrToolParamString_64(nType As Integer, sVal As String) As Boolean End Function Public Function EgtTdbSetCurrToolParam(nType As Integer, sVal As String) As Boolean @@ -7001,10 +7072,10 @@ Public Function EgtTdbSetCurrToolParam(nType As Integer, sVal As String) As Bool End If End Function - + Private Function EgtTdbGetCurrToolParamBool_32(nType As Integer, ByRef bVal As Boolean) As Boolean End Function - + Private Function EgtTdbGetCurrToolParamBool_64(nType As Integer, ByRef bVal As Boolean) As Boolean End Function Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef bVal As Boolean) As Boolean @@ -7015,10 +7086,10 @@ Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef bVal As Boolean) End If End Function - + Private Function EgtTdbGetCurrToolParamInt_32(nType As Integer, ByRef nVal As Integer) As Boolean End Function - + Private Function EgtTdbGetCurrToolParamInt_64(nType As Integer, ByRef nVal As Integer) As Boolean End Function Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef nVal As Integer) As Boolean @@ -7029,10 +7100,10 @@ Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef nVal As Integer) End If End Function - + Private Function EgtTdbGetCurrToolParamDouble_32(nType As Integer, ByRef dVal As Double) As Boolean End Function - + Private Function EgtTdbGetCurrToolParamDouble_64(nType As Integer, ByRef dVal As Double) As Boolean End Function Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef dVal As Double) As Boolean @@ -7043,10 +7114,10 @@ Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef dVal As Double) A End If End Function - + Private Function EgtTdbGetCurrToolParamString_32(nType As Integer, ByRef psVal As IntPtr) As Boolean End Function - + Private Function EgtTdbGetCurrToolParamString_64(nType As Integer, ByRef psVal As IntPtr) As Boolean End Function Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef sVal As String) As Boolean @@ -7066,10 +7137,10 @@ Public Function EgtTdbGetCurrToolParam(nType As Integer, ByRef sVal As String) A Return bOk End Function - + Private Function EgtTdbSave_32() As Boolean End Function - + Private Function EgtTdbSave_64() As Boolean End Function Public Function EgtTdbSave() As Boolean @@ -7080,10 +7151,10 @@ Public Function EgtTdbSave() As Boolean End If End Function - + Private Function EgtTdbGetToolDir_32(ByRef psToolDir As IntPtr) As Boolean End Function - + Private Function EgtTdbGetToolDir_64(ByRef psToolDir As IntPtr) As Boolean End Function Public Function EgtTdbGetToolDir(ByRef sToolDir As String) As Boolean @@ -7103,10 +7174,10 @@ Public Function EgtTdbGetToolDir(ByRef sToolDir As String) As Boolean Return bOk End Function - + Private Function EgtTdbGetToolHolderDir_32(ByRef psTHolderDir As IntPtr) As Boolean End Function - + Private Function EgtTdbGetToolHolderDir_64(ByRef psTHolderDir As IntPtr) As Boolean End Function Public Function EgtTdbGetToolHolderDir(ByRef sTHolderDir As String) As Boolean @@ -7127,10 +7198,10 @@ Public Function EgtTdbGetToolHolderDir(ByRef sTHolderDir As String) As Boolean End Function ' Machinings Database - + Private Function EgtMdbGetMachiningNewName_32(sName As String, ByRef psNewName As IntPtr) As Boolean End Function - + Private Function EgtMdbGetMachiningNewName_64(sName As String, ByRef psNewName As IntPtr) As Boolean End Function Public Function EgtMdbGetMachiningNewName(ByRef sName As String) As Boolean @@ -7150,10 +7221,10 @@ Public Function EgtMdbGetMachiningNewName(ByRef sName As String) As Boolean Return bOk End Function - + Private Function EgtMdbAddMachining_32(sName As String, nType As Integer) As Boolean End Function - + Private Function EgtMdbAddMachining_64(sName As String, nType As Integer) As Boolean End Function Public Function EgtMdbAddMachining(sName As String, nType As Integer) As Boolean @@ -7164,10 +7235,10 @@ Public Function EgtMdbAddMachining(sName As String, nType As Integer) As Boolean End If End Function - + Private Function EgtMdbCopyMachining_32(sSource As String, sName As String) As Boolean End Function - + Private Function EgtMdbCopyMachining_64(sSource As String, sName As String) As Boolean End Function Public Function EgtMdbCopyMachining(sSource As String, sName As String) As Boolean @@ -7178,10 +7249,10 @@ Public Function EgtMdbCopyMachining(sSource As String, sName As String) As Boole End If End Function - + Private Function EgtMdbRemoveMachining_32(sName As String) As Boolean End Function - + Private Function EgtMdbRemoveMachining_64(sName As String) As Boolean End Function Public Function EgtMdbRemoveMachining(sName As String) As Boolean @@ -7192,10 +7263,10 @@ Public Function EgtMdbRemoveMachining(sName As String) As Boolean End If End Function - + Private Function EgtMdbGetFirstMachining_32(nType As Integer, ByRef psName As IntPtr) As Boolean End Function - + Private Function EgtMdbGetFirstMachining_64(nType As Integer, ByRef psName As IntPtr) As Boolean End Function Public Function EgtMdbGetFirstMachining(nType As Integer, ByRef sName As String) As Boolean @@ -7215,10 +7286,10 @@ Public Function EgtMdbGetFirstMachining(nType As Integer, ByRef sName As String) Return bOk End Function - + Private Function EgtMdbGetNextMachining_32(nType As Integer, ByRef psName As IntPtr) As Boolean End Function - + Private Function EgtMdbGetNextMachining_64(nType As Integer, ByRef psName As IntPtr) As Boolean End Function Public Function EgtMdbGetNextMachining(nType As Integer, ByRef sName As String) As Boolean @@ -7238,10 +7309,10 @@ Public Function EgtMdbGetNextMachining(nType As Integer, ByRef sName As String) Return bOk End Function - + Private Function EgtMdbSetCurrMachining_32(sName As String) As Boolean End Function - + Private Function EgtMdbSetCurrMachining_64(sName As String) As Boolean End Function Public Function EgtMdbSetCurrMachining(sName As String) As Boolean @@ -7252,10 +7323,10 @@ Public Function EgtMdbSetCurrMachining(sName As String) As Boolean End If End Function - + Private Function EgtMdbSaveCurrMachining_32() As Boolean End Function - + Private Function EgtMdbSaveCurrMachining_64() As Boolean End Function Public Function EgtMdbSaveCurrMachining() As Boolean @@ -7266,10 +7337,10 @@ Public Function EgtMdbSaveCurrMachining() As Boolean End If End Function - + Private Function EgtMdbIsCurrMachiningModified_32() As Boolean End Function - + Private Function EgtMdbIsCurrMachiningModified_64() As Boolean End Function Public Function EgtMdbIsCurrMachiningModified() As Boolean @@ -7280,10 +7351,10 @@ Public Function EgtMdbIsCurrMachiningModified() As Boolean End If End Function - + Private Function EgtMdbSetCurrMachiningParamBool_32(nType As Integer, nVal As Boolean) As Boolean End Function - + Private Function EgtMdbSetCurrMachiningParamBool_64(nType As Integer, nVal As Boolean) As Boolean End Function Public Function EgtMdbSetCurrMachiningParam(nType As Integer, nVal As Boolean) As Boolean @@ -7294,10 +7365,10 @@ Public Function EgtMdbSetCurrMachiningParam(nType As Integer, nVal As Boolean) A End If End Function - + Private Function EgtMdbSetCurrMachiningParamInt_32(nType As Integer, nVal As Integer) As Boolean End Function - + Private Function EgtMdbSetCurrMachiningParamInt_64(nType As Integer, nVal As Integer) As Boolean End Function Public Function EgtMdbSetCurrMachiningParam(nType As Integer, nVal As Integer) As Boolean @@ -7308,10 +7379,10 @@ Public Function EgtMdbSetCurrMachiningParam(nType As Integer, nVal As Integer) A End If End Function - + Private Function EgtMdbSetCurrMachiningParamDouble_32(nType As Integer, dVal As Double) As Boolean End Function - + Private Function EgtMdbSetCurrMachiningParamDouble_64(nType As Integer, dVal As Double) As Boolean End Function Public Function EgtMdbSetCurrMachiningParam(nType As Integer, dVal As Double) As Boolean @@ -7322,10 +7393,10 @@ Public Function EgtMdbSetCurrMachiningParam(nType As Integer, dVal As Double) As End If End Function - + Private Function EgtMdbSetCurrMachiningParamString_32(nType As Integer, sVal As String) As Boolean End Function - + Private Function EgtMdbSetCurrMachiningParamString_64(nType As Integer, sVal As String) As Boolean End Function Public Function EgtMdbSetCurrMachiningParam(nType As Integer, sVal As String) As Boolean @@ -7336,10 +7407,10 @@ Public Function EgtMdbSetCurrMachiningParam(nType As Integer, sVal As String) As End If End Function - + Private Function EgtMdbGetCurrMachiningParamBool_32(nType As Integer, ByRef bVal As Boolean) As Boolean End Function - + Private Function EgtMdbGetCurrMachiningParamBool_64(nType As Integer, ByRef bVal As Boolean) As Boolean End Function Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef bVal As Boolean) As Boolean @@ -7350,10 +7421,10 @@ Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef bVal As Bool End If End Function - + Private Function EgtMdbGetCurrMachiningParamInt_32(nType As Integer, ByRef nVal As Integer) As Boolean End Function - + Private Function EgtMdbGetCurrMachiningParamInt_64(nType As Integer, ByRef nVal As Integer) As Boolean End Function Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef nVal As Integer) As Boolean @@ -7364,10 +7435,10 @@ Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef nVal As Inte End If End Function - + Private Function EgtMdbGetCurrMachiningParamDouble_32(nType As Integer, ByRef dVal As Double) As Boolean End Function - + Private Function EgtMdbGetCurrMachiningParamDouble_64(nType As Integer, ByRef dVal As Double) As Boolean End Function Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef dVal As Double) As Boolean @@ -7378,10 +7449,10 @@ Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef dVal As Doub End If End Function - + Private Function EgtMdbGetCurrMachiningParamString_32(nType As Integer, ByRef psVal As IntPtr) As Boolean End Function - + Private Function EgtMdbGetCurrMachiningParamString_64(nType As Integer, ByRef psVal As IntPtr) As Boolean End Function Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef sVal As String) As Boolean @@ -7401,10 +7472,10 @@ Public Function EgtMdbGetCurrMachiningParam(nType As Integer, ByRef sVal As Stri Return bOk End Function - + Private Function EgtMdbSetGeneralParamDouble_32(nType As Integer, dVal As Double) As Boolean End Function - + Private Function EgtMdbSetGeneralParamDouble_64(nType As Integer, dVal As Double) As Boolean End Function Public Function EgtMdbSetGeneralParam(nType As Integer, dVal As Double) As Boolean @@ -7415,10 +7486,10 @@ Public Function EgtMdbSetGeneralParam(nType As Integer, dVal As Double) As Boole End If End Function - + Private Function EgtMdbGetGeneralParamDouble_32(nType As Integer, ByRef dVal As Double) As Boolean End Function - + Private Function EgtMdbGetGeneralParamDouble_64(nType As Integer, ByRef dVal As Double) As Boolean End Function Public Function EgtMdbGetGeneralParam(nType As Integer, ByRef dVal As Double) As Boolean @@ -7429,10 +7500,10 @@ Public Function EgtMdbGetGeneralParam(nType As Integer, ByRef dVal As Double) As End If End Function - + Private Function EgtMdbSave_32() As Boolean End Function - + Private Function EgtMdbSave_64() As Boolean End Function Public Function EgtMdbSave() As Boolean @@ -7443,10 +7514,10 @@ Public Function EgtMdbSave() As Boolean End If End Function - + Private Function EgtMdbGetMachiningDir_32(ByRef psMachiningDir As IntPtr) As Boolean End Function - + Private Function EgtMdbGetMachiningDir_64(ByRef psMachiningDir As IntPtr) As Boolean End Function Public Function EgtMdbGetMachiningDir(ByRef sMachiningDir As String) As Boolean @@ -7467,10 +7538,10 @@ Public Function EgtMdbGetMachiningDir(ByRef sMachiningDir As String) As Boolean End Function ' Operations - + Private Function EgtGetFirstOperation_32() As Integer End Function - + Private Function EgtGetFirstOperation_64() As Integer End Function Public Function EgtGetFirstOperation() As Integer @@ -7481,10 +7552,10 @@ Public Function EgtGetFirstOperation() As Integer End If End Function - + Private Function EgtGetNextOperation_32(nId As Integer) As Integer End Function - + Private Function EgtGetNextOperation_64(nId As Integer) As Integer End Function Public Function EgtGetNextOperation(nId As Integer) As Integer @@ -7495,10 +7566,10 @@ Public Function EgtGetNextOperation(nId As Integer) As Integer End If End Function - + Private Function EgtGetLastOperation_32() As Integer End Function - + Private Function EgtGetLastOperation_64() As Integer End Function Public Function EgtGetLastOperation() As Integer @@ -7509,10 +7580,10 @@ Public Function EgtGetLastOperation() As Integer End If End Function - + Private Function EgtGetPrevOperation_32(nId As Integer) As Integer End Function - + Private Function EgtGetPrevOperation_64(nId As Integer) As Integer End Function Public Function EgtGetPrevOperation(nId As Integer) As Integer @@ -7523,10 +7594,10 @@ Public Function EgtGetPrevOperation(nId As Integer) As Integer End If End Function - + Private Function EgtGetFirstActiveOperation_32() As Integer End Function - + Private Function EgtGetFirstActiveOperation_64() As Integer End Function Public Function EgtGetFirstActiveOperation() As Integer @@ -7537,10 +7608,10 @@ Public Function EgtGetFirstActiveOperation() As Integer End If End Function - + Private Function EgtGetNextActiveOperation_32(nId As Integer) As Integer End Function - + Private Function EgtGetNextActiveOperation_64(nId As Integer) As Integer End Function Public Function EgtGetNextActiveOperation(nId As Integer) As Integer @@ -7551,10 +7622,10 @@ Public Function EgtGetNextActiveOperation(nId As Integer) As Integer End If End Function - + Private Function EgtGetLastActiveOperation_32() As Integer End Function - + Private Function EgtGetLastActiveOperation_64() As Integer End Function Public Function EgtGetLastActiveOperation() As Integer @@ -7565,10 +7636,10 @@ Public Function EgtGetLastActiveOperation() As Integer End If End Function - + Private Function EgtGetPrevActiveOperation_32(nId As Integer) As Integer End Function - + Private Function EgtGetPrevActiveOperation_64(nId As Integer) As Integer End Function Public Function EgtGetPrevActiveOperation(nId As Integer) As Integer @@ -7579,10 +7650,10 @@ Public Function EgtGetPrevActiveOperation(nId As Integer) As Integer End If End Function - + Private Function EgtGetOperationType_32(nId As Integer) As Integer End Function - + Private Function EgtGetOperationType_64(nId As Integer) As Integer End Function Public Function EgtGetOperationType(nId As Integer) As Integer @@ -7593,10 +7664,10 @@ Public Function EgtGetOperationType(nId As Integer) As Integer End If End Function - + Private Function EgtGetOperationPhase_32(nId As Integer) As Integer End Function - + Private Function EgtGetOperationPhase_64(nId As Integer) As Integer End Function Public Function EgtGetOperationPhase(nId As Integer) As Integer @@ -7607,10 +7678,10 @@ Public Function EgtGetOperationPhase(nId As Integer) As Integer End If End Function - + Private Function EgtGetOperationName_32(nId As Integer, ByRef psName As IntPtr) As Boolean End Function - + Private Function EgtGetOperationName_64(nId As Integer, ByRef psName As IntPtr) As Boolean End Function Public Function EgtGetOperationName(nId As Integer, ByRef sName As String) As Boolean @@ -7630,10 +7701,10 @@ Public Function EgtGetOperationName(nId As Integer, ByRef sName As String) As Bo Return bOk End Function - + Private Function EgtGetOperationId_32(sName As String) As Integer End Function - + Private Function EgtGetOperationId_64(sName As String) As Integer End Function Public Function EgtGetOperationId(sName As String) As Integer @@ -7644,10 +7715,10 @@ Public Function EgtGetOperationId(sName As String) As Integer End If End Function - + Private Function EgtRemoveOperation_32(nId As Integer) As Boolean End Function - + Private Function EgtRemoveOperation_64(nId As Integer) As Boolean End Function Public Function EgtRemoveOperation(nId As Integer) As Boolean @@ -7658,10 +7729,10 @@ Public Function EgtRemoveOperation(nId As Integer) As Boolean End If End Function - + Private Function EgtRemoveAllPhaseOperations_32(nPhase As Integer) As Boolean End Function - + Private Function EgtRemoveAllPhaseOperations_64(nPhase As Integer) As Boolean End Function Public Function EgtRemoveAllPhaseOperations(nPhase As Integer) As Boolean @@ -7672,10 +7743,10 @@ Public Function EgtRemoveAllPhaseOperations(nPhase As Integer) As Boolean End If End Function - + Private Function EgtRemoveAllOperations_32() As Boolean End Function - + Private Function EgtRemoveAllOperations_64() As Boolean End Function Public Function EgtRemoveAllOperations() As Boolean @@ -7686,10 +7757,10 @@ Public Function EgtRemoveAllOperations() As Boolean End If End Function - + Private Function EgtSetOperationMode_32(nId As Integer, bActive As Boolean) As Boolean End Function - + Private Function EgtSetOperationMode_64(nId As Integer, bActive As Boolean) As Boolean End Function Public Function EgtSetOperationMode(nId As Integer, bActive As Boolean) As Boolean @@ -7700,10 +7771,10 @@ Public Function EgtSetOperationMode(nId As Integer, bActive As Boolean) As Boole End If End Function - + Private Function EgtGetOperationMode_32(nId As Integer) As Boolean End Function - + Private Function EgtGetOperationMode_64(nId As Integer) As Boolean End Function Public Function EgtGetOperationMode(nId As Integer) As Boolean @@ -7714,10 +7785,10 @@ Public Function EgtGetOperationMode(nId As Integer) As Boolean End If End Function - + Private Function EgtSetAllOperationsMode_32(bActive As Boolean) As Boolean End Function - + Private Function EgtSetAllOperationsMode_64(bActive As Boolean) As Boolean End Function Public Function EgtSetAllOperationsMode(bActive As Boolean) As Boolean @@ -7728,10 +7799,10 @@ Public Function EgtSetAllOperationsMode(bActive As Boolean) As Boolean End If End Function - + Private Function EgtSetOperationStatus_32(nId As Integer, bShow As Boolean) As Boolean End Function - + Private Function EgtSetOperationStatus_64(nId As Integer, bShow As Boolean) As Boolean End Function Public Function EgtSetOperationStatus(nId As Integer, bShow As Boolean) As Boolean @@ -7742,10 +7813,10 @@ Public Function EgtSetOperationStatus(nId As Integer, bShow As Boolean) As Boole End If End Function - + Private Function EgtGetOperationStatus_32(nId As Integer) As Boolean End Function - + Private Function EgtGetOperationStatus_64(nId As Integer) As Boolean End Function Public Function EgtGetOperationStatus(nId As Integer) As Boolean @@ -7756,10 +7827,10 @@ Public Function EgtGetOperationStatus(nId As Integer) As Boolean End If End Function - + Private Function EgtSetAllOperationsStatus_32(bShow As Boolean) As Boolean End Function - + Private Function EgtSetAllOperationsStatus_64(bShow As Boolean) As Boolean End Function Public Function EgtSetAllOperationsStatus(bShow As Boolean) As Boolean @@ -7770,10 +7841,10 @@ Public Function EgtSetAllOperationsStatus(bShow As Boolean) As Boolean End If End Function - + Private Function EgtChangeOperationPhase_32(nId As Integer, nNewPhase As Integer) As Boolean End Function - + Private Function EgtChangeOperationPhase_64(nId As Integer, nNewPhase As Integer) As Boolean End Function Public Function EgtChangeOperationPhase(nId As Integer, nNewPhase As Integer) As Boolean @@ -7784,10 +7855,10 @@ Public Function EgtChangeOperationPhase(nId As Integer, nNewPhase As Integer) As End If End Function - + Private Function EgtRemoveOperationHome_32(nId As Integer) As Boolean End Function - + Private Function EgtRemoveOperationHome_64(nId As Integer) As Boolean End Function Public Function EgtRemoveOperationHome(nId As Integer) As Boolean @@ -7799,10 +7870,10 @@ Public Function EgtRemoveOperationHome(nId As Integer) As Boolean End Function ' Dispositions - + Private Function EgtGetPhaseDisposition_32(nPhase As Integer) As Integer End Function - + Private Function EgtGetPhaseDisposition_64(nPhase As Integer) As Integer End Function Public Function EgtGetPhaseDisposition(nPhase As Integer) As Integer @@ -7813,10 +7884,10 @@ Public Function EgtGetPhaseDisposition(nPhase As Integer) As Integer End If End Function - + Private Function EgtSpecialApplyDisposition_32(nId As Integer, bRecalc As Boolean) As Boolean End Function - + Private Function EgtSpecialApplyDisposition_64(nId As Integer, bRecalc As Boolean) As Boolean End Function Public Function EgtSpecialApplyDisposition(nId As Integer, bRecalc As Boolean) As Boolean @@ -7828,10 +7899,10 @@ Public Function EgtSpecialApplyDisposition(nId As Integer, bRecalc As Boolean) A End Function ' Machinings - + Private Function EgtAddMachining_32(sName As String, sMachining As String) As Integer End Function - + Private Function EgtAddMachining_64(sName As String, sMachining As String) As Integer End Function Public Function EgtAddMachining(sName As String, sMachining As String) As Integer @@ -7842,10 +7913,10 @@ Public Function EgtAddMachining(sName As String, sMachining As String) As Intege End If End Function - + Private Function EgtCreateMachining_32(sName As String, nType As Integer, sMachining As String) As Integer End Function - + Private Function EgtCreateMachining_64(sName As String, nType As Integer, sMachining As String) As Integer End Function Public Function EgtCreateMachining(sName As String, nType As Integer, sMachining As String) As Integer @@ -7856,10 +7927,10 @@ Public Function EgtCreateMachining(sName As String, nType As Integer, sMachining End If End Function - + Private Function EgtSetCurrMachining_32(nId As Integer) As Boolean End Function - + Private Function EgtSetCurrMachining_64(nId As Integer) As Boolean End Function Public Function EgtSetCurrMachining(nId As Integer) As Boolean @@ -7870,10 +7941,10 @@ Public Function EgtSetCurrMachining(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 @@ -7884,10 +7955,10 @@ Public Function EgtGetCurrMachining() As Integer End If End Function - + Private Function EgtSetMachiningParamBool_32(nType As Integer, nVal As Boolean) As Boolean End Function - + Private Function EgtSetMachiningParamBool_64(nType As Integer, nVal As Boolean) As Boolean End Function Public Function EgtSetMachiningParam(nType As Integer, nVal As Boolean) As Boolean @@ -7898,10 +7969,10 @@ Public Function EgtSetMachiningParam(nType As Integer, nVal As Boolean) As Boole End If End Function - + Private Function EgtSetMachiningParamInt_32(nType As Integer, nVal As Integer) As Boolean End Function - + Private Function EgtSetMachiningParamInt_64(nType As Integer, nVal As Integer) As Boolean End Function Public Function EgtSetMachiningParam(nType As Integer, nVal As Integer) As Boolean @@ -7912,10 +7983,10 @@ Public Function EgtSetMachiningParam(nType As Integer, nVal As Integer) As Boole End If End Function - + Private Function EgtSetMachiningParamDouble_32(nType As Integer, dVal As Double) As Boolean End Function - + Private Function EgtSetMachiningParamDouble_64(nType As Integer, dVal As Double) As Boolean End Function Public Function EgtSetMachiningParam(nType As Integer, dVal As Double) As Boolean @@ -7926,10 +7997,10 @@ Public Function EgtSetMachiningParam(nType As Integer, dVal As Double) As Boolea End If End Function - + Private Function EgtSetMachiningParamString_32(nType As Integer, sVal As String) As Boolean End Function - + Private Function EgtSetMachiningParamString_64(nType As Integer, sVal As String) As Boolean End Function Public Function EgtSetMachiningParam(nType As Integer, sVal As String) As Boolean @@ -7940,10 +8011,10 @@ Public Function EgtSetMachiningParam(nType As Integer, sVal As String) As Boolea End If End Function - + Private Function EgtSetMachiningGeometry_32(nNumId As Integer, nId() As Integer, nSub() As Integer) As Boolean End Function - + Private Function EgtSetMachiningGeometry_64(nNumId As Integer, nId() As Integer, nSub() As Integer) As Boolean End Function Public Function EgtSetMachiningGeometry(nId() As Integer, nSub() As Integer) As Boolean @@ -7966,10 +8037,10 @@ Public Function EgtSetMachiningGeometry(nId() As Integer) As Boolean End If End Function - + Private Function EgtPreviewMachining_32(bRecalc As Boolean) As Boolean End Function - + Private Function EgtPreviewMachining_64(bRecalc As Boolean) As Boolean End Function Public Function EgtPreviewMachining(bRecalc As Boolean) As Boolean @@ -7980,10 +8051,10 @@ Public Function EgtPreviewMachining(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 @@ -7994,10 +8065,10 @@ Public Function EgtApplyMachining(bRecalc As Boolean) As Boolean End If End Function - + Private Function EgtGetMachiningParamBool_32(nType As Integer, ByRef bVal As Boolean) As Boolean End Function - + Private Function EgtGetMachiningParamBool_64(nType As Integer, ByRef bVal As Boolean) As Boolean End Function Public Function EgtGetMachiningParam(nType As Integer, ByRef bVal As Boolean) As Boolean @@ -8008,10 +8079,10 @@ Public Function EgtGetMachiningParam(nType As Integer, ByRef bVal As Boolean) As End If End Function - + Private Function EgtGetMachiningParamInt_32(nType As Integer, ByRef nVal As Integer) As Boolean End Function - + Private Function EgtGetMachiningParamInt_64(nType As Integer, ByRef nVal As Integer) As Boolean End Function Public Function EgtGetMachiningParam(nType As Integer, ByRef nVal As Integer) As Boolean @@ -8022,10 +8093,10 @@ Public Function EgtGetMachiningParam(nType As Integer, ByRef nVal As Integer) As End If End Function - + Private Function EgtGetMachiningParamDouble_32(nType As Integer, ByRef dVal As Double) As Boolean End Function - + Private Function EgtGetMachiningParamDouble_64(nType As Integer, ByRef dVal As Double) As Boolean End Function Public Function EgtGetMachiningParam(nType As Integer, ByRef dVal As Double) As Boolean @@ -8036,10 +8107,10 @@ Public Function EgtGetMachiningParam(nType As Integer, ByRef dVal As Double) As End If End Function - + Private Function EgtGetMachiningParamString_32(nType As Integer, ByRef psVal As IntPtr) As Boolean End Function - + Private Function EgtGetMachiningParamString_64(nType As Integer, ByRef psVal As IntPtr) As Boolean End Function Public Function EgtGetMachiningParam(nType As Integer, ByRef sVal As String) As Boolean @@ -8059,10 +8130,10 @@ Public Function EgtGetMachiningParam(nType As Integer, ByRef sVal As String) As Return bOk 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 @@ -8073,10 +8144,10 @@ Public Function EgtGetMachiningGeometry(nInd As Integer, ByRef nId As Integer, B End If End Function - + Private Function EgtIsMachiningEmpty_32() As Boolean End Function - + Private Function EgtIsMachiningEmpty_64() As Boolean End Function Public Function EgtIsMachiningEmpty() As Boolean @@ -8088,10 +8159,10 @@ Public Function EgtIsMachiningEmpty() As Boolean End Function ' Simulation - + Private Function EgtSimStart_32() As Boolean End Function - + Private Function EgtSimStart_64() As Boolean End Function Public Function EgtSimStart() As Boolean @@ -8102,10 +8173,10 @@ Public Function EgtSimStart() As Boolean End If End Function - + Private Function EgtSimMove_32(ByRef nStatus As Integer) As Boolean End Function - + Private Function EgtSimMove_64(ByRef nStatus As Integer) As Boolean End Function Public Function EgtSimMove(ByRef nStatus As Integer) As Boolean @@ -8116,10 +8187,10 @@ Public Function EgtSimMove(ByRef nStatus As Integer) As Boolean End If End Function - + Private Function EgtSimHome_32() As Boolean End Function - + Private Function EgtSimHome_64() As Boolean End Function Public Function EgtSimHome() As Boolean @@ -8130,10 +8201,10 @@ Public Function EgtSimHome() As Boolean End If End Function - + Private Function EgtSimGetAxisInfoPos_32(nInd As Integer, ByRef psName As IntPtr, ByRef dVal As Double) As Boolean End Function - + Private Function EgtSimGetAxisInfoPos_64(nInd As Integer, ByRef psName As IntPtr, ByRef dVal As Double) As Boolean End Function Public Function EgtSimGetAxisInfoPos(nInd As Integer, ByRef sName As String, ByRef dVal As Double) As Boolean @@ -8153,10 +8224,10 @@ Public Function EgtSimGetAxisInfoPos(nInd As Integer, ByRef sName As String, ByR Return bOk End Function - + Private Function EgtSimGetToolInfo_32(ByRef psTool As IntPtr, ByRef dSpeed As Double) As Boolean End Function - + Private Function EgtSimGetToolInfo_64(ByRef psTool As IntPtr, ByRef dSpeed As Double) As Boolean End Function Public Function EgtSimGetToolInfo(ByRef sTool As String, ByRef dSpeed As Double) As Boolean @@ -8176,10 +8247,10 @@ Public Function EgtSimGetToolInfo(ByRef sTool As String, ByRef dSpeed As Double) Return bOk End Function - + Private Function EgtSimGetMoveInfo_32(ByRef nGmove As Integer, ByRef dSpeed As Double) As Boolean End Function - + Private Function EgtSimGetMoveInfo_64(ByRef nGmove As Integer, ByRef dSpeed As Double) As Boolean End Function Public Function EgtSimGetMoveInfo(ByRef nGmove As Integer, ByRef dSpeed As Double) As Boolean @@ -8190,10 +8261,10 @@ Public Function EgtSimGetMoveInfo(ByRef nGmove As Integer, ByRef dSpeed As Doubl End If End Function - + Private Function EgtSimSetStep_32(dStep As Double) As Boolean End Function - + Private Function EgtSimSetStep_64(dStep As Double) As Boolean End Function Public Function EgtSimSetStep(dStep As Double) As Boolean @@ -8204,10 +8275,10 @@ Public Function EgtSimSetStep(dStep As Double) As Boolean End If End Function - + Private Function EgtSimStop_32() As Boolean End Function - + Private Function EgtSimStop_64() As Boolean End Function Public Function EgtSimStop() As Boolean @@ -8219,10 +8290,10 @@ Public Function EgtSimStop() As Boolean End Function ' Generation - + Private Function EgtGenerate_32(sCncFile As String, sInfo As String) As Boolean End Function - + Private Function EgtGenerate_64(sCncFile As String, sInfo As String) As Boolean End Function Public Function EgtGenerate(sCncFile As String, sInfo As String) As Boolean @@ -8234,10 +8305,10 @@ Public Function EgtGenerate(sCncFile As String, sInfo As String) As Boolean End Function ' Machine - + Private Function EgtGetBaseId_32(sBase As String) As Integer End Function - + Private Function EgtGetBaseId_64(sBase As String) As Integer End Function Public Function EgtGetBaseId(sBase As String) As Integer @@ -8248,10 +8319,10 @@ Public Function EgtGetBaseId(sBase As String) As Integer End If End Function - + Private Function EgtGetTableId_32(sTable As String) As Integer End Function - + Private Function EgtGetTableId_64(sTable As String) As Integer End Function Public Function EgtGetTableId(sTable As String) As Integer @@ -8262,10 +8333,10 @@ Public Function EgtGetTableId(sTable As String) As Integer End If End Function - + Private Function EgtGetAxisId_32(sAxis As String) As Integer End Function - + Private Function EgtGetAxisId_64(sAxis As String) As Integer End Function Public Function EgtGetAxisId(sAxis As String) As Integer @@ -8276,10 +8347,10 @@ Public Function EgtGetAxisId(sAxis As String) As Integer End If End Function - + Private Function EgtGetHeadId_32(sHead As String) As Integer End Function - + Private Function EgtGetHeadId_64(sHead As String) As Integer End Function Public Function EgtGetHeadId(sHead As String) As Integer @@ -8291,10 +8362,10 @@ Public Function EgtGetHeadId(sHead As String) As Integer End Function ' Machine Calc - + Private Function EgtSetCalcTool_32(sTool As String, sHead As String, nExit As Integer) As Boolean End Function - + Private Function EgtSetCalcTool_64(sTool As String, sHead As String, nExit As Integer) As Boolean End Function Public Function EgtSetCalcTool(sTool As String, sHead As String, nExit As Integer) As Boolean @@ -8305,11 +8376,11 @@ Public Function EgtSetCalcTool(sTool As String, sHead As String, nExit As Intege End If End Function - + Private Function EgtGetCalcTipFromPositions_32(dX As Double, dY As Double, dZ As Double, dAngA As Double, dAngB As Double, bBottom As Boolean, ByRef ptTip As Point3d) As Boolean End Function - + Private Function EgtGetCalcTipFromPositions_64(dX As Double, dY As Double, dZ As Double, dAngA As Double, dAngB As Double, bBottom As Boolean, ByRef ptTip As Point3d) As Boolean End Function @@ -8322,10 +8393,10 @@ Public Function EgtGetCalcTipFromPositions(dX As Double, dY As Double, dZ As Dou End If End Function - + Private Function EgtGetCalcToolDirFromAngles_32(dAngA As Double, dAngB As Double, ByRef vtDir As Vector3d) As Boolean End Function - + Private Function EgtGetCalcToolDirFromAngles_64(dAngA As Double, dAngB As Double, ByRef vtDir As Vector3d) As Boolean End Function Public Function EgtGetCalcToolDirFromAngles(dAngA As Double, dAngB As Double, ByRef vtDir As Vector3d) As Boolean @@ -8336,10 +8407,10 @@ Public Function EgtGetCalcToolDirFromAngles(dAngA As Double, dAngB As Double, By End If End Function - + Private Function EgtVerifyOutstroke_32(dX As Double, dY As Double, dZ As Double, dAngA As Double, dAngB As Double, ByRef nStat As Integer) As Boolean End Function - + Private Function EgtVerifyOutstroke_64(dX As Double, dY As Double, dZ As Double, dAngA As Double, dAngB As Double, ByRef nStat As Integer) As Boolean End Function Public Function EgtVerifyOutstroke(dX As Double, dY As Double, dZ As Double, dAngA As Double, dAngB As Double, ByRef nStat As Integer) As Boolean @@ -8350,10 +8421,10 @@ Public Function EgtVerifyOutstroke(dX As Double, dY As Double, dZ As Double, dAn End If End Function - + Private Function EgtGetOutstrokeInfo_32(ByRef psInfo As IntPtr) As Boolean End Function - + Private Function EgtGetOutstrokeInfo_64(ByRef psInfo As IntPtr) As Boolean End Function Public Function EgtGetOutstrokeInfo(ByRef sInfo As String) As Boolean @@ -8374,10 +8445,10 @@ Public Function EgtGetOutstrokeInfo(ByRef sInfo As String) As Boolean End Function ' Machine Move - + Private Function EgtSetAxisPos_32(sAxis As String, dVal As Double) As Boolean End Function - + Private Function EgtSetAxisPos_64(sAxis As String, dVal As Double) As Boolean End Function Public Function EgtSetAxisPos(sAxis As String, dVal As Double) As Boolean @@ -8388,10 +8459,10 @@ Public Function EgtSetAxisPos(sAxis As String, dVal As Double) As Boolean End If End Function - + Private Function EgtLoadTool_32(sHead As String, nExit As Integer, sTool As String) As Boolean End Function - + Private Function EgtLoadTool_64(sHead As String, nExit As Integer, sTool As String) As Boolean End Function Public Function EgtLoadTool(sHead As String, nExit As Integer, sTool As String) As Boolean @@ -8402,10 +8473,10 @@ Public Function EgtLoadTool(sHead As String, nExit As Integer, sTool As String) End If End Function - + Private Function EgtResetHeadSet_32(sHead As String) As Boolean End Function - + Private Function EgtResetHeadSet_64(sHead As String) As Boolean End Function Public Function EgtResetHeadSet(sHead As String) As Boolean @@ -8416,10 +8487,10 @@ Public Function EgtResetHeadSet(sHead As String) As Boolean End If End Function - + Private Function EgtSetMachineLook_32(nFlag As Integer) As Boolean End Function - + Private Function EgtSetMachineLook_64(nFlag As Integer) As Boolean End Function Public Function EgtSetMachineLook(nFlag As Integer) As Boolean @@ -8432,11 +8503,11 @@ End Function '---------- Scene -------------------------------------------------------------- - + 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(hWnd As IntPtr, nDriver As Integer, b2Buff As Boolean, nColorBits As Integer, nDepthBits As Integer) As Boolean End Function @@ -8449,10 +8520,10 @@ Public Function EgtInitScene(hWnd As IntPtr, nDriver As Integer, End If End Function - + Private Function EgtGetSceneInfo_32(ByRef psInfo As IntPtr) As Boolean End Function - + Private Function EgtGetSceneInfo_64(ByRef psInfo As IntPtr) As Boolean End Function Public Function EgtGetSceneInfo(ByRef sInfo As String) As Boolean @@ -8472,10 +8543,10 @@ Public Function EgtGetSceneInfo(ByRef sInfo As String) As Boolean Return bOk End Function - + 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, bRedraw As Boolean) As Boolean End Function Public Function EgtSetBackground(ByRef colTop As Color3d, ByRef colBottom As Color3d, Optional bRedraw As Boolean = True) As Boolean @@ -8486,10 +8557,10 @@ Public Function EgtSetBackground(ByRef colTop As Color3d, ByRef colBottom As Col End If End Function - + Private Function EgtSetMarkAttribs_32(ByRef colMark As Color3d) As Boolean End Function - + Private Function EgtSetMarkAttribs_64(ByRef colMark As Color3d) As Boolean End Function Public Function EgtSetMarkAttribs(ByRef colMark As Color3d) As Boolean @@ -8500,10 +8571,10 @@ Public Function EgtSetMarkAttribs(ByRef colMark As Color3d) As Boolean End If End Function - + Private Function EgtSetSelSurfAttribs_32(ByRef colSelSurf As Color3d) As Boolean End Function - + Private Function EgtSetSelSurfAttribs_64(ByRef colSelSurf As Color3d) As Boolean End Function Public Function EgtSetSelSurfAttribs(ByRef colSelSurf As Color3d) As Boolean @@ -8514,10 +8585,10 @@ Public Function EgtSetSelSurfAttribs(ByRef colSelSurf As Color3d) As Boolean End If End Function - + Private Function EgtSetGeoLineAttribs_32(ByRef colGl As Color3d) As Boolean End Function - + Private Function EgtSetGeoLineAttribs_64(ByRef colGl As Color3d) As Boolean End Function Public Function EgtSetGeoLineAttribs(ByRef colGl As Color3d) As Boolean @@ -8528,10 +8599,10 @@ Public Function EgtSetGeoLineAttribs(ByRef colGl As Color3d) As Boolean End If End Function - + Private Function EgtSetGeoTriaAttribs_32(ByRef colGt As Color3d) As Boolean End Function - + Private Function EgtSetGeoTriaAttribs_64(ByRef colGt As Color3d) As Boolean End Function Public Function EgtSetGeoTriaAttribs(ByRef colGt As Color3d) As Boolean @@ -8542,10 +8613,10 @@ Public Function EgtSetGeoTriaAttribs(ByRef colGt As Color3d) As Boolean End If End Function - + Private Function EgtSetWinRectAttribs_32(bOutline As Boolean, ByRef colWr As Color3d) As Boolean End Function - + Private Function EgtSetWinRectAttribs_64(bOutline As Boolean, ByRef colWr As Color3d) As Boolean End Function Public Function EgtSetWinRectAttribs(bOutline As Boolean, ByRef colWr As Color3d) As Boolean @@ -8556,10 +8627,10 @@ Public Function EgtSetWinRectAttribs(bOutline As Boolean, ByRef colWr As Color3d End If End Function - + Private Function EgtSetGlobFrameShow_32(bShow As Boolean) As Boolean End Function - + Private Function EgtSetGlobFrameShow_64(bShow As Boolean) As Boolean End Function Public Function EgtSetGlobFrameShow(bShow As Boolean) As Boolean @@ -8570,10 +8641,10 @@ Public Function EgtSetGlobFrameShow(bShow As Boolean) As Boolean End If End Function - + Private Function EgtSetGridShow_32(bShowGrid As Boolean, bShowFrame As Boolean) As Boolean End Function - + Private Function EgtSetGridShow_64(bShowGrid As Boolean, bShowFrame As Boolean) As Boolean End Function Public Function EgtSetGridShow(bShowGrid As Boolean, bShowFrame As Boolean) As Boolean @@ -8584,10 +8655,10 @@ Public Function EgtSetGridShow(bShowGrid As Boolean, bShowFrame As Boolean) As B End If End Function - + Private Function EgtSetGridGeo_32(dSnapStep As Double, nMinLineSstep As Integer, nMajLineSstep As Integer, nExtSstep As Integer) As Boolean End Function - + Private Function EgtSetGridGeo_64(dSnapStep As Double, nMinLineSstep As Integer, nMajLineSstep As Integer, nExtSstep As Integer) As Boolean End Function Public Function EgtSetGridGeo(dSnapStep As Double, nMinLineSstep As Integer, nMajLineSstep As Integer, nExtSstep As Integer) As Boolean @@ -8598,10 +8669,10 @@ Public Function EgtSetGridGeo(dSnapStep As Double, nMinLineSstep As Integer, nMa End If End Function - + Private Function EgtSetGridColor_32(ByRef colMinLine As Color3d, ByRef colMajLine As Color3d) As Boolean End Function - + Private Function EgtSetGridColor_64(ByRef colMinLine As Color3d, ByRef colMajLine As Color3d) As Boolean End Function Public Function EgtSetGridColor(ByRef colMinLine As Color3d, ByRef colMajLine As Color3d) As Boolean @@ -8612,10 +8683,10 @@ Public Function EgtSetGridColor(ByRef colMinLine As Color3d, ByRef colMajLine As End If End Function - + Private Function EgtResize_32(nW As Integer, nH As Integer) As Boolean End Function - + Private Function EgtResize_64(nW As Integer, nH As Integer) As Boolean End Function Public Function EgtResize(nW As Integer, nH As Integer) As Boolean @@ -8626,10 +8697,10 @@ Public Function EgtResize(nW As Integer, nH As Integer) As Boolean End If End Function - + Private Function EgtDraw_32() As Boolean End Function - + Private Function EgtDraw_64() As Boolean End Function Public Function EgtDraw() As Boolean @@ -8640,11 +8711,11 @@ Public Function EgtDraw() As Boolean End If End Function - + 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(nWinX As Integer, nWinY As Integer, nSelW As Integer, nSelH As Integer, ByRef nSel As Integer) As Boolean End Function @@ -8657,11 +8728,11 @@ Public Function EgtSelect(Curr As Point, nSelW As Integer, nSelH As Integer, End If End Function - + 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(bZeroDim As Boolean, bCurve As Boolean, bSurf As Boolean, bVolume As Boolean, bExtra As Boolean) As Boolean End Function @@ -8674,10 +8745,10 @@ Public Function EgtSetObjFilterForSelect(bZeroDim As Boolean, bCurve As Boolean, End If End Function - + Private Function EgtUnselectableAdd_32(nId As Integer) As Boolean End Function - + Private Function EgtUnselectableAdd_64(nId As Integer) As Boolean End Function Public Function EgtUnselectableAdd(nId As Integer) As Boolean @@ -8688,10 +8759,10 @@ Public Function EgtUnselectableAdd(nId As Integer) As Boolean End If End Function - + Private Function EgtUnselectableRemove_32(nId As Integer) As Boolean End Function - + Private Function EgtUnselectableRemove_64(nId As Integer) As Boolean End Function Public Function EgtUnselectableRemove(nId As Integer) As Boolean @@ -8702,10 +8773,10 @@ Public Function EgtUnselectableRemove(nId As Integer) As Boolean End If End Function - + Private Function EgtUnselectableClearAll_32() As Boolean End Function - + Private Function EgtUnselectableClearAll_64() As Boolean End Function Public Function EgtUnselectableClearAll() As Boolean @@ -8716,10 +8787,10 @@ Public Function EgtUnselectableClearAll() As Boolean End If End Function - + Private Function EgtGetFirstObjInSelWin_32() As Integer End Function - + Private Function EgtGetFirstObjInSelWin_64() As Integer End Function Public Function EgtGetFirstObjInSelWin() As Integer @@ -8730,10 +8801,10 @@ Public Function EgtGetFirstObjInSelWin() As Integer End If End Function - + Private Function EgtGetNextObjInSelWin_32() As Integer End Function - + Private Function EgtGetNextObjInSelWin_64() As Integer End Function Public Function EgtGetNextObjInSelWin() As Integer @@ -8744,11 +8815,11 @@ Public Function EgtGetNextObjInSelWin() As Integer End If End Function - + 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(nSelId As Integer, nWinX As Integer, nWinY As Integer, ByRef ptP As Point3d, ByRef nAux As Integer) As Boolean End Function @@ -8760,12 +8831,12 @@ Public Function EgtGetPointFromSelect(nSelId As Integer, PtWin As Point, ByRef p End If End Function - + 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(nSnap As Integer, nWinX As Integer, nWinY As Integer, nSelW As Integer, nSelH As Integer, ByRef ptP As Point3d) As Boolean @@ -8780,12 +8851,12 @@ Public Function EgtGetGraphicSnapPoint(nSnap As Integer, End If End Function - + 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(bSketch As Boolean, nWinX As Integer, nWinY As Integer, ByRef ptGrid As Point3d, ByRef ptP As Point3d) As Boolean @@ -8800,10 +8871,10 @@ Public Function EgtGetGridSnapPointZ(bSketch As Boolean, End If End Function - + Private Function EgtGetLastSnapId_32() As Integer End Function - + Private Function EgtGetLastSnapId_64() As Integer End Function Public Function EgtGetLastSnapId() As Integer @@ -8814,10 +8885,10 @@ Public Function EgtGetLastSnapId() As Integer End If End Function - + Private Function EgtGetLastSnapDir_32(ByRef VtDir As Vector3d) As Boolean End Function - + Private Function EgtGetLastSnapDir_64(ByRef VtDir As Vector3d) As Boolean End Function Public Function EgtGetLastSnapDir(ByRef VtDir As Vector3d) As Boolean @@ -8828,10 +8899,10 @@ Public Function EgtGetLastSnapDir(ByRef VtDir As Vector3d) As Boolean End If End Function - + Private Function EgtSetShowMode_32(nShowMode As SM, bRedraw As Boolean) As Boolean End Function - + Private Function EgtSetShowMode_64(nShowMode As SM, bRedraw As Boolean) As Boolean End Function Public Function EgtSetShowMode(nShowMode As SM, Optional bRedraw As Boolean = True) As Boolean @@ -8842,10 +8913,10 @@ Public Function EgtSetShowMode(nShowMode As SM, Optional bRedraw As Boolean = Tr End If End Function - + Private Function EgtGetShowMode_32() As Integer End Function - + Private Function EgtGetShowMode_64() As Integer End Function Public Function EgtGetShowMode() As Integer @@ -8856,10 +8927,10 @@ Public Function EgtGetShowMode() As Integer End If End Function - + Private Function EgtSetShowCurveDirection_32(bShow As Boolean, bRedraw As Boolean) As Boolean End Function - + Private Function EgtSetShowCurveDirection_64(bShow As Boolean, bRedraw As Boolean) As Boolean End Function Public Function EgtSetShowCurveDirection(bShow As Boolean, Optional bRedraw As Boolean = True) As Boolean @@ -8870,10 +8941,10 @@ Public Function EgtSetShowCurveDirection(bShow As Boolean, Optional bRedraw As B End If End Function - + Private Function EgtGetShowCurveDirection_32() As Boolean End Function - + Private Function EgtGetShowCurveDirection_64() As Boolean End Function Public Function EgtGetShowCurveDirection() As Boolean @@ -8884,10 +8955,10 @@ Public Function EgtGetShowCurveDirection() As Boolean End If End Function - + Private Function EgtSetShowTriaAdv_32(bAdvanced As Boolean, bRedraw As Boolean) As Boolean End Function - + Private Function EgtSetShowTriaAdv_64(bAdvanced As Boolean, bRedraw As Boolean) As Boolean End Function Public Function EgtSetShowTriaAdv(bAdvanced As Boolean, Optional bRedraw As Boolean = True) As Boolean @@ -8898,10 +8969,10 @@ Public Function EgtSetShowTriaAdv(bAdvanced As Boolean, Optional bRedraw As Bool End If End Function - + Private Function EgtGetShowTriaAdv_32() As Boolean End Function - + Private Function EgtGetShowTriaAdv_64() As Boolean End Function Public Function EgtGetShowTriaAdv() As Boolean @@ -8912,10 +8983,10 @@ Public Function EgtGetShowTriaAdv() As Boolean End If End Function - + Private Function EgtSetShowZmap_32(nShowMode As SM, bRedraw As Boolean) As Boolean End Function - + Private Function EgtSetShowZmap_64(nShowMode As SM, bRedraw As Boolean) As Boolean End Function Public Function EgtSetShowZmap(nShowMode As SM, Optional bRedraw As Boolean = True) As Boolean @@ -8926,10 +8997,10 @@ Public Function EgtSetShowZmap(nShowMode As SM, Optional bRedraw As Boolean = Tr End If End Function - + Private Function EgtGetShowZmap_32() As Integer End Function - + Private Function EgtGetShowZmap_64() As Integer End Function Public Function EgtGetShowZmap() As Integer @@ -8940,10 +9011,10 @@ Public Function EgtGetShowZmap() As Integer End If End Function - + Private Function EgtZoom_32(nZoom As ZM, bRedraw As Boolean) As Boolean End Function - + Private Function EgtZoom_64(nZoom As ZM, bRedraw As Boolean) As Boolean End Function Public Function EgtZoom(nZoom As ZM, Optional bRedraw As Boolean = True) As Boolean @@ -8954,10 +9025,10 @@ Public Function EgtZoom(nZoom As ZM, Optional bRedraw As Boolean = True) As Bool End If End Function - + Private Function EgtZoomOnPoint_32(nWinX As Integer, nWinY As Integer, dCoeff As Double, bRedraw As Boolean) As Boolean End Function - + Private Function EgtZoomOnPoint_64(nWinX As Integer, nWinY As Integer, dCoeff As Double, bRedraw As Boolean) As Boolean End Function Public Function EgtZoomOnPoint(Curr As Point, dCoeff As Double, Optional bRedraw As Boolean = True) As Boolean @@ -8968,10 +9039,10 @@ Public Function EgtZoomOnPoint(Curr As Point, dCoeff As Double, Optional bRedraw End If End Function - + 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, bRedraw As Boolean) As Boolean End Function Public Function EgtSetGeoLine(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, Optional bRedraw As Boolean = True) As Boolean @@ -8982,10 +9053,10 @@ Public Function EgtSetGeoLine(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, Opti End If End Function - + Private Function EgtResetGeoLine_32(bRedraw As Boolean) As Boolean End Function - + Private Function EgtResetGeoLine_64(bRedraw As Boolean) As Boolean End Function Public Function EgtResetGeoLine(Optional bRedraw As Boolean = True) As Boolean @@ -8996,10 +9067,10 @@ Public Function EgtResetGeoLine(Optional bRedraw As Boolean = True) As Boolean End If End Function - + 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, bRedraw As Boolean) As Boolean End Function Public Function EgtSetGeoTria(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef ptP3 As Point3d, Optional bRedraw As Boolean = True) As Boolean @@ -9010,10 +9081,10 @@ Public Function EgtSetGeoTria(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRe End If End Function - + Private Function EgtResetGeoTria_32(bRedraw As Boolean) As Boolean End Function - + Private Function EgtResetGeoTria_64(bRedraw As Boolean) As Boolean End Function Public Function EgtResetGeoTria(Optional bRedraw As Boolean = True) As Boolean @@ -9024,10 +9095,10 @@ Public Function EgtResetGeoTria(Optional bRedraw As Boolean = True) As Boolean End If End Function - + 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(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function Public Function EgtSetWinRect(Prev As Point, Curr As Point, Optional bRedraw As Boolean = True) As Boolean @@ -9038,10 +9109,10 @@ Public Function EgtSetWinRect(Prev As Point, Curr As Point, Optional bRedraw As End If End Function - + Private Function EgtResetWinRect_32(bRedraw As Boolean) As Boolean End Function - + Private Function EgtResetWinRect_64(bRedraw As Boolean) As Boolean End Function Public Function EgtResetWinRect(Optional bRedraw As Boolean = True) As Boolean @@ -9052,10 +9123,10 @@ Public Function EgtResetWinRect(Optional bRedraw As Boolean = True) As Boolean End If End Function - + 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(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function Public Function EgtZoomWin(Prev As Point, Curr As Point, Optional bRedraw As Boolean = True) As Boolean @@ -9066,10 +9137,10 @@ Public Function EgtZoomWin(Prev As Point, Curr As Point, Optional bRedraw As Boo End If End Function - + Private Function EgtSetView_32(nView As VT, bRedraw As Boolean) As Boolean End Function - + Private Function EgtSetView_64(nView As VT, bRedraw As Boolean) As Boolean End Function Public Function EgtSetView(nView As VT, Optional bRedraw As Boolean = True) As Boolean @@ -9080,10 +9151,10 @@ Public Function EgtSetView(nView As VT, Optional bRedraw As Boolean = True) As B End If End Function - + Private Function EgtSetGenericView_32(dAngVertDeg As Double, dAngHorizDeg As Double, bRedraw As Boolean) As Boolean End Function - + Private Function EgtSetGenericView_64(dAngVertDeg As Double, dAngHorizDeg As Double, bRedraw As Boolean) As Boolean End Function Public Function EgtSetGenericView(dAngVertDeg As Double, dAngHorizDeg As Double, Optional bRedraw As Boolean = True) As Boolean @@ -9094,10 +9165,10 @@ Public Function EgtSetGenericView(dAngVertDeg As Double, dAngHorizDeg As Double, End If End Function - + 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(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function Public Function EgtPanView(Prev As Point, Curr As Point, Optional bRedraw As Boolean = True) As Boolean @@ -9108,10 +9179,10 @@ Public Function EgtPanView(Prev As Point, Curr As Point, Optional bRedraw As Boo End If End Function - + 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(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function Public Function EgtRotateView(Prev As Point, Curr As Point, Optional bRedraw As Boolean = True) As Boolean @@ -9122,10 +9193,10 @@ Public Function EgtRotateView(Prev As Point, Curr As Point, Optional bRedraw As End If End Function - + Private Function EgtGetView_32(ByRef nDir As Integer) As Boolean End Function - + Private Function EgtGetView_64(ByRef nDir As Integer) As Boolean End Function Public Function EgtGetView(ByRef nDir As Integer) As Boolean @@ -9136,10 +9207,10 @@ Public Function EgtGetView(ByRef nDir As Integer) As Boolean End If End Function - + Private Function EgtGetGenericView_32(ByRef dAngVertDeg As Double, ByRef dAngHorizDeg As Double) As Boolean End Function - + Private Function EgtGetGenericView_64(ByRef dAngVertDeg As Double, ByRef dAngHorizDeg As Double) As Boolean End Function Public Function EgtGetGenericView(ByRef dAngVertDeg As Double, ByRef dAngHorizDeg As Double) As Boolean @@ -9150,10 +9221,10 @@ Public Function EgtGetGenericView(ByRef dAngVertDeg As Double, ByRef dAngHorizDe End If End Function - + Private Function EgtProjectPoint_32(ByRef ptP As Point3d, ByRef ptWin As Point3d) As Boolean End Function - + Private Function EgtProjectPoint_64(ByRef ptP As Point3d, ByRef ptWin As Point3d) As Boolean End Function Public Function EgtProjectPoint(ByRef ptP As Point3d, ByRef ptWin As Point3d) As Boolean @@ -9164,10 +9235,10 @@ Public Function EgtProjectPoint(ByRef ptP As Point3d, ByRef ptWin As Point3d) As End If End Function - + Private Function EgtUnProjectPoint_32(nWinX As Integer, nWinY As Integer, ByRef ptP As Point3d) As Boolean End Function - + Private Function EgtUnProjectPoint_64(nWinX As Integer, nWinY As Integer, ByRef ptP As Point3d) As Boolean End Function Public Function EgtUnProjectPoint(Curr As Point, ByRef ptP As Point3d) As Boolean @@ -9178,11 +9249,11 @@ Public Function EgtUnProjectPoint(Curr As Point, ByRef ptP As Point3d) As Boolea End If End Function - + 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(sName As String, sFile As String, dMMxPix As Double, dDimX As Double, dDimY As Double, nRepeat As Integer) As Boolean End Function @@ -9195,10 +9266,10 @@ Public Function EgtLoadTexture(sName As String, sFile As String, End If End Function - + Private Function EgtUnloadTexture_32(sName As String) As Boolean End Function - + Private Function EgtUnloadTexture_64(sName As String) As Boolean End Function Public Function EgtUnloadTexture(sName As String) As Boolean @@ -9209,10 +9280,10 @@ Public Function EgtUnloadTexture(sName As String) As Boolean End If End Function - + Private Function EgtGetTexturePixels_32(sName As String, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean End Function - + Private Function EgtGetTexturePixels_64(sName As String, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean End Function Public Function EgtGetTexturePixels(sName As String, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean @@ -9223,10 +9294,10 @@ Public Function EgtGetTexturePixels(sName As String, ByRef nWidth As Integer, By End If End Function - + Private Function EgtGetTextureDimensions_32(sName As String, ByRef dDimX As Double, ByRef dDimY As Double) As Boolean End Function - + Private Function EgtGetTextureDimensions_64(sName As String, ByRef dDimX As Double, ByRef dDimY As Double) As Boolean End Function Public Function EgtGetTextureDimensions(sName As String, ByRef dDimX As Double, ByRef dDimY As Double) As Boolean @@ -9237,10 +9308,10 @@ Public Function EgtGetTextureDimensions(sName As String, ByRef dDimX As Double, End If End Function - + Private Function EgtChangeTextureDimensions_32(sName As String, dDimX As Double, dDimY As Double) As Boolean End Function - + Private Function EgtChangeTextureDimensions_64(sName As String, dDimX As Double, dDimY As Double) As Boolean End Function Public Function EgtChangeTextureDimensions(sName As String, dDimX As Double, dDimY As Double) As Boolean @@ -9253,12 +9324,12 @@ End Function '---------- Photo -------------------------------------------------------------- - + 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(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 @@ -9273,10 +9344,10 @@ Public Function EgtAddPhoto(sName As String, sFile As String, End If End Function - + Private Function EgtGetPhotoPath_32(nId As Integer, ByRef psFile As IntPtr) As Boolean End Function - + Private Function EgtGetPhotoPath_64(nId As Integer, ByRef psFile As IntPtr) As Boolean End Function Public Function EgtGetPhotoPath(nId As Integer, ByRef sFile As String) As Boolean @@ -9296,10 +9367,10 @@ Public Function EgtGetPhotoPath(nId As Integer, ByRef sFile As String) As Boolea Return bOk End Function - + Private Function EgtChangePhotoPath_32(nId As Integer, sFile As String) As Boolean End Function - + Private Function EgtChangePhotoPath_64(nId As Integer, sFile As String) As Boolean End Function Public Function EgtChangePhotoPath(nId As Integer, sFile As String) As Boolean @@ -9310,10 +9381,10 @@ Public Function EgtChangePhotoPath(nId As Integer, sFile As String) As Boolean 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 @@ -9324,10 +9395,10 @@ Public Function EgtGetPhotoOrigin(nId As Integer, ByRef ptOri As Point3d) As Boo 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 @@ -9338,10 +9409,10 @@ Public Function EgtGetPhotoCenter(nId As Integer, ByRef ptCen As Point3d) As Boo 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 @@ -9354,11 +9425,11 @@ End Function '---------- Geo Base ----------------------------------------------------------- - + Private Function EgtVectorNormalize_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, dEps As Double) As Boolean End Function - + Private Function EgtVectorNormalize_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, dEps As Double) As Boolean End Function @@ -9371,11 +9442,11 @@ Private Function EgtVectorNormalize(ByRef X As Double, ByRef Y As Double, ByRef End If End Function - + Private Function EgtVectorRotate_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, 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, dAngRotDeg As Double) As Boolean End Function @@ -9388,12 +9459,12 @@ Private Function EgtVectorRotate(ByRef X As Double, ByRef Y As Double, ByRef Z A End If 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, 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, dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean @@ -9408,11 +9479,11 @@ Private Function EgtVectorScale(ByRef X As Double, ByRef Y As Double, ByRef Z As End If End Function - + Private Function EgtVectorMirror_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef VtNorm As Vector3d) As Boolean End Function - + Private Function EgtVectorMirror_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef VtNorm As Vector3d) As Boolean End Function @@ -9425,11 +9496,11 @@ Private Function EgtVectorMirror(ByRef X As Double, ByRef Y As Double, ByRef Z A End If 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, 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, dCoeff As Double) As Boolean End Function @@ -9442,11 +9513,11 @@ Private Function EgtVectorShear(ByRef X As Double, ByRef Y As Double, ByRef Z As End If End Function - + Private Function EgtVectorToGlob_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) As Boolean End Function - + Private Function EgtVectorToGlob_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) As Boolean End Function @@ -9459,11 +9530,11 @@ Private Function EgtVectorToGlob(ByRef X As Double, ByRef Y As Double, ByRef Z A End If End Function - + Private Function EgtVectorToLoc_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) As Boolean End Function - + Private Function EgtVectorToLoc_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) As Boolean End Function @@ -9476,12 +9547,12 @@ Private Function EgtVectorToLoc(ByRef X As Double, ByRef Y As Double, ByRef Z As End If End Function - + Private Function EgtVectorLocToLoc_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d, ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean End Function - + Private Function EgtVectorLocToLoc_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d, ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean @@ -9496,11 +9567,11 @@ Private Function EgtVectorLocToLoc(ByRef X As Double, ByRef Y As Double, ByRef Z End If End Function - + Private Function EgtGetVectorRotation_32(ByRef VtS As Vector3d, ByRef VtE As Vector3d, ByRef VtAx As Vector3d, ByRef dAngRotDeg As Double, ByRef bDet As Boolean) As Boolean End Function - + Private Function EgtGetVectorRotation_64(ByRef VtS As Vector3d, ByRef VtE As Vector3d, ByRef VtAx As Vector3d, ByRef dAngRotDeg As Double, ByRef bDet As Boolean) As Boolean End Function @@ -9513,11 +9584,11 @@ Public Function EgtGetVectorRotation(ByRef VtS As Vector3d, ByRef VtE As Vector3 End If End Function - + Private Function EgtPointTranslate_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef VtMove As Vector3d) As Boolean End Function - + Private Function EgtPointTranslate_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef VtMove As Vector3d) As Boolean End Function @@ -9530,11 +9601,11 @@ Private Function EgtPointTranslate(ByRef X As Double, ByRef Y As Double, ByRef Z End If 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, 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, dAngRotDeg As Double) As Boolean End Function @@ -9547,12 +9618,12 @@ Private Function EgtPointRotate(ByRef X As Double, ByRef Y As Double, ByRef Z As End If 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, 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, dCoeffX As Double, dCoeffY As Double, dCoeffZ As Double) As Boolean @@ -9567,11 +9638,11 @@ Private Function EgtPointScale(ByRef X As Double, ByRef Y As Double, ByRef Z As End If End Function - + Private Function EgtPointMirror_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function - + Private Function EgtPointMirror_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean End Function @@ -9584,11 +9655,11 @@ Private Function EgtPointMirror(ByRef X As Double, ByRef Y As Double, ByRef Z As End If 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, 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, dCoeff As Double) As Boolean End Function @@ -9601,11 +9672,11 @@ Private Function EgtPointShear(ByRef X As Double, ByRef Y As Double, ByRef Z As End If End Function - + Private Function EgtPointToGlob_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) As Boolean End Function - + Private Function EgtPointToGlob_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) As Boolean End Function @@ -9618,11 +9689,11 @@ Private Function EgtPointToGlob(ByRef X As Double, ByRef Y As Double, ByRef Z As End If End Function - + Private Function EgtPointToLoc_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) As Boolean End Function - + Private Function EgtPointToLoc_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) As Boolean End Function @@ -9635,12 +9706,12 @@ Private Function EgtPointToLoc(ByRef X As Double, ByRef Y As Double, ByRef Z As End If End Function - + Private Function EgtPointLocToLoc_32(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d, ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean End Function - + Private Function EgtPointLocToLoc_64(ByRef X As Double, ByRef Y As Double, ByRef Z As Double, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d, ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean @@ -9655,11 +9726,11 @@ Private Function EgtPointLocToLoc(ByRef X As Double, ByRef Y As Double, ByRef Z End If End Function - + Private Function EgtFrameFrom3Points_32(ByRef PtO As Point3d, ByRef PtOnX As Point3d, ByRef PtOnY As Point3d, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function - + Private Function EgtFrameFrom3Points_64(ByRef PtO As Point3d, ByRef PtOnX As Point3d, ByRef PtOnY As Point3d, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function @@ -9672,11 +9743,11 @@ Private Function EgtFrameFrom3Points(ByRef PtO As Point3d, ByRef PtOnX As Point3 End If End Function - + Private Function EgtFrameOCS_32(ByRef PtO As Point3d, ByRef VtDirZ As Vector3d, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function - + Private Function EgtFrameOCS_64(ByRef PtO As Point3d, ByRef VtDirZ As Vector3d, ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean End Function @@ -9689,11 +9760,11 @@ Private Function EgtFrameOCS(ByRef PtO As Point3d, ByRef VtDirZ As Vector3d, End If End Function - + Private Function EgtFrameGetType_32(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Integer End Function - + Private Function EgtFrameGetType_64(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Integer End Function @@ -9706,11 +9777,11 @@ Private Function EgtFrameGetType(ByRef PtOrig As Point3d, End If End Function - + Private Function EgtFrameTranslate_32(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByRef VtMove As Vector3d) As Boolean End Function - + Private Function EgtFrameTranslate_64(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByRef VtMove As Vector3d) As Boolean End Function @@ -9723,11 +9794,11 @@ Private Function EgtFrameTranslate(ByRef PtOrig As Point3d, ByRef VtX As Vector3 End If 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, 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, dAngRotDeg As Double) As Boolean End Function @@ -9740,11 +9811,11 @@ Private Function EgtFrameRotate(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, End If End Function - + Private Function EgtFrameToGlob_32(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d) As Boolean End Function - + Private Function EgtFrameToGlob_64(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d) As Boolean End Function @@ -9757,11 +9828,11 @@ Private Function EgtFrameToGlob(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, End If End Function - + Private Function EgtFrameToLoc_32(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d) As Boolean End Function - + Private Function EgtFrameToLoc_64(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d) As Boolean End Function @@ -9774,12 +9845,12 @@ Private Function EgtFrameToLoc(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, B End If End Function - + Private Function EgtFrameLocToLoc_32(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d, ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean End Function - + Private Function EgtFrameLocToLoc_64(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d, ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean @@ -9794,11 +9865,11 @@ Private Function EgtFrameLocToLoc(ByRef PtOrig As Point3d, ByRef VtX As Vector3d End If End Function - + Private Function EgtBBoxTranslate_32(ByRef PtMin As Point3d, ByRef PtMax As Point3d, ByRef VtMove As Vector3d) As Boolean End Function - + Private Function EgtBBoxTranslate_64(ByRef PtMin As Point3d, ByRef PtMax As Point3d, ByRef VtMove As Vector3d) As Boolean End Function @@ -9811,11 +9882,11 @@ Private Function EgtBBoxTranslate(ByRef PtMin As Point3d, ByRef PtMax As Point3d End If End Function - + Private Function EgtBBoxRotate_32(ByRef PtMin As Point3d, ByRef PtMax As Point3d, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function - + Private Function EgtBBoxRotate_64(ByRef PtMin As Point3d, ByRef PtMax As Point3d, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, dAngRotDeg As Double) As Boolean End Function @@ -9828,11 +9899,11 @@ Private Function EgtBBoxRotate(ByRef PtMin As Point3d, ByRef PtMax As Point3d, End If End Function - + Private Function EgtBBoxToGlob_32(ByRef PtMin As Point3d, ByRef PtMax As Point3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d) As Boolean End Function - + Private Function EgtBBoxToGlob_64(ByRef PtMin As Point3d, ByRef PtMax As Point3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d) As Boolean End Function @@ -9845,11 +9916,11 @@ Private Function EgtBBoxToGlob(ByRef PtMin As Point3d, ByRef PtMax As Point3d, End If End Function - + Private Function EgtBBoxToLoc_32(ByRef PtMin As Point3d, ByRef PtMax As Point3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d) As Boolean End Function - + Private Function EgtBBoxToLoc_64(ByRef PtMin As Point3d, ByRef PtMax As Point3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d) As Boolean End Function @@ -9862,12 +9933,12 @@ Private Function EgtBBoxToLoc(ByRef PtMin As Point3d, ByRef PtMax As Point3d, End If End Function - + Private Function EgtBBoxLocToLoc_32(ByRef PtMin As Point3d, ByRef PtMax As Point3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d, ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean End Function - + Private Function EgtBBoxLocToLoc_64(ByRef PtMin As Point3d, ByRef PtMax As Point3d, ByRef PtO1 As Point3d, ByRef VtX1 As Vector3d, ByRef VtY1 As Vector3d, ByRef VtZ1 As Vector3d, ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean @@ -9884,10 +9955,10 @@ End Function '---------- Messages ----------------------------------------------------------- - + Private Function EgtLoadMessages_32(sMsgFilePath As String) As Boolean End Function - + Private Function EgtLoadMessages_64(sMsgFilePath As String) As Boolean End Function Public Function EgtLoadMessages(sMsgFilePath As String) As Boolean @@ -9898,10 +9969,10 @@ Public Function EgtLoadMessages(sMsgFilePath As String) As Boolean End If End Function - + Private Function EgtGetMsg_32(nId As Integer) As IntPtr End Function - + Private Function EgtGetMsg_64(nId As Integer) As IntPtr End Function Public Function EgtMsg(nId As Integer) As String diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index a197cb6..ce22ddd 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: ' - - + +