REPOS_ERICCA/magicsld/InterPoutrePoutre.vb

Imports SolidWorks.Interop
Imports SolidWorks.Interop.swconst
Imports SolidWorks.Interop.swpublished

Public Class InterPoutrePoutre
    Inherits InterAreteArete

    Public x As Double
    Public y As Double
    Public z As Double
    Public T As Double
    Public Arete As SldWorks.Edge


    ' point d'intersection entre poutres
    Public Sub CalculT()
        Dim retv As Object  ' mettre les valeurs de T dans la classe
        retv = Arete.GetClosestPointOn(x, y, z)
        T = retv(3)
    End Sub
End Class
Revision:	48
Committed:	Wed Aug 22 21:18:12 2007 UTC (17 years, 9 months ago) by bournival
File size:	539 byte(s)
Log Message:	On passe aux nouveaux .dll
#	User	Rev	Content
1	bournival	48	Imports SolidWorks.Interop
2			Imports SolidWorks.Interop.swconst
3			Imports SolidWorks.Interop.swpublished
4
5	bournival	40	Public Class InterPoutrePoutre
6			Inherits InterAreteArete
7
8			Public x As Double
9			Public y As Double
10			Public z As Double
11			Public T As Double
12			Public Arete As SldWorks.Edge
13
14
15
16			' point d'intersection entre poutres
17			Public Sub CalculT()
18			Dim retv As Object ' mettre les valeurs de T dans la classe
19			retv = Arete.GetClosestPointOn(x, y, z)
20			T = retv(3)
21			End Sub
22			End Class