TestEIn 1.6f3 :

- adattamenti per EgtApproxCurve.
This commit is contained in:
Dario Sassi
2015-06-21 17:04:01 +00:00
parent 53a56e04bc
commit 12910e9452
3 changed files with 12 additions and 9 deletions
+1 -1
View File
@@ -4135,7 +4135,7 @@ Public Class Controller
Dim nFirstId As Integer = EgtExplodeCurveCompo(nId, nCount)
Case GDB_TY.CRV_BEZ
' approssimo la curva di Bezier con archi
Dim nNewId As Integer = EgtApproxCurveBezier(nId, True, 10 * EPS_SMALL)
Dim nNewId As Integer = EgtApproxCurve(nId, APP_TYPE.ARCS, 10 * EPS_SMALL)
Case GDB_TY.EXT_TEXT
' esplodo il testo nei suoi contorni
Dim nCount As Integer
+9 -6
View File
@@ -1184,16 +1184,12 @@ Public Function EgtExplodeCurveCompo(ByVal nId As Integer, ByRef nCount As Integ
End Function
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
Public Function EgtApproxCurveArc(ByVal nId As Integer, ByVal dLinTol As Double) As Integer
End Function
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
Public Function EgtApproxCurveBezier(ByVal nId As Integer, ByVal bArcsVsLines As Boolean, ByVal dLinTol As Double) As Integer
Public Function EgtApproxCurve(ByVal nId As Integer, ByVal nApprType As Integer, ByVal dLinTol As Double) As Integer
End Function
'---------- GeomDb Surfaces Modify ---------------------------------------------
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
Public Function EgtInvertSurface(ByVal nId As Integer) As Boolean
End Function
@@ -2417,6 +2413,13 @@ Public Enum OFF_TYPE As Integer
FORCE_OPEN = 8
NO_VERTLINE = 16
End Enum
'Costanti : tipo di approssimazione di curva
Public Enum APP_TYPE As Integer
LINES = 0
LEFT_LINES = 1
RIGHT_LINES = 2
ARCS = 3
End Enum
'Costanti : posizione di inserimento per testi
Public Enum INS_POS As Integer
TL = 1
+2 -2
View File
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
' utilizzando l'asterisco (*) come descritto di seguito:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.6.6.1")>
<Assembly: AssemblyFileVersion("1.6.6.1")>
<Assembly: AssemblyVersion("1.6.6.3")>
<Assembly: AssemblyFileVersion("1.6.6.3")>