Egalware/EgtUILib
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtUILib :

Browse Source 
- in Interfaccia aggiornata EgtCreateSurfTmSwept con possibilità di nuovo parametro vettore normale al piano di giacitura asse X
- in Controller aggiunta gestione swept in 3d con opzione Rotation X plane o Rotation Minimizing.
This commit is contained in:
Dario Sassi
2024-04-05 16:59:49 +02:00
parent 42f60adb81
commit 9f49f4e4e1
3 changed files with 36 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Controller.vb
+7 -3
View File
@@ -4880,8 +4880,10 @@ Public Class Controller
' imposto nuovo stato
m_nStep = 1
' abilito dialogo
RaiseEvent PrepareInputBox("SWEPT", "", "CapEnds", False, True)
RaiseEvent PrepareInputBox("SWEPT", "", "CapEnds", True, True)
RaiseEvent SetInputBoxCheck(m_bLastCapEndsCheck)
RaiseEvent AddInputBoxCombo("Rotation X plane", True)
RaiseEvent AddInputBoxCombo("Rotation Minimizing", False)
m_nInpType = IBT.TY_NULL
' anteprima
EgtDisableModified()
@@ -4892,7 +4894,8 @@ Public Class Controller
EnableCommandLog()
Dim nGuideId As Integer = EgtGetLastSelectedObj()
Dim nSectId As Integer = EgtGetPrevSelectedObj()
EgtCreateSurfTmSwept(GetCurrLayer(), nSectId, nGuideId, m_bLast, m_dEpsStm)
Dim vtAx As Vector3d = If( m_nLast = 0, Vector3d.Z_AX(), Vector3d.NULL())
EgtCreateSurfTmSwept(GetCurrLayer(), nSectId, nGuideId, vtAx, m_bLast, m_dEpsStm, GDB_RT.GRID)
DisableCommandLog()
' reset stato scena
m_Scene.ResetStatus()
@@ -4913,8 +4916,9 @@ Public Class Controller
' creo la superficie di swept (a partire dai contorni selezionati)
Dim nGuideId As Integer = EgtGetLastSelectedObj()
Dim nSectId As Integer = EgtGetPrevSelectedObj()
Dim vtAx As Vector3d = If( m_nLast = 0, Vector3d.Z_AX(), Vector3d.NULL())
' eseguo
EgtCreateSurfTmSwept(m_Scene.GetDragGroup(), nSectId, nGuideId, m_bLast, EPS_STM_DRAG)
EgtCreateSurfTmSwept(m_Scene.GetDragGroup(), nSectId, nGuideId, vtAx, m_bLast, EPS_STM_DRAG, GDB_RT.GRID)
EgtDraw()
End If
End Sub
EgtInterface.vb
+26 -19
View File
@@ -3789,13 +3789,11 @@ End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmByExtrusion"), SuppressUnmanagedCodeSecurity()>
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
ByRef VtExtr As Vector3d, dLinTol As Double, nRefType As GDB_RT) As Integer
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmByExtrusion"), SuppressUnmanagedCodeSecurity()>
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
ByRef VtExtr As Vector3d, dLinTol As Double, nRefType As GDB_RT) As Integer
End Function
Public Function EgtCreateSurfTmByExtrusion(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer,
ByRef VtExtr As Vector3d, dLinTol As Double,
@@ -3809,13 +3807,11 @@ End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmByRegionExtrusion"), SuppressUnmanagedCodeSecurity()>
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
ByRef VtExtr As Vector3d, dLinTol As Double, nRefType As GDB_RT) As Integer
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmByRegionExtrusion"), SuppressUnmanagedCodeSecurity()>
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
ByRef VtExtr As Vector3d, dLinTol As Double, nRefType As GDB_RT) As Integer
End Function
Public Function EgtCreateSurfTmByRegionExtrusion(nParentId As Integer, nNumCrv As Integer, nCrvId() As Integer,
ByRef VtExtr As Vector3d, dLinTol As Double,
@@ -3830,14 +3826,12 @@ End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmByRevolve"), SuppressUnmanagedCodeSecurity()>
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
bCapEnds As Boolean, dLinTol As Double, nRefType As GDB_RT) As Integer
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmByRevolve"), SuppressUnmanagedCodeSecurity()>
Private Function EgtCreateSurfTmByRevolve_64(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
bCapEnds As Boolean, dLinTol As Double, nRefType As GDB_RT) As Integer
End Function
Public Function EgtCreateSurfTmByRevolve(nParentId As Integer, nCrvId As Integer,
ByRef PtAx As Point3d, ByRef VtAx As Vector3d,
@@ -3854,13 +3848,13 @@ 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, bCapEnds As Boolean,
dLinTol As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer
dLinTol As Double, nRefType As GDB_RT) As Integer
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmByScrewing"), SuppressUnmanagedCodeSecurity()>
Private Function EgtCreateSurfTmByScrewing_64(nParentId As Integer, nCrvId As Integer,
ByRef PtAx As Point3d, ByRef VtAx As Vector3d,
dAngRotDeg As Double, dMove As Double, bCapEnds As Boolean,
dLinTol As Double, Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer
dLinTol As Double, nRefType As GDB_RT) As Integer
End Function
Public Function EgtCreateSurfTmByScrewing(nParentId As Integer, nCrvId As Integer,
ByRef PtAx As Point3d, ByRef VtAx As Vector3d,
@@ -3874,16 +3868,29 @@ Public Function EgtCreateSurfTmByScrewing(nParentId As Integer, nCrvId As Intege
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmSwept"), SuppressUnmanagedCodeSecurity()>
Private Function EgtCreateSurfTmSwept_32(nParentId As Integer, nSectId As Integer, nGuideId As Integer, bCapEnds As Boolean, dLinTol As Double) As Integer
Private Function EgtCreateSurfTmSwept_32(nParentId As Integer, nSectId As Integer, nGuideId As Integer, ByRef VtAx As Vector3d,
bCapEnds As Boolean, dLinTol As Double, nRefType As GDB_RT) As Integer
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmSwept"), SuppressUnmanagedCodeSecurity()>
Private Function EgtCreateSurfTmSwept_64(nParentId As Integer, nSectId As Integer, nGuideId As Integer, bCapEnds As Boolean, dLinTol As Double) As Integer
Private Function EgtCreateSurfTmSwept_64(nParentId As Integer, nSectId As Integer, nGuideId As Integer, ByRef VtAx As Vector3d,
bCapEnds As Boolean, dLinTol As Double, nRefType As GDB_RT) As Integer
End Function
Public Function EgtCreateSurfTmSwept(nParentId As Integer, nSectId As Integer, nGuideId As Integer, bCapEnds As Boolean, dLinTol As Double) As Integer
Public Function EgtCreateSurfTmSwept(nParentId As Integer, nSectId As Integer, nGuideId As Integer,
ByRef VtAx As Vector3d, bCapEnds As Boolean, dLinTol As Double,
Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer
If IntPtr.Size = 4 Then
Return EgtCreateSurfTmSwept_32(nParentId, nSectId, nGuideId, bCapEnds, dLinTol)
Return EgtCreateSurfTmSwept_32(nParentId, nSectId, nGuideId, vtAx, bCapEnds, dLinTol, nRefType)
Else
Return EgtCreateSurfTmSwept_64(nParentId, nSectId, nGuideId, bCapEnds, dLinTol)
Return EgtCreateSurfTmSwept_64(nParentId, nSectId, nGuideId, vtAx, bCapEnds, dLinTol, nRefType)
End If
End Function
Public Function EgtCreateSurfTmSwept(nParentId As Integer, nSectId As Integer, nGuideId As Integer,
bCapEnds As Boolean, dLinTol As Double,
Optional nRefType As GDB_RT = GDB_RT.LOC) As Integer
If IntPtr.Size = 4 Then
Return EgtCreateSurfTmSwept_32(nParentId, nSectId, nGuideId, Vector3d.NULL(), bCapEnds, dLinTol, nRefType)
Else
Return EgtCreateSurfTmSwept_64(nParentId, nSectId, nGuideId, Vector3d.NULL(), bCapEnds, dLinTol, nRefType)
End If
End Function
EgtUILib.vbproj
+3 -1
View File
@@ -135,7 +135,9 @@
<Compile Include="btnBack.Designer.vb">
<DependentUpon>btnBack.vb</DependentUpon>
</Compile>
<Compile Include="btnBack.vb" />
<Compile Include="btnBack.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="btnExec.Designer.vb">
<DependentUpon>btnExec.vb</DependentUpon>
</Compile>