본문 바로가기
카테고리 없음

3DX 오늘 수정한 도면만 Search

by fimm 2017. 4. 7.


오늘 수정한 도면만 검색하기




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