Erzeugung der Stabexzentrizitäten mit RS-COM

A seguinte macro VBA mostra a criação de duas excentricidades de barra.

1. código.vb#

'--------------------------------------------------------------------------------------------------
Sub SetEccs()
'--------------------------------------------------------------------------------------------------
Dim model As RSTAB8.model
Dim data As IModelData
Dim ecc(1) As RSTAB8.MemberEccentricity

1. 'Get interface for model
2. Set model = GetObject(, "RSTAB8.Model")
4. ' Block COM licence and program access
5. model.GetApplication.LockLicense

1. On Error GoTo e
2. ' Get interface for model data
3. Set data = model.GetModelData

1. 'Define eccentricity 1
2. ecc(0).No = 1
3. ecc(0).ReferenceSystem = LocalSystemType
4. ecc(0).Start.X = 0.01
5. ecc(0).Start.Y = 0.02
6. ecc(0).Start.Z = 0.03
7. ecc(0).End.X = -0.01
8. ecc(0).End.Y = -0.02
9. ecc(0).End.Z = -0.03
10. ecc(0).Comment = "eccentricity 1"
12. 'Define eccentricity 2
13. ecc(1).No = 2
14. ecc(1).ReferenceSystem = GlobalSystemType
15. ecc(1).Start.X = -0.07
16. ecc(1).Start.Y = -0.08
17. ecc(1).Start.Z = -0.09
18. ecc(1).End.X = 0.07
19. ecc(1).End.Y = 0.08
20. ecc(1).End.Z = 0.09
21. ecc(1).Comment = "eccentricity 2"
23. 'Transfer member eccentricities
24. data.PrepareModification
25. data.SetMemberEccentricities ecc

e: data.FinishModification

1. If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
2. Set data = Nothing
3. ' COM licence is unlocked, program access possible again
4. model.GetApplication.UnlockLicense
5. Set model = Nothing

End Sub
#/code#

FAQ

[PT] FAQ 004564 | Como é que posso criar excentricidades de barras no RS-COM?

Excentricidades de barra criadas através de uma macro