| Revision: | 40 |
| Committed: | Mon Aug 20 21:30:28 2007 UTC (18 years ago) by bournival |
| File size: | 433 byte(s) |
| Log Message: | Projet de these de Sylvain Bournival. Attention projet VB. |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | bournival | 40 | Public Class InterPoutrePoutre |
| 2 | Inherits InterAreteArete | ||
| 3 | |||
| 4 | Public x As Double | ||
| 5 | Public y As Double | ||
| 6 | Public z As Double | ||
| 7 | Public T As Double | ||
| 8 | Public Arete As SldWorks.Edge | ||
| 9 | |||
| 10 | |||
| 11 | |||
| 12 | ' point d'intersection entre poutres | ||
| 13 | Public Sub CalculT() | ||
| 14 | Dim retv As Object ' mettre les valeurs de T dans la classe | ||
| 15 | retv = Arete.GetClosestPointOn(x, y, z) | ||
| 16 | T = retv(3) | ||
| 17 | End Sub | ||
| 18 | End Class |