Плагин изменения свойств Inventor

[eliasum]

Здравствуйте. А есть уже созданный плагин для изменения свойств Inventor? Например я хочу, чтобы при изменении файла детали формировалось свойство "Дата и время изменения" и менялось его значение на соответствующее.

[Александр Ривилис]

eliasum,
В этом разделе не ищут готовые плагины, а задают вопросы, которые возникают при создании плагинов.

[eliasum]

извините, а есть соответствующий раздел?

[Александр Ривилис]

извините, а есть соответствующий раздел?

На нашем форуме есть два варианта работы:
1. Вы программируете, но вам нужна помощь в создании программы. В этом случае вы выкладываете свой код и просите помощи.
2. Вы не программируете и тогда вы можете заказать работу у программистов в этом разделе: http://adn-cis.org/forum/index.php?board=38.0
Возможно кто-то откликнется.

[eliasum]

понял, спасибо!

[eliasum]

Александр, я только сегодня занялся этим вопросом. Буду сам писать плагин. Но не знаю с чего начать. Можете направить, что нужно для написания плагина, куда копать первоначально?

[Александр Ривилис]

Но не знаю с чего начать. Можете направить, что нужно для написания плагина, куда копать первоначально?

Создание и отладка AddIn для Inventor

[eliasum]

Хорошо

[mikazakov]

Буду сам писать плагин. Но не знаю с чего начать. Можете направить, что нужно для написания плагина, куда копать первоначально?

Ну собственно хэлп можно почитать, там есть примеры. Тема свойств в инвенторе достаточно простая, так что стоит почитать хэлп.
Вот пример из хэлпа, для работы требуется активная модель детали:

Код - Visual Basic [Выбрать]

1. Public Sub UpdateVolume()
2.     ' Get the active part document.
3.    Dim invPartDoc As PartDocument
4.     Set invPartDoc = ThisApplication.ActiveDocument
5.  
6.     ' Get the volume of the part. This will be returned in
7.    ' cubic centimeters.
8.    Dim dVolume As Double
9.     dVolume = invPartDoc.ComponentDefinition.MassProperties.Volume
10.  
11.     ' Get the UnitsOfMeasure object which is used to do unit conversions.
12.    Dim oUOM As UnitsOfMeasure
13.     Set oUOM = invPartDoc.UnitsOfMeasure
14.  
15.     ' Convert the volume to the current document units.
16.    Dim strVolume As String
17.     strVolume = oUOM.GetStringFromValue(dVolume, oUOM.GetStringFromType(oUOM.LengthUnits) & "^3")
18.  
19.     ' Get the custom property set.
20.    Dim invCustomPropertySet As PropertySet
21.     Set invCustomPropertySet = invPartDoc.PropertySets.Item("Inventor User Defined Properties")
22.  
23.     ' Attempt to get an existing custom property named "Volume".
24.    On Error Resume Next
25.     Dim invVolumeProperty As Property
26.     Set invVolumeProperty = invCustomPropertySet.Item("Volume")
27.     If Err.Number <> 0 Then
28.         ' Failed to get the property, which means it doesn't exist
29.        ' so we'll create it.
30.        Call invCustomPropertySet.Add(strVolume, "Volume")
31.     Else
32.         ' Got the property so update the value.
33.        invVolumeProperty.value = strVolume
34.     End If
35. End Sub
36.  

[eliasum]

mikazakov, спасибо, буду разбираться!