Sub GetCountOfSheets(O)
set Obj = O
set Files = Obj.Files
Dim AcadApp, Docs, Doc, Path, CounSheet, CountFile
CountSheet = 0
CountFile = 0
on error resume next
set AcadApp = GetObject(,"AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
End If
AcadApp.Visible = False
'Set AcadApp = GetObject(,"AutoCAD.Application")
'Set AcadApp = CreateObject("AutoCAD.Application")
Set Docs = AcadApp.Documents
'file.CheckOut file.WorkFileName
Obj.CheckOut
for each file in Files
if Right(file.WorkFileName, 4) = ".dwg" then
CountFile = CountFile + 1
path = file.WorkFileName
set Doc = Docs.Open(path)
CountSheet = CountSheet + Doc.Layouts.Count
Doc = nothing
end if
next
AcadApp.Visible = False
Obj.Attributes("ATTR_SHEET_COUNT_FACT").Value = CountSheet - CountFile
AcadApp.Quit
end sub