Help! problème avec macro...

[Kapanen]

J'aimerais que quelqu'un m'aide pour que ma macro soit capable de convertir les unitées. J'ai essayé mais ça fonctionne pas tout a fais. Lorsque j'active la macro mes unités se convertissent seulement si j'ouvre la fenêtre 'Tool_Options_Paramêters and Measure' et le problème est la!! Je veux justement éviter de passer par le menu.

 

Je suis pas super doué pour la programmation mais au moins j'ai essayé, en passant par l'enregistrement de macro.

 

Merci pour votre aide

 

Sam

 

--------------------------------------------------------------------------- --------------------------------------------------------------------------< br /> Language="VBSCRIPT"

 

Sub CATMain()

 

Dim settingControllers1 As SettingControllers

Set settingControllers1 = CATIA.SettingControllers

 

Dim unitsSheetSettingAtt1 As SettingController

Set unitsSheetSettingAtt1 = settingControllers1.Item("CATLieUnitsSheetSettingCtrl")

 

Dim bSTR1 As String

bSTR1 = "LENGTH"

Dim bSTR2 As String

bSTR2 = ""

Dim double1 As Double

Dim double2 As Double

unitsSheetSettingAtt1.GetMagnitudeValues bSTR1, bSTR2, double1, double2

 

Dim bSTR3 As String

bSTR3 = "LENGTH"

Dim bSTR4 As String

bSTR4 = ""

Dim double3 As Double

Dim double4 As Double

unitsSheetSettingAtt1.GetMagnitudeValues bSTR3, bSTR4, double3, double4

 

Dim bSTR5 As String

bSTR5 = "LENGTH"

Dim bSTR6 As String

bSTR6 = "Inch"

unitsSheetSettingAtt1.SetMagnitudeValues bSTR5, bSTR6, 3.000000, 3.000000

 

unitsSheetSettingAtt1.SaveRepositoryForUnits

 

unitsSheetSettingAtt1.CommitForUnits

 

End Sub

 

[Edité le 30/5/2007 par Kapanen]