Macro_Присвоение для 1 переменной n-значений

[Donnii 0]

Добрый день, помогите пожалуйста разобрать  и сделать макрос.

Макрос и профиль в 2д ниже. Макрос был скачан и изменен.

1 ошибка я так понимаю в Private Sub UserForm_Activate() - он не должен повторяться

2 курьез это в  Part.ClearSelection2 True
                        Part.DeleteAllRelations

Т.е. каждый раз он удаляет все значения всех переменных, возможно ли обойти это как то при помощи Part.Recordset... или как то иначе

3. стоит ли задавать саму переменную к примеру Dim D As String?

Сам макрос:

 

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Private Sub ComboBox1_Change()
End Sub

Private Sub ComboBox2_Change()
End Sub

Private Sub ComboBox3_Change()
End Sub

Private Sub CommandButton1_Click()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
Part.DeleteAllRelations
Part.AddRelation """D""= " & ComboBox1.Value
End Sub

Private Sub CommandButton2_Click()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
Part.DeleteAllRelations
Part.AddRelation """A""= " & ComboBox2.Value
End Sub

Private Sub CommandButton3_Click()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
Part.DeleteAllRelations
Part.AddRelation """B""= " & ComboBox3.Value
End Sub

Private Sub Label1_Click()
End Sub

Private Sub Label2_Click()
End Sub

Private Sub Label3_Click()
End Sub
'1=D
Private Sub UserForm_Initialize()
Me!ComboBox1.AddItem 253.2
Me!ComboBox1.AddItem 304
Me!ComboBox1.AddItem 329.4
End Sub

'2=A
Private Sub UserForm_Activate()
Me!ComboBox2.AddItem 76
Me!ComboBox2.AddItem 89
Me!ComboBox2.AddItem 101.5
Me!ComboBox2.AddItem 114.5
Me!ComboBox2.AddItem 127
End Sub

'3= B
Private Sub UserForm_Activate()
Me!ComboBox3.AddItem 10
Me!ComboBox3.AddItem 11
Me!ComboBox3.AddItem 12
End Sub

 

Заранее спасибо!

 

 

macric.rar

[Kelny 1 236]

1 ошибка я так понимаю в Private Sub UserForm_Activate() - он не должен повторяться

Объединить оба в один исключив строчки закрытия первого и началом второго.

 

2 курьез это в Part.ClearSelection2 True

Это снимает все выделения.

 

Part.DeleteAllRelations Т.е. каждый раз он удаляет все значения всех переменных, возможно ли обойти это как то при помощи Part.Recordset... или как то иначе

Ну если удаление не требуется, то удалить эту строчку или закомментить поставив одиночную кавычку в начале строки.

Если требуется удаление некоторых, то вероятно использовать DeleteRelation из SketchRelationManager.

Изменено 12 октября 2016 пользователем Kelny

[Donnii 0]

Объединить оба в один исключив строчки закрытия первого и началом второго.

 

Это снимает все выделения.

 

Ну если удаление не требуется, то удалить эту строчку или закомментить поставив одиночную кавычку в начале строки.

Если требуется удаление некоторых, то вероятно использовать DeleteRelation из SketchRelationManager.

Спасибо, на счет 1 пункта, исправил..

На счет второго c DeleteRelation нужна помощь в верху я  добавил:

 

Dim RelMgr As SketchRelationManager

Dim mySketch As Sketch

 

Private Sub CommandButton1_Click()

Set swApp = Application.SldWorks

'ниже

Set Part = swApp.ActiveDoc

Part.ClearSelection2 True

Set RelMgr = mySketch.RelationManager

RelMgr.DeleteRelation """D""= "

Part.AddRelation """D""= " & ComboBox1.Value

End Sub

[Kelny 1 236]

На счет второго c DeleteRelation нужна помощь

Может примеры в справке глянуть? http://help.solidworks.com/SearchEx.aspx?q=SketchRelation+Example&sort=&version=2010〈=english∏=api

[Donnii 0]

Как добавить уравнение при помощи макроса : http://xistol.com/archives/324

[streamdown 1 565]

Как добавить

 для полноты понимания, я б всё же указывал ссылки на справку на интерфейсы, методы, свойства. Есть много разных мест, где есть Remark, который обязателен к прочтению перед применением.