Page 91 - 6735
P. 91

Set Part = swApp.ActivateDoc("ПСВ.SLDASM")
               End If
               'початкові параметри елементів діалогового вікна
               TextBox1.Text = "D1@Угол2"
               TextBox5.Text = "RD1@Примечания"
               OptionButton1.Value = True
               TextBox2.Text = "0"
               TextBox3.Text = "1"
               TextBox4.Text = "0,1"
           End Sub
           'Натиснута кнопка CommandButton1
           Private Sub CommandButton1_Click()
           'якщо включений перемикач OptionButton1, то p_form
            If OptionButton1.Value = True Then p_form
           'якщо включений перемикач OptionButton2, то p_tabl
            If OptionButton2.Value = True Then p_tabl
           End Sub
           'Процедура виконує табулювання кінематичних параметрів для
           заданих у формі параметрів переміщень
           Private Sub p_form()
           Dim p1, p2 As String
               Dim xp, xk, xd As Double
               i = 3 'початкове значення лічильника
               'отримати дані з текстових полів
               p1 = TextBox1.Text
               p2 = TextBox5.Text
               xp = CDbl(TextBox2.Text)
               xk = CDbl(TextBox3.Text)
               xd = CDbl(TextBox4.Text)
               'очистити діапазон
               Range("b3:b1000").Clear
               Range("e3:e1000").Clear
               'зміна значень параметрів
               For x = xp To xk Step xd
               Part.Parameter(p1).SystemValue = x
               Part.EditRebuild 'Перебудова моделі
               'Виведення значень параметрів у відповідні комірки

                                          91
   86   87   88   89   90   91   92   93   94   95   96