| 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. |
| # | Content |
|---|---|
| 1 | 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 |