圆周阵列 简单问题 困扰多日 达人解惑！

bankluqi1228

建立一个很简单的渐开线圆柱齿轮参数化模型。
宏命令代码：
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+VB6.0
困扰多日，真心求助！

uufeng

红色字体，应该是错误的位置，好像是没选中part

bankluqi1228

uufeng 发表于 2016-9-13 11:55
红色字体，应该是错误的位置，好像是没选中part

本人又做了一个简单的具有 圆周 阵列特征的零件，同样录制宏文件，但在“Part.ActivateSelectedFeature”语句仍然提示相同的错误。另外在草图中使用圆周阵列命令，其宏代码也不能利用VB生成模型。唉，头疼。