TestEInn 1.6d1 :
- aggiornata interfaccia verso dll native - aggiunta Join con copia.
This commit is contained in:
+6
-4
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user