TestEInn 1.6d1 :

- aggiornata interfaccia verso dll native
- aggiunta Join con copia.
This commit is contained in:
Dario Sassi
2015-04-16 06:58:03 +00:00
parent 1f4e273e0c
commit 65313fe95f
6 changed files with 62 additions and 40 deletions
+6 -4
View File
@@ -3804,7 +3804,7 @@ Public Class Controller
EnableCommandLog()
Dim nCrvIds(0) As Integer
nCrvIds(0) = GDB_ID.SEL
EgtCreateCurveCompoByChain(GetCurrLayer(), 1, nCrvIds, New Point3d, True, REF_TY.GRID)
EgtCreateCurveCompoByChain(GetCurrLayer(), 1, nCrvIds, New Point3d, Not m_bLast, REF_TY.GRID)
DisableCommandLog()
' reset stato scena
m_Scene.ResetStatus()
@@ -3828,13 +3828,15 @@ Public Class Controller
Select Case EgtGetType(nId)
Case GDB_TY.CRV_COMPO
' separo la curva composita nelle curve componenti
EgtExplodeCurveCompo(nId)
Dim nCount As Integer
Dim nFirstId As Integer = EgtExplodeCurveCompo(nId, nCount)
Case GDB_TY.CRV_BEZ
' approssimo la curva di Bezier con archi
EgtExplodeCurveBezier(nId, True, 10 * EPS_SMALL)
Dim nNewId As Integer = EgtExplodeCurveBezier(nId, True, 10 * EPS_SMALL)
Case GDB_TY.EXT_TEXT
' esplodo il testo nei suoi contorni
EgtExplodeText(nId)
Dim nCount As Integer
Dim nFirstId As Integer = EgtExplodeText(nId, nCount)
End Select
' passo al successivo
nId = nNextId