ViewVC Help

View File | Revision Log | Show Annotations | View Changeset | Root Listing

root/REPOS_ERICCA/magicsld/SlyFaceCoque.vb

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

#	Line 2 | Line 2 | Public Class SlyFaceCoque
2		Inherits SuperFace
3
4
5	<	Public epaisseur As Double
5	>	Private epaisseur As Double
6		Public materiau As Long
7		Public swAttribute As SldWorks.Attribute  ' l'attribut qui contient l'épaisseur. et le matériau
8
#	Line 80 | Line 80 | Public Class SlyFaceCoque
80		End Function
81
82
83	+	''' <summary>
84	+	''' Donne l'épaisseur de la coque
85	+	''' </summary>
86	+	''' <value></value>
87	+	''' <returns></returns>
88	+	''' <remarks></remarks>
89	+	Public ReadOnly Property GetEpaisseur() As Double
90	+	Get
91	+	If Not Me.epaisseur = 0 Then Return Me.epaisseur : Exit Property ' pour optimiser
92	+
93	+
94	+	Dim p As SldWorks.Parameter
95	+
96	+	Try
97	+	p = swAttribute.GetParameter("Ep")
98	+	Catch ex As Exception
99	+	MsgBox("N'arrive pas à se lier à l'attribut pour obtenir l'épaisseur, la coque n'a peut-être pas d'attributs...")
100	+	Return 0
101	+	End Try
102	+
103	+	Me.epaisseur = p.GetDoubleValue
104	+	Return p.GetDoubleValue
105	+	End Get
106	+	End Property
107
84	–	Public Function GetEpaisseur() As Double
85	–	If Not Me.epaisseur = 0 Then Return Me.epaisseur : Exit Function ' pour optimiser
86	–
87	–
88	–	Dim p As SldWorks.Parameter
89	–
90	–	Try
91	–	p = swAttribute.GetParameter("Ep")
92	–	Catch ex As Exception
93	–	MsgBox("N'arrive pas à se lier à l'attribut pour obtenir l'épaisseur, la coque n'a peut-être pas d'attributs...")
94	–	Return 0
95	–	End Try
108
97	–	Me.epaisseur = p.GetDoubleValue
98	–	Return p.GetDoubleValue
99	–	End Function
109
110		Public Function GetMateriau() As String
111		If Not Me.materiau Then Return Me.materiau : Exit Function ' pour optimiser

Diff Legend

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