From 12910e945201b3b9f148328adac01be5ba7d6f5e Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Sun, 21 Jun 2015 17:04:01 +0000 Subject: [PATCH] TestEIn 1.6f3 : - adattamenti per EgtApproxCurve. --- Controller.vb | 2 +- EgtInterface.vb | 15 +++++++++------ My Project/AssemblyInfo.vb | 4 ++-- 3 files changed, 12 insertions(+), 9 deletions(-) diff --git a/Controller.vb b/Controller.vb index 2a6b6dd..d2babfa 100644 --- a/Controller.vb +++ b/Controller.vb @@ -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 diff --git a/EgtInterface.vb b/EgtInterface.vb index 9a3233f..ef28190 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -1184,16 +1184,12 @@ Public Function EgtExplodeCurveCompo(ByVal nId As Integer, ByRef nCount As Integ End Function -Public Function EgtApproxCurveArc(ByVal nId As Integer, ByVal dLinTol As Double) As Integer -End Function - - -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 --------------------------------------------- - + 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 diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index d83cf0c..552e649 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +