올려주신 코드에는 변수 설정이 빠져 있는데, 임시 변수 붙여서 테스트하면 Round 쪽은 잘 나옵니다.
Measure.ExtentsLength → aaa
Measure.ExtentsWidth → bbb
Measure.ExtentsHeight → ccc
Dim aaa, bbb, ccc As Double
aaa = 1.2345
bbb = 2.3456
ccc = 3.4567
temp = Round(MaxOfMany(aaa, bbb, ccc), 1) & "x" & Round(aaa + bbb + ccc - MaxOfMany(aaa, bbb, ccc) - MinOfMany(aaa, bbb, ccc), 1) & "x" & Round(MinOfMany(aaa, bbb, ccc), 1)
MessageBox.Show(temp, "Title")
MessageBox.Show(TypeName(temp), "Title")
다른 코드가 더 없어서, 확인 가능한 정도는 이 정도입니다.
CAM-Fusion 360/Inventor
CAD-Fusion 360/Inventor
Before PowerMILL