ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magicsld/SuperArete.vb
(Generate patch)

Comparing magicsld/SuperArete.vb (file contents):
Revision 40 by bournival, Mon Aug 20 21:30:28 2007 UTC vs.
Revision 48 by bournival, Wed Aug 22 21:18:12 2007 UTC

# Line 1 | Line 1
1 + Imports SolidWorks.Interop
2 + Imports SolidWorks.Interop.swconst
3 + Imports SolidWorks.Interop.swpublished
4 +
5   Public Class SuperArete
6      Inherits SuperEntite
7      Public swArete As SldWorks.Edge
# Line 18 | Line 22 | Public Class SuperArete
22          Me.swCourbe = swArete.GetCurve
23      End Sub
24  
25 <    Public Sub New(ByRef arete As SldWorks.Edge, Optional ByVal tip As integer = 0)
25 >    Public Sub New(ByRef arete As SldWorks.Edge, Optional ByVal tip As Integer = 0)
26          Me.swArete = arete
27          Me.swCourbe = swArete.GetCurve
28          Select Case tip
# Line 278 | Line 282 | Public Class SuperArete
282      ''' <param name="Bleu">Le ton de bleu, entre 0 et 1</param>
283      ''' <remarks></remarks>
284      Public Sub Colorer(Optional ByVal Largeur As Integer = 2, Optional ByRef Rouge As Double = 1, Optional ByRef Vert As Double = 0, Optional ByRef Bleu As Double = 0)
285 <        SwArete.Display(Largeur, Rouge, Vert, Bleu, True)
285 >        swArete.Display(Largeur, Rouge, Vert, Bleu, True)
286      End Sub
287  
288  
# Line 308 | Line 312 | Public Class SuperArete
312          Do While attr Is Nothing
313              nom = "DoublonA_" & Format(Numero, "000")
314              If Maitre Then nom &= "Maitre" Else nom &= "Esclave"
315 <            attr = Intersections.DefAttrDoublon.CreateInstance5(swModel, SwArete, nom, 0, 2) ' 0 = swThisconfig
315 >            attr = Intersections.DefAttrDoublon.CreateInstance5(swModel, swArete, nom, 0, 2) ' 0 = swThisconfig
316              If attr Is Nothing Then Numero += 1
317          Loop
318  
319          ParamMaitre = attr.GetParameter("Maitre")
320 <        paramsens = attr.GetParameter("Sens")
320 >        paramSens = attr.GetParameter("Sens")
321          If NomMaitre = Nothing Then
322              NomMaitre = "Inconnu"
323  
# Line 424 | Line 428 | Public Class SuperArete
428          sommet = Me.SwArete.GetStartVertex()
429  
430          If sommet IsNot Nothing Then
431 <            point = sommet.GetPoint() : temp = SwArete.GetParameter(point(0), point(1), point(2)) : T1 = temp(0)
432 <            sommet = SwArete.GetEndVertex() : point = sommet.GetPoint() : temp = SwArete.GetParameter(point(0), point(1), point(2)) : T2 = temp(0)
431 >            point = sommet.GetPoint() : temp = swArete.GetParameter(point(0), point(1), point(2)) : T1 = temp(0)
432 >            sommet = swArete.GetEndVertex() : point = sommet.GetPoint() : temp = swArete.GetParameter(point(0), point(1), point(2)) : T2 = temp(0)
433              Return (T1 + T2) / 2
434  
435          Else
# Line 461 | Line 465 | Public Class SuperArete
465      ''' <remarks></remarks>
466      Public Function GetTMin() As Double
467          Dim vp As Object
468 <        SwArete.GetCurve()
469 <        vp = SwArete.GetCurveParams2()
468 >        swArete.GetCurve()
469 >        vp = swArete.GetCurveParams2()
470          Return vp(6)
471      End Function
472  
# Line 474 | Line 478 | Public Class SuperArete
478      ''' <remarks></remarks>
479      Public Function GetTMax() As Double
480          Dim vp As Object
481 <        SwArete.GetCurve()
482 <        vp = SwArete.GetCurveParams2()
481 >        swArete.GetCurve()
482 >        vp = swArete.GetCurveParams2()
483          Return vp(7)
484      End Function
485  
# Line 612 | Line 616 | Public Class SuperArete
616          If Distance(debut1, debut2) > Epsilon AndAlso Distance(debut1, fin2) > Epsilon Then Return False
617          If Distance(fin1, debut2) > Epsilon AndAlso Distance(fin1, fin2) > Epsilon Then Return False
618  
619 <            ' le pointmilieu est identique
619 >        ' le pointmilieu est identique
620          Dim Milieu1() As Double = Me.GetPointMilieu()
621          Dim milieu2() As Double = sAreteTest.GetPointMilieu
622          If Distance(Milieu1, milieu2) > Epsilon Then Return False
# Line 631 | Line 635 | Public Class SuperArete
635          Dim sommet As SldWorks.Vertex
636          Dim point As Object
637  
638 <        sommet = SwArete.GetStartVertex()
638 >        sommet = swArete.GetStartVertex()
639  
640          If sommet IsNot Nothing Then
641 <            point = sommet.GetPoint() : temp = SwArete.GetParameter(point(0), point(1), point(2)) : T1 = temp(0)
642 <            sommet = SwArete.GetEndVertex() : point = sommet.GetPoint() : temp = SwArete.GetParameter(point(0), point(1), point(2)) : T2 = temp(0)
641 >            point = sommet.GetPoint() : temp = swArete.GetParameter(point(0), point(1), point(2)) : T1 = temp(0)
642 >            sommet = swArete.GetEndVertex() : point = sommet.GetPoint() : temp = swArete.GetParameter(point(0), point(1), point(2)) : T2 = temp(0)
643              Return swCourbe.GetLength2(T1, T2)
644  
645          Else

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines