lDoc2swApp As SldWorks.SldWorksmain () swApp=Application.SldWorksswModel=swApp.OpenDoc2 ("d: Навчання
В процесі виконання Макрос Вал ведущій.sldprt" , 1, False, False, False, 0) Param (1 To 8) As Single
'діаметр валу (1)=swModel.Parameter («D1 @ Ескіз1»). SystemValue.TextBox2.Text=CStr (Param (1) * 1000)
'довга валу (2)=swModel.Parameter («D1 @ Бобишка-Витянуть1»). SystemValue.TextBox3.Text=CStr (Param (2) * 1000)
'ширина хрестовини (3)=swModel.Parameter («D1 @ Ескіз2»). SystemValue.TextBox4.Text=CStr (Param (3) * 1000)
'довга хрестовини (4)=swModel.Parameter («D1 @ Бобишка-Витянуть2»). SystemValue.TextBox5.Text=CStr (Param (4) * 1000)
'радіус вирізу під кульку (5)=swModel.Parameter («D1 @ Ескіз3»). SystemValue.TextBox6.Text=CStr (Param (5) * 1000)
'фаска1 (7)=swModel.Parameter («D1 @ Фаска1»). SystemValue. TextBox8.Text=CStr (Param (7) * 1000)
«фаска2 (8)=swModel.Parameter (« D1 @ Фаска2 »). SystemValue.TextBox9.Text=CStr (Param (8) * 1000). Show» відображення форми на екранSub
кнопка № 1Sub CommandButton1_Click (). Parameter («D1 @ Ескіз1»). SystemValue=CSng (TextBox2.Text) / 1000.Parameter («D1 @ Бобишка-Витянуть1»). SystemValue =CSng (TextBox3.Text) / 1000.Parameter («D1 @ Ескіз2»). SystemValue=CSng (TextBox4.Text) / 1000.Parameter («D1 @ Бобишка-Витянуть2»). SystemValue=CSng (TextBox5.Text ) / 1000.Parameter («D1 @ Ескіз3»). SystemValue=CSng (TextBox6.Text) / 1000.Parameter («D1 @ Фаска1»). SystemValue=CSng (TextBox8.Text) / 1000.Parameter (« D1 @ Фаска2 »). SystemValue=CSng (TextBox9.Text) / 1000.ForceRebuild3 (True) Sub
кнопка № 2Sub CommandButton2_Click () swModel1=swApp.OpenDoc2 («d: Навчання В процесі виконання Макрос Вал ведущій.SLDDRW», 3, False, False, False, 0) . ForceRebuild3 (True) Sub
