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

Comparing magicsld/EncapCL.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 EncapCL
6  
7  
# Line 59 | Line 63 | Public Class EncapCL
63          swent = attribut.IGetEntity2()
64  
65          Select Case swent.GetType
66 <            Case SwConst.swSelectType_e.swSelVERTICES
66 >            Case swconst.swSelectType_e.swSelVERTICES
67                  Me.swSommet = swent
68 <            Case SwConst.swSelectType_e.swSelEDGES
68 >            Case swconst.swSelectType_e.swSelEDGES
69                  Me.swArete = swent
70 <            Case SwConst.swSelectType_e.swSelFACES
70 >            Case swconst.swSelectType_e.swSelFACES
71                  Me.swFace = swent
72          End Select
73      End Sub
# Line 100 | Line 104 | Public Class EncapCL
104          swent = Attribut.IGetEntity2()
105  
106          Select Case swent.GetType
107 <            Case SwConst.swSelectType_e.swSelVERTICES
107 >            Case swconst.swSelectType_e.swSelVERTICES
108                  Me.swSommet = swent
109 <            Case SwConst.swSelectType_e.swSelEDGES
109 >            Case swconst.swSelectType_e.swSelEDGES
110                  Me.swArete = swent
111 <            Case SwConst.swSelectType_e.swSelFACES
111 >            Case swconst.swSelectType_e.swSelFACES
112                  Me.swFace = swent
113          End Select
114  
# Line 264 | Line 268 | Public Class EncapCL
268              swFeat = swEnt
269              swEnt = attr.GetEntity2()
270              Select Case swEnt.GetType
271 <                Case SwConst.swSelectType_e.swSelFACES
271 >                Case swconst.swSelectType_e.swSelFACES
272                      chaine = "Face" & vbCr
273 <                Case SwConst.swSelectType_e.swSelEDGES
273 >                Case swconst.swSelectType_e.swSelEDGES
274                      chaine = "Arete" & vbCr
275 <                Case SwConst.swSelectType_e.swSelVERTICES
275 >                Case swconst.swSelectType_e.swSelVERTICES
276                      chaine = "Sommet" & vbCr
277              End Select
278  
# Line 557 | Line 561 | Public Class EncapCL
561                      liste(8) = Grosseur * 5 ' hauteur
562                      vListe = liste
563                      NewBod2(b) = modeler.CreateBodyFromCone(vListe)
564 <                    NewBod(b).Operations2(SwConst.swBodyOperationType_e.SWBODYADD, NewBod2(b), err)
564 >                    NewBod(b).Operations2(swconst.swBodyOperationType_e.SWBODYADD, NewBod2(b), err)
565                      NewBod(b).Display2(swPart, RGB(0, 0, 255), 0)
566                      b += 1
567                  Next Pt
# Line 583 | Line 587 | Public Class EncapCL
587                      liste(8) = Grosseur * 5 ' hauteur
588                      vListe = liste
589                      NewBod2(b) = modeler.CreateBodyFromCone(vListe)
590 <                    NewBod(b).Operations2(SwConst.swBodyOperationType_e.SWBODYADD, NewBod2(b), err)
590 >                    NewBod(b).Operations2(swconst.swBodyOperationType_e.SWBODYADD, NewBod2(b), err)
591                      NewBod(b).Display2(swPart, RGB(0, 0, 255), 0)
592                      b += 1
593                  Next Pt
# Line 608 | Line 612 | Public Class EncapCL
612                      liste(8) = Grosseur * 5 ' hauteur
613                      vListe = liste
614                      NewBod2(b) = modeler.CreateBodyFromCone(vListe)
615 <                    NewBod(b).Operations2(SwConst.swBodyOperationType_e.SWBODYADD, NewBod2(b), err)
615 >                    NewBod(b).Operations2(swconst.swBodyOperationType_e.SWBODYADD, NewBod2(b), err)
616                      NewBod(b).Display2(swPart, RGB(0, 0, 255), 0)
617  
618                      b += 1

Diff Legend

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