|
经典图书 在vba里运行着没有问题啊,怎么到vb里就不行了呢
图片不清楚代码如下
Dim swApp As Object
Dim swPart As Object
Dim boolstatus As Boolean
Dim warning As Long
Dim error As Long
Private Sub Command1_Click()
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
Set swPart = swApp.OpenDoc6("Cocuments and SettingsAll UsersApplication DataSolidWorksSolidWorks 2012templates零件.prtdot", swDocPART, swOpenDocOptions_Silent, "", error, warning)
Set swPart = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("前视基准面", "LANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ShowNamedView2 "*正视于", 0
Part.ClearSelection2 True
Dim vSkLines As Variant
vSkLines = Part.SketchManager.CreateCornerRectangle(0, 0, 0, 8.62425012410598E-02, 0.049498336979904, 0)
Part.SetPickMode
Part.ClearSelection2 True
Part.ShowNamedView2 "*上下二等角轴测", 8
Part.ClearSelection2 True
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
End Sub
2013-3-20 00:56:08 上传
下载次数: 3
|
|