沐风论坛

标题: VBA [打印本页]

---

作者: haohao123    时间: 2014-4-4 11:36
标题: VBA

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 主要是绿色的这三句有问题

---

作者: 小鱼爱吃肉    时间: 2014-4-4 13:21
表示不懂......

---

欢迎光临 沐风论坛 (https://bbs.mfcad.com/)

沐风网 X3.1