Вопрос:
iProperties.Value("Custom", "Длина") = FormatNumber ( oBox.MaxPoint.X-oBox.MinPoint.X, 0) & " mm"
iProperties.Value("Custom", "Ширина") = FormatNumber ( oBox.MaxPoint.Y-oBox.MinPoint.Y, 0) & " mm"
Этим кодом можно вытянуть размер 200 и 300.
А как достать до размеров 341 и 182 если есть скругление или фаска на детали ???
Фото: Сборка1.jpg
iProperties.Value("Custom", "Длина") = FormatNumber ( oBox.MaxPoint.X-oBox.MinPoint.X, 0) & " mm"
iProperties.Value("Custom", "Ширина") = FormatNumber ( oBox.MaxPoint.Y-oBox.MinPoint.Y, 0) & " mm"
Этим кодом можно вытянуть размер 200 и 300.
А как достать до размеров 341 и 182 если есть скругление или фаска на детали ???
Фото: Сборка1.jpg