Dario Sassi
684 lines
27 KiB
VB.net
684 lines
27 KiB
VB.net
Imports System.Runtime.InteropServices
|
|
|
|
Public Class EgtInterface
|
|
|
|
Structure Point3d
|
|
Dim x, y, z As Double
|
|
Sub New(ByVal dX As Double, ByVal dY As Double, ByVal dZ As Double)
|
|
x = dX
|
|
y = dY
|
|
z = dZ
|
|
End Sub
|
|
Shared Function Media(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d) As Point3d
|
|
Dim ptMedia As New Point3d(0.5 * (ptP1.x + ptP2.x), 0.5 * (ptP1.y + ptP2.y), 0.5 * (ptP1.z + ptP2.z))
|
|
Return ptMedia
|
|
End Function
|
|
End Structure
|
|
|
|
Structure Vector3d
|
|
Dim x, y, z As Double
|
|
Sub New(ByVal dX As Double, ByVal dY As Double, ByVal dZ As Double)
|
|
x = dX
|
|
y = dY
|
|
z = dZ
|
|
End Sub
|
|
Shared Function FromPointDiff(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d) As Vector3d
|
|
Dim vtV As New Vector3d
|
|
vtV.x = ptP1.x - ptP2.x
|
|
vtV.y = ptP1.y - ptP2.y
|
|
vtV.z = ptP1.z - ptP2.z
|
|
Return vtV
|
|
End Function
|
|
Shared Function X_AX() As Vector3d
|
|
Dim vtZ As New Vector3d(1, 0, 0)
|
|
Return vtZ
|
|
End Function
|
|
Shared Function Y_AX() As Vector3d
|
|
Dim vtZ As New Vector3d(0, 1, 0)
|
|
Return vtZ
|
|
End Function
|
|
Shared Function Z_AX() As Vector3d
|
|
Dim vtZ As New Vector3d(0, 0, 1)
|
|
Return vtZ
|
|
End Function
|
|
End Structure
|
|
|
|
Structure Color
|
|
Dim R, G, B, A As Integer
|
|
Sub New(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer, Optional ByVal nAlpha As Integer = 100)
|
|
R = nRed
|
|
G = nGreen
|
|
B = nBlue
|
|
A = nAlpha
|
|
End Sub
|
|
End Structure
|
|
|
|
#If PLATFORM = "x64" Then
|
|
#If DEBUG Then
|
|
Const EgtIntDll As String = "EgtInterfaceD64.dll"
|
|
#Else
|
|
Const EgtIntDll As String = "EgtInterfaceR64.dll"
|
|
#End If
|
|
#Else
|
|
#If DEBUG Then
|
|
Const EgtIntDll As String = "EgtInterfaceD32.dll"
|
|
#Else
|
|
Const EgtIntDll As String = "EgtInterfaceR32.dll"
|
|
#End If
|
|
#End If
|
|
|
|
|
|
'---------- General ------------------------------------------------------------
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtInit(ByVal nDebug As Integer, ByVal sLogFile As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtExit() As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetKey(ByVal sKey As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetFont(ByVal sNfeFontDir As String, ByVal sDefaultFont As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtFreeMemory(ByVal sB As IntPtr) As Boolean
|
|
End Function
|
|
|
|
|
|
'---------- GeomDb -------------------------------------------------------------
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtInitGeomDB() As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetCurrentContext(ByVal nCtx As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtResetCurrentContext() As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetCurrentContext() As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetDefaultMaterial(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtNewFile() As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtOpenFile(ByVal sFilePath As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSaveFile(ByVal sFilePath As String, ByVal nFlag As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetFileType(ByVal sFilePath As String) As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtImportDxf(ByVal sFilePath As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtImportStl(ByVal sFilePath As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtImportCnc(ByVal sFilePath As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtExportDxf(ByVal nId As Integer, ByVal sFilePath As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtExportStl(ByVal nId As Integer, ByVal sFilePath As String) As Boolean
|
|
End Function
|
|
|
|
|
|
'---------- GeomDb Objects Create ----------------------------------------------
|
|
|
|
|
|
'---------- GeomDb Objects Modify ----------------------------------------------
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtFlipText(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtMirrorText(ByVal nId As Integer, ByVal bOnL As Boolean) As Boolean
|
|
End Function
|
|
|
|
|
|
'---------- GeomDb Objects -----------------------------------------------------
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtExistsObj(ByVal nGroupId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetGroupObjs(ByVal nGroupId As Integer) As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetFirstInGroup(ByVal nGroupId As Integer) As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetNext(ByVal nId As Integer) As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetLastInGroup(ByVal nGroupId As Integer) As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetPrev(ByVal nId As Integer) As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetBBox(ByVal nId As Integer, ByVal nFlag As Integer,
|
|
ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetBBoxGlob(ByVal nId As Integer, ByVal nFlag As Integer,
|
|
ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetType(ByVal nId As Integer) As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtGetTitle(ByVal nId As Integer, ByRef psTitle As IntPtr) As Boolean
|
|
End Function
|
|
Public Shared Function EgtGetTitle(ByVal nId As Integer, ByRef sTitle As String) As Boolean
|
|
Dim psTitle As IntPtr
|
|
Dim bOk As Boolean = EgtGetTitle(nId, psTitle)
|
|
sTitle = Marshal.PtrToStringUni(psTitle)
|
|
EgtFreeMemory(psTitle)
|
|
Return bOk
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtGroupDump(ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean
|
|
End Function
|
|
Public Shared Function EgtGroupDump(ByVal nId As Integer, ByRef sDump As String) As Boolean
|
|
Dim psDump As IntPtr
|
|
Dim bOk As Boolean = EgtGroupDump(nId, psDump)
|
|
sDump = Marshal.PtrToStringUni(psDump)
|
|
EgtFreeMemory(psDump)
|
|
Return bOk
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtGeoObjDump(ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean
|
|
End Function
|
|
Public Shared Function EgtGeoObjDump(ByVal nId As Integer, ByRef sDump As String) As Boolean
|
|
Dim psDump As IntPtr
|
|
Dim bOk As Boolean = EgtGeoObjDump(nId, psDump)
|
|
sDump = Marshal.PtrToStringUni(psDump)
|
|
EgtFreeMemory(psDump)
|
|
Return bOk
|
|
End Function
|
|
|
|
|
|
'---------- GeomDb Obj Attributes ----------------------------------------------
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetLevel(ByVal nId As Integer, ByVal nLevel As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtRevertLevel(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetLevel(ByVal nId As Integer, ByRef nLevel As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetCalcLevel(ByVal nId As Integer, ByRef nLevel As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetMode(ByVal nId As Integer, ByVal nMode As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtRevertMode(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetMode(ByVal nId As Integer, ByRef nMode As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetCalcMode(ByVal nId As Integer, ByRef nMode As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetStatus(ByVal nId As Integer, ByVal nStat As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtRevertStatus(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetStatus(ByVal nId As Integer, ByRef nStat As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetCalcStatus(ByVal nId As Integer, ByRef nStat As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetMark(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtResetMark(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetMark(ByVal nId As Integer, ByRef bMark As Boolean) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetCalcMark(ByVal nId As Integer, ByRef bMark As Boolean) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetName(ByVal nId As Integer, ByVal sName As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtGetName(ByVal nId As Integer, ByRef psName As IntPtr) As Boolean
|
|
End Function
|
|
Public Shared Function EgtGetName(ByVal nId As Integer, ByRef sName As String) As Boolean
|
|
Dim psName As IntPtr
|
|
Dim bOk As Boolean = EgtGetName(nId, psName)
|
|
sName = Marshal.PtrToStringUni(psName)
|
|
EgtFreeMemory(psName)
|
|
Return bOk
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtExistsName(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtRemoveName(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetInfo(ByVal nId As Integer, ByVal sKey As String, ByVal sInfo As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtGetInfo(ByVal nId As Integer, ByVal sKey As String, ByRef psInfo As IntPtr) As Boolean
|
|
End Function
|
|
Public Shared Function EgtGetInfo(ByVal nId As Integer, ByVal sKey As String, ByRef sInfo As String) As Boolean
|
|
Dim psInfo As IntPtr
|
|
Dim bOk As Boolean = EgtGetInfo(nId, sKey, psInfo)
|
|
sInfo = Marshal.PtrToStringUni(psInfo)
|
|
EgtFreeMemory(psInfo)
|
|
Return bOk
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtExistsInfo(ByVal nId As Integer, ByVal sKey As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtRemoveInfo(ByVal nId As Integer, ByVal sKey As String) As Boolean
|
|
End Function
|
|
|
|
|
|
'---------- GeomDb Obj Selection -----------------------------------------------
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtIsSelectedObj(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSelectObj(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtDeselectObj(ByVal nId As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtDeselectAll() As Boolean
|
|
End Function
|
|
|
|
|
|
'---------- GeomDb Obj Transform -----------------------------------------------
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtMove(ByVal nId As Integer, ByRef VtMove As Vector3d) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtMoveGlob(ByVal nId As Integer, ByRef VtMove As Vector3d) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtMoveGroup(ByVal nId As Integer, ByRef VtMove As Vector3d) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtRotate(ByVal nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtRotateGlob(ByVal nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtRotateGroup(ByVal nId As Integer, ByRef PtAx As Point3d, ByRef VtAx As Vector3d, ByVal dAngRotDeg As Double) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtScale(ByVal nId As Integer, ByRef PtOrig As Point3d,
|
|
ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d,
|
|
ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtScaleGlob(ByVal nId As Integer, ByRef PtOrig As Point3d,
|
|
ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d,
|
|
ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtScaleGroup(ByVal nId As Integer, ByRef PtOrig As Point3d,
|
|
ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d,
|
|
ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtMirror(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtMirrorGlob(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtMirrorGroup(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtShear(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d,
|
|
ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtShearGlob(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d,
|
|
ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtShearGroup(ByVal nId As Integer, ByRef PtOn As Point3d, ByRef VtNorm As Vector3d,
|
|
ByRef VtDir As Vector3d, ByVal dCoeff As Double) As Boolean
|
|
End Function
|
|
|
|
|
|
'---------- Scene --------------------------------------------------------------
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtInitScene(ByVal hWnd As IntPtr, ByVal nDriver As Integer,
|
|
ByVal b2Buff As Boolean, ByVal nColorBits As Integer, ByVal nDepthBits As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetBackground(ByVal nTopRed As Integer, ByVal nTopGreen As Integer, ByVal nTopBlue As Integer,
|
|
ByVal nBottomRed As Integer, ByVal nBottomGreen As Integer, ByVal nBottomBlue As Integer,
|
|
Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetMarkAttribs(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetGeoLineAttribs(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetWinRectAttribs(ByVal bOutline As Boolean, ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer, ByVal nAlpha As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtResize(ByVal nW As Integer, ByVal nH As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtDraw() As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtSelect(ByVal nWinX As Integer, ByVal nWinY As Integer,
|
|
ByVal nSelW As Integer, ByVal nSelH As Integer, ByRef nSel As Integer) As Boolean
|
|
End Function
|
|
Public Shared Function EgtSelect(ByVal Curr As Point, ByVal nSelW As Integer, ByVal nSelH As Integer,
|
|
ByRef nSel As Integer) As Boolean
|
|
Return EgtSelect(Curr.X, Curr.Y, nSelW, nSelH, nSel)
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetFirstSelectedObj() As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetNextSelectedObj() As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetSelectedSnapPoint(ByVal nSnap As Integer,
|
|
ByVal nWinX As Integer, ByVal nWinY As Integer, ByVal nSelW As Integer, ByVal nSelH As Integer,
|
|
ByRef ptP As Point3d) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetShowMode(ByVal nShowMode As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetShowMode() As Integer
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetShowCurveDirection(ByVal bShow As Boolean, Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetShowCurveDirection() As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtZoom(ByVal nZoom As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtZoomOnPoint(ByVal nWinX As Integer, ByVal nWinY As Integer, ByVal dCoeff As Double, ByVal bRedraw As Boolean) As Boolean
|
|
End Function
|
|
Public Shared Function EgtZoomOnPoint(ByVal Curr As Point, ByVal dCoeff As Double, Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
Return EgtZoomOnPoint(Curr.X, Curr.Y, dCoeff, bRedraw)
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetGeoLine(ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtResetGeoLine(Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtSetWinRect(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean
|
|
End Function
|
|
Public Shared Function EgtSetWinRect(ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
Return EgtSetWinRect(Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw)
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtResetWinRect(Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtZoomWin(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean
|
|
End Function
|
|
Public Shared Function EgtZoomWin(ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
Return EgtZoomWin(Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw)
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtSetView(ByVal nView As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtPanCamera(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean
|
|
End Function
|
|
Public Shared Function EgtPanCamera(ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
Return EgtPanCamera(Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw)
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtRotateCamera(ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean
|
|
End Function
|
|
Public Shared Function EgtRotateCamera(ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean
|
|
Return EgtRotateCamera(Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw)
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtGetCameraDir(ByRef nDir As Integer) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtUnProjectPoint(ByVal nWinX As Integer, ByVal nWinY As Integer, ByRef ptP As Point3d) As Boolean
|
|
End Function
|
|
Public Shared Function EgtUnProjectPoint(ByVal Curr As Point, ByRef ptP As Point3d) As Boolean
|
|
Return EgtUnProjectPoint(Curr.X, Curr.Y, ptP)
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtProjectPoint(ByRef ptP As Point3d, ByRef ptWin As Point3d) As Boolean
|
|
End Function
|
|
|
|
|
|
'---------- Tsc Executor -------------------------------------------------------
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtInitTscExec() As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtTscExecFile(ByVal sFilePath As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtTscExecLine(ByVal sLine As String) As Boolean
|
|
End Function
|
|
|
|
|
|
'---------- LUA Executor -------------------------------------------------------
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtLuaExecFile(ByVal sFilePath As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Public Shared Function EgtLuaExecLine(ByVal sLine As String) As Boolean
|
|
End Function
|
|
|
|
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
|
Private Shared Function EgtLuaGetLastError(ByRef psError As IntPtr) As Boolean
|
|
End Function
|
|
Public Shared Function EgtLuaGetLastError(ByRef sError As String) As Boolean
|
|
Dim psError As IntPtr
|
|
Dim bOk As Boolean = EgtLuaGetLastError(psError)
|
|
sError = Marshal.PtrToStringUni(psError)
|
|
EgtFreeMemory(psError)
|
|
Return bOk
|
|
End Function
|
|
|
|
|
|
'Costanti : TIPO DI FILE
|
|
Public Const FT_NULL As Integer = 0
|
|
Public Const FT_NGE As Integer = 1
|
|
Public Const FT_NFE As Integer = 2
|
|
Public Const FT_DXF As Integer = 11
|
|
Public Const FT_STL As Integer = 12
|
|
Public Const FT_CNC As Integer = 13
|
|
'Costanti : FORMATO FILE NGE
|
|
Public Const NGE_TEXT As Integer = 0
|
|
Public Const NGE_BIN As Integer = 1
|
|
Public Const NGE_CMPTEXT As Integer = 2
|
|
'Costanti : ID GEOMDB
|
|
Public Const GDB_ID_ROOT As Integer = 0
|
|
Public Const GDB_ID_NULL As Integer = -1
|
|
'Costanti : TIPO OGGETTI
|
|
Public Const TY_NONE As Integer = 0
|
|
Public Const TY_GROUP As Integer = 2
|
|
Public Const TY_GEO_VECTOR As Integer = 128
|
|
Public Const TY_GEO_POINT As Integer = 129
|
|
Public Const TY_GEO_FRAME As Integer = 130
|
|
Public Const TY_CRV_LINE As Integer = 256
|
|
Public Const TY_CRV_ARC As Integer = 257
|
|
Public Const TY_CRV_BEZ As Integer = 258
|
|
Public Const TY_CRV_COMPO As Integer = 259
|
|
Public Const TY_SRF_MESH As Integer = 512
|
|
Public Const TY_EXT_TEXT As Integer = 1024
|
|
'Costanti : LIVELLO DI UN OGGETTO
|
|
Public Const GDB_LV_USER As Integer = 1
|
|
Public Const GDB_LV_SYSTEM As Integer = 2
|
|
Public Const GDB_LV_TEMP As Integer = 3
|
|
'Costanti : MODO DI UN OGGETTO
|
|
Public Const GDB_MD_STD As Integer = 1
|
|
Public Const GDB_MD_LOCKED As Integer = 2
|
|
Public Const GDB_MD_HIDDEN As Integer = 3
|
|
'Costanti : STATO DI UN OGGETTO
|
|
Public Const GDB_ST_OFF As Integer = 0
|
|
Public Const GDB_ST_ON As Integer = 1
|
|
Public Const GDB_ST_SEL As Integer = 2
|
|
'Costanti : TIPO VISUALIZZAZIONE
|
|
Public Const SM_WIREFRAME As Integer = 0
|
|
Public Const SM_HIDDENLINE As Integer = 1
|
|
Public Const SM_SHADING As Integer = 2
|
|
'Costanti : TIPO ZOOM
|
|
Public Const ZM_ALL As Integer = 1
|
|
Public Const ZM_IN As Integer = 2
|
|
Public Const ZM_OUT As Integer = 3
|
|
'Costanti : TIPO VISTA
|
|
Public Const CT_NONE As Integer = 0
|
|
Public Const CT_TOP As Integer = 1
|
|
Public Const CT_FRONT As Integer = 2
|
|
Public Const CT_RIGHT As Integer = 3
|
|
Public Const CT_BACK As Integer = 4
|
|
Public Const CT_LEFT As Integer = 5
|
|
Public Const CT_BOTTOM As Integer = 6
|
|
Public Const CT_ISO_SW As Integer = 7
|
|
Public Const CT_ISO_SE As Integer = 8
|
|
Public Const CT_ISO_NE As Integer = 9
|
|
Public Const CT_ISO_NW As Integer = 10
|
|
'Costanti : TIPO SNAP POINT
|
|
Public Const SP_END As Integer = 0
|
|
Public Const SP_MID As Integer = 1
|
|
Public Const SP_CENTER As Integer = 2
|
|
Public Const SP_NEAR As Integer = 3
|
|
'Costanti : falg per BBOX
|
|
Public Const BBF_STANDARD As Integer = 0
|
|
Public Const BBF_ONLY_VISIBLE As Integer = 1
|
|
Public Const BBF_IGNORE_TEXT As Integer = 2
|
|
|
|
End Class
|