OmagCUT 1.8j1 :
- corretta gestione valori correnti lati inclinati al ritorno sullo stesso pezzo.
This commit is contained in:
@@ -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
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user