VBA

haohao123

Dim swApp As Object Dim Part As Object Private Sub Command1_Click() Set swApp = CreateObject("SldWorks.Application") swApp.Visible (True) Set Part = swApp.OpenDoc("D:\挡圈.SLDPRT", swDocPART) Set Part = swApp.ActivateDoc("档圈. sldprt") Part.Parameter("D1@草图1").System Value = Val(wj.Text) Part.Parameter("D2@草图1").SystemValue = Val(Text3.Text) Part.Parameter("凸台拉伸@草图1").SystemValue = Val(Text2.Text) Part.EditRebuild Part.Save End Sub 在VB中编程怎么总提示对象变量或 with 块变量没有设置 错误 91 主要是绿色的这三句有问题

小鱼爱吃肉

表示不懂......