макрос

[Leon 433]

Помогите кто может. Хочу с помощью макроса на VB изменить плотность детали.

Пробовал с помощью такой штуки

Part.SetUserPreferenceDoubleValue swMaterialPropertyDensity, 2700

плотность не изменилась

[Rich 35]

У меня эта функция работает. Попробуй после нее получить массовые свойства с помощью Part.GetMassProperties(). Посмотри результат (5 элемент массива).

[Leon 433]

Спасибо за ответ, Rich. Получить свойства у меня тоже не вышло, но возможно я что-то сделал не то. С установкой же плотности мой макрос в простейшем случае выглядел так, я записал его проделывая изменения плотности в солиде:

Dim swApp As Object

Dim Part As Object

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Part.SetUserPreferenceDoubleValue swMaterialPropertyDensity, 2000

End Sub

И он не работает

[Rich 35]

Вот часть моего макроса. скажем он более глобальный и это только часть. Если интересно пиши на мыло, отвечу. У меня тоже есть один вопросик по тестированию

Set swApp = CreateObject("SldWorks.Application")

Set Part = swApp.ActiveDoc

Dim massa1 As Variant

Part.SetUserPreferenceDoubleValue swMaterialPropertyDensity, 1200

massa1 = Part.GetMassProperties()

MassaKG = massa1(5)

[shurshik 14]

Возможно и совсем не в тему, но установленное антивирусное ПО может припятствовать выполнению макроса (например тот же Касперский...).....

[Leon 433]

Увы мне, ничего не помогает. Свойства я получил, но изменить плотность не могу. А в твоем макросе, Rich, строчка

Part.SetUserPreferenceDoubleValue swMaterialPropertyDensity, ххх

работает?

Да, и антивирусник в данном случае не причем. Биде какое-то... Но все равно, ребята спасибо за поддержку

[Rich 35]

Leon ты сообщи свой ящик пообщаемся

[Leon 433]

leon@goldenmail.ru