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

Comparing magicsld/SuperSommet.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 SuperSommet
6      Inherits SuperEntite
7      Public swSommet As SldWorks.Vertex
# Line 132 | Line 136 | Public Class SuperSommet
136      Public Overrides Sub Selectionner(Optional ByVal Mark As Integer = 0, Optional ByRef Append As Boolean = True)
137          Dim swent As SldWorks.Entity
138          swent = swSommet
139 <        swent.Select2(append, Mark)
139 >        swent.Select2(Append, Mark)
140      End Sub
141  
142  
# Line 153 | Line 157 | Public Class SuperSommet
157      ''' <returns></returns>
158      ''' <remarks></remarks>
159      Public Function GetX() As Double
160 <        Return Me.x
160 >        Return Me.X
161      End Function
162  
163      ''' <summary>
# Line 162 | Line 166 | Public Class SuperSommet
166      ''' <returns></returns>
167      ''' <remarks></remarks>
168      Public Function GetY() As Double
169 <        Return Me.y
169 >        Return Me.Y
170      End Function
171  
172      ''' <summary>
# Line 171 | Line 175 | Public Class SuperSommet
175      ''' <returns></returns>
176      ''' <remarks></remarks>
177      Public Function GetZ() As Double
178 <        Return Me.z
178 >        Return Me.Z
179      End Function
180  
181  
# Line 222 | Line 226 | Public Class SuperSommet
226      End Sub
227  
228  
229 <
229 >    ''' <summary>
230 >    ''' Colore le sommet pour l'identifier plus facilement
231 >    ''' </summary>
232 >    ''' <param name="rouge">Valeur du rouge (entre 0 et 255)</param>
233 >    ''' <param name="vert">Valeur du vert (entre 0 et 255)</param>
234 >    ''' <param name="bleu">Valeur du bleu (entre 0 et 255)</param>
235 >    ''' <param name="epaisseur">La grosseur du point</param>
236 >    ''' <remarks></remarks>
237      Public Sub colorer(Optional ByVal rouge As Integer = 255, Optional ByVal vert As Integer = 0, Optional ByVal bleu As Integer = 0, Optional ByVal epaisseur As Double = 1.5)
238          Me.swSommet.display(swModel, RGB(rouge, vert, bleu), epaisseur, True)
239      End Sub

Diff Legend

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