求一个完整的长方体solidworks二次开发程序,修改过的,可以改变长方体长...答:Set swApp = CreateObject("SldWorks.application")Set Part = swApp.NewPart()boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)Part.SketchManager.InsertSketch True Dim vSkLines As Variant a = Txt1.Text b = Txt2.Text c = Txt3....