求教SWDM获取工程图张数的VBA宏代码

dreamsboy

今天在公司时测试了一个SUB，发现这个SUB可以获取SW自带的培训文件里的工程图张数，但自建的工程图文件，不管实际是几页，获取得到的结果都是1页，不知道是怎么回事。如果说是代码有问题，那为什么获取SW自带的那工程图的张数的结果又是准确的呢？要说它是正确的，但获取的自己的文件的页数永远是1页，获取软件自带的工程图页数时也还是有问题的，比如自带的那个文件 ，初始页数是4页，这时获取结果是正确的，但是把这个图纸增加或者删除一两页后，获取的结果仍然是4页。
后面附上代码，请各位帮忙分析测试一下是什么原因？谢谢

Sub TestForSWDM()

    Dim swClassFact As SwDocumentMgr.SwDMClassFactory
    Dim docMgrApp As SwDocumentMgr.SwDMApplication
    Dim docDrw As SwDocumentMgr.SwDMDocument13
    Dim res As SwDocumentMgr.SwDmDocumentOpenError

    Set swClassFact = CreateObject("SwDocumentMgr.SwDMClassFactory")
    Set docMgrApp = swClassFact.GetApplication("your swdmkey")
    Set docDrw = docMgrApp.GetDocument("C:\Program Files\SOLIDWORKS Corp\SolidWorks\samples\tutorial\advdrawings\foodprocessor.slddrw", SwDmDocumentType.swDmDocumentDrawing, True, res)    '此为SW自带的工程图文件，初始状态获取结果是正确的。
    Dim sheetNameVar As Variant
    Dim sheetCount As Long
    sheetCount = docDrw.GetSheetCount
    sheetNameVar = docDrw.GetSheetNames

    Dim i As Integer
    For i = 0 To sheetCount - 1
      Debug.Print sheetNameVar(i)
    Next

End Sub

gt.adan

purufei

dreamsboy

dreamsboy

dreamsboy

dreamsboy

DaveChan

dreamsboy