OmagCUT 1.8j1 :

- corretta gestione valori correnti lati inclinati al ritorno sullo stesso pezzo.
This commit is contained in:
Dario Sassi
2017-10-13 16:03:17 +00:00
parent 1d4aaf81e3
commit 6d187be274
2 changed files with 12 additions and 8 deletions
+2 -2
View File
@@ -62,5 +62,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.8.9.3")>
<Assembly: AssemblyFileVersion("1.8.9.3")>
<Assembly: AssemblyVersion("1.8.10.1")>
<Assembly: AssemblyFileVersion("1.8.10.1")>
+10 -6
View File
@@ -66,7 +66,7 @@ Public Class SideAngleUC
If m_SideAngleEntityList.Count > 0 Then
' Aggiorno indici che potrebbero essere cambiati se sono state modificate le misure
RefreshGeomId()
' Aggiorno testi in base alla tabella
' Aggiorno testi nel disegno
RefreshSideAngleText()
' Aggiorno check e valori
RefreshCheckAndValue()
@@ -93,7 +93,10 @@ Public Class SideAngleUC
DeleteSideAngle()
' Inizializzo lati per angoli (ne compilo la lista e aggiungo la scritta nel disegno)
InitSides()
' Aggiorno testi nel disegno
RefreshSideAngleText()
' Aggiorno check e valori
RefreshCheckAndValue()
End If
' Gestisco Checkbox e nomi in base al numero di lati inclinabili
@@ -304,12 +307,13 @@ Public Class SideAngleUC
End Sub
Private Sub RefreshCheckAndValue()
For Each Entity In m_SideAngleEntityList
For EntityIndex = 1 To m_SideAngleEntityList.Count
Dim Entity As SideAngleEntity = m_SideAngleEntityList(EntityIndex - 1)
' Creo testo con angolo di inclinazione
If Entity.dSideAngle <> 0 Then
End If
'AddTextToLine(Entity.sEntityName & " = " & DoubleToString(Entity.dSideAngle, 1) & "°", Entity.nTextId, Entity.nGeomId, 10, dBBoxRad, True)
'If Entity.dSideAngle <> 0 Then
Dim nTxBxIndex As Integer = 10 - m_SideAngleEntityList.Count + EntityIndex
GetSideTxBxFromIndex(nTxBxIndex).Text = DoubleToString(Entity.dSideAngle, 1)
'End If
Next
End Sub