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]

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é. Merci pour votre aide Sam ----------------------------------------------------------------------------------------------------------------------------------------------------- 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]