圆周阵列问题求助！

895047059 · 发表于 2016-10-9 00:34:10

经典图书

建立一个很简单的渐开线圆柱齿轮参数化模型。
宏命令代码：
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("凸台-拉伸1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing, 0)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID2("基准轴1", "AXIS", 0, 0, 0, True, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("凸台-拉伸1", "BODYFEATURE", 0, 0, 0, False, 4, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("基准轴1", "AXIS", 0, 0, 0, True, 1, Nothing, 0)
Set myFeature = Part.FeatureManager.FeatureCircularPattern4(z2, 2 * pi / z2, False, "NULL", False)
以上代码在VB环境下运行时，红色行提示错误。solidworks2014
困扰多日，真心求助！

chenai88 · 发表于 2016-10-19 21:21:24

solidworks论坛，顶一下。

design100 · 发表于 2016-10-21 16:21:04

经典图书

我试了一下是可以的,
开一个新的零件图，然后复制下面程序至VBA运行试试！
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("前视", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(-0.002894, 0.041546, 0#, -0.001163, 0.036699, 0#)
Part.ShowNamedView2 "*上下二等角轴测", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.02, 0.001, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
boolstatus = Part.Extension.SelectByID2("上视", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("右视", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.InsertAxis2(True)
boolstatus = Part.Extension.SelectByID2("Extrude1", "SOLIDBODY", -5.65876194752946E-03, 4.55279920317935E-02, 1.54580640145241E-02, True, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Axis1", "AXIS", 0, 0, 0, False, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Extrude1", "SOLIDBODY", -5.65876194752946E-03, 4.55279920317935E-02, 1.54580640145241E-02, True, 256, Nothing, 0)
Set myFeature = Part.FeatureManager.FeatureCircularPattern4(12, 6.2831853071796, False, "NULL", False, True, False)
Part.ShowNamedView2 "*上下二等角轴测", 8
End Sub

		自动登录	找回密码
密码			立即注册

圆周阵列问题求助！

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献