当选择进行调试时就会出现如下情况:补一张图片
代码如下:
Const filedir As String = "C:\SolidWorks 2007 Training Files\API Fundamentals\API Training Templates\"
Dim swApp As SldWorks.SldWorksDim swModel As SldWorks.ModelDoc2
Private Sub cmdBuild_Click() Set swApp = Application.SldWorks Set swModel = swApp.NewDocument(filedir + _ "APIPart.prtdot", 0, 0#, 0#)
swModel.SetAddToDB True swModel.SetUserPreferenceIntegerValue swUnitsLinear, swMM swModel = swModel.Count 'MATERIAL If optAl.Value = True Then swModel.SetUserPreferenceDoubleValue _ SwConst.swMaterialPropertyDensity, 2700 swModel.SetUserPreferenceStringValue _ SwConst.swMaterialPropertyCrosshatchPattern, _ "ISO (Aluminum)" Else swModel.SetUserPreferenceDoubleValue _ SwConst.swMaterialPropertyDensity, 8600 swModel.SetUserPreferenceStringValue _ SwConst.swMaterialPropertyCrosshatchPattern, _ "ISO (Bronze Brass)" End If
看一下filedir路径下是否已经创建了那个模型文件,如果没有,说明NewDocument这句话本身错了。SolidWorks可以录制代码的,录制一下新建文件的整个过程,看新建文档的代码是否有问题。