Solidworks的小插件(链条设计.swp) 运行宏发生错误: 运行时错误'91' 对象变量或With块于洪臣量未设置

Question

代码很长,里面也有很多注悉中文,下面截取了部份片段代码: 图片中貌似是黄色部分有问题,不知道除了这里还有没有其他错误...'开始'销Set swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerPart.SetAddToDB True '放弃捕获开始boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)Part.SketchManager.InsertSketch TruePart.ClearSelection2 TrueDim c_xa1 As DoubleDim c_ya1 As DoubleDim c_xa2 As DoubleDim c_ya2 As DoubleDim c_xb1 As DoubleDim c_yb1 As DoubleDim c_xb2 As DoubleDim c_yb2 As DoubleDim c_x1 As DoubleDim c_y1 As DoubleDim c_x2 As DoubleDim c_y2 As DoubleDim rr15 As DoubleDim rr16 As DoubleDim SkCircle As Objectrr15 = rr1 / 2rr16 = rr2 / 2'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA草图开始1c_xa1 = Cos(rr15 * pi / 180) * (mmm1 / 2)c_ya1 = Sin(rr15 * pi / 180) * (mmm1 / 2)c_xa2 = Cos(rr15 * pi / 180) * (mmm1 / 2) + q_d2 / 2c_ya2 = Sin(rr15 * pi / 180) * (mmm1 / 2)c_xb1 = Cos(rr16 * pi / 180) * (mmm2 / 2)c_yb1 = Sin(rr16 * pi / 180) * (mmm2 / 2)c_xb2 = Cos(rr16 * pi / 180) * (mmm2 / 2) + q_d2 / 2c_yb2 = Sin(rr16 * pi / 180) * (mmm2 / 2)'固定圆点2点Set SkCircle = Part.SketchManager.CreateCircle(-c_xa1, c_ya1, 0, -c_xa2, c_ya2, 0)Set SkCircle = Part.SketchManager.CreateCircle(-c_xa1, -c_ya1, 0, -c_xa2, -c_ya2, 0)Part.ClearSelection2 TrueSet SkCircle = Part.SketchManager.CreateCircle(c_xb1 + z3, c_yb1, 0, c_xb2 + z3, c_yb2, 0)Set SkCircle = Part.SketchManager.CreateCircle(c_xb1 + z3, -c_yb1, 0, c_xb2 + z3, -c_yb2, 0) '小弧 段圆心点Dim ff As IntegerDim fft As IntegerDim fft2 As IntegerDim rr4 As DoubleDim rr5 As Doublerr1 = 360 / z1 '小节角度,,,初始化rr4 = rr1 '过渡fft = ((mmm13 - 2) / 2) '每边点数 For ff = 0 To fft - 1c_x1 = Cos((rr1 + rr15) * pi / 180) * (mmm1 / 2)c_y1 = Sin((rr1 + rr15) * pi / 180) * (mmm1 / 2)c_x2 = Cos((rr1 + rr15) * pi / 180) * (mmm1 / 2) + q_d2 / 2c_y2 = Sin((rr1 + rr15) * pi / 180) * (mmm1 / 2) Set SkCircle = Part.SketchManager.CreateCircle(-c_x1, c_y1, 0, -c_x2, c_y2, 0)Part.ClearSelection2 True Set SkCircle = Part.SketchManager.CreateCircle(-c_x1, -c_y1, 0, -c_x2, -c_y2, 0)Part.ClearSelection2 True rr1 = rr1 + rr4Next'大弧 段圆心点rr5 = rr2 '过渡fft2 = ((mmm14 - 2) / 2) '每边点数Dim c_x3 As DoubleDim c_y3 As DoubleDim c_x4 As DoubleDim c_y4 As Double For ff = 0 To fft2 - 1

Answer 1

你没有设置文件默认模板，在 菜单 工具-选项-系统选项-默认模板页面里指定默认的零件及组件图模板就好了，我刚刚试过

Answer 2

关键打开方式：运行SW ，建立一新零件， 工具 / 宏 / 运行 / 链条设计.swp 文件。即可生成！ 以前我也直接拖进去，老是报这种错误。

Answer 3

我把整个文章发过来.追问

请问你邮箱是多少呀？