iCAx开思网

标题: 求助vb 二次开发 [打印本页]

作者: kingxqx 时间: 2011-2-23 18:23
标题: 求助vb 二次开发
Private Sub Command1_Click()

Dim swapp As Object
Dim part As Object
Dim boolstatus As Boolean
'定义接口
Set swapp = CreateObject("SldWorks.Application")
Set part = swapp.NewPart()
swapp.Visible = True
'获取solidworks软件接口并新建一个零件文件
part.InsertSketch2 True
boolstatus = part.Extension.SelectByID("前视", "PLANE", 0, 0, 0, False, 0, Nothing)
part.InsertSketch2 True
part.CreateCircle 0, 0, 0, 0, Val(R.Text) / 10005, 0
part.ShowNamedView2 "*上下二等角轴测", 8
part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, Val(H.Text) / 1000, 0.01, False, False, False, False, 0, 0, False, False, False, False, 1, 1, 1
'建立模型
End Sub
红色处出现“实时错误424 要求对象”
求解答

欢迎光临 iCAx开思网 (https://www.icax.org/)