오늘 수정한 도면만 검색하기
Sub TodayDrawingSearch()
Dim oSearchSrv As PLMSearchService
Set oSearchSrv = CATIA.GetSessionService("PLMSearch")
Dim oPLMSearches As PLMSearches
Set oPLMSearches = oSearchSrv.Searches
Dim oPLMSearch As PLMSearch
Set oPLMSearch = oPLMSearches.Add
oPLMSearch.Type = "Drawing"
Dim oToday As String
oToday = VBA.Mid(Date, 6, 2) & "/" & VBA.Right(Date, 2) & "/" & VBA.Left(Date, 4)
oPLMSearch.AddAttributeCriteria "C_modified", oToday
oPLMSearch.Search
Dim oPLMEntities As PLMEntities
Set oPLMEntities = oPLMSearch.EditedContent
End Sub