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

- modificata la funzione EgtSurfBezParamsFromPoint

Browse Source
This commit is contained in:
Daniele Bariletti
2026-03-12 18:15:59 +01:00
parent ca2144f058
commit 6e06d76a7c
2 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Project/ProjectVM.vb
+6 -5
View File
@@ -1465,13 +1465,14 @@ Public Class ProjectVM
ElseIf EgtGetType(nId) = GDB_TY.SRF_BEZ Then
' Visualizzo il punto selezionato, la normale e le tangenti nelle direzioni dei parametri
Analyze.CreateAnalyzeGroup()
Dim ptPar As Point3d
If Analyze.CreateSBzPointNormalAndTangents(nId, ptSel, ptPar) Then
Dim sOut As String = "U = " + ptPar.x.ToString("F3") +
"; V = " + ptPar.y.ToString("F3")
Dim dU As Double
Dim dV As Double
If Analyze.CreateSBzPointNormalAndTangents(nId, ptSel, dU, dV) Then
Dim sOut As String = "U = " + dU.ToString("F3") +
"; V = " + dV.ToString("F3")
Map.refStatusBarVM.NotifyStatusOutput(sOut)
If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
Analyze.CreateSBzIsoParam(nId, ptPar)
Analyze.CreateSBzIsoParam(nId, dU, dV)
End If
End If