VBA2 폴더 찾아오기 CATIA Automation VBA CATIA Automation 작성 시 폴더를 선택하는 창을 지정할 경우가 있다.그 창을 띄우는 코드는 아래와 같이 작성하면 쉽게 띄울 수 있다. Private Sub CommandButtonGetPLTFolder_Click() Dim oShell Dim oFolder Dim oFolderItem On Error Resume Next Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(0, "PLT를 저장할 폴더를 선택하세요.", 0) If Not oFolder Is Nothing Then Set oFolderItem = oFolder.Items.Item Me.TextBoxPLTFolder.Text = oF.. 2016. 2. 12. CATIA V5와 V6 VBA 주요 변경 부분 CATIA V5 VBA를 대부분 적용 가능하나 몇몇 부분 수정이 필요하다. 그 중 필수적으로 변경되는 부분을 정리하였다. 아직 V6 VBA 함수가 부족한 부분이 많은 것 같다. Active Docuemnt 가져오기 V5 Dim drawingDocument1 As DrawingDocument Set drawingDocument1 = CATIA.ActiveDocument V6 Dim oDrawingRoot As DrawingRoot Set oDrawingRoot = CATIA.ActiveEditor.ActiveObject Selection 방법 V5 Set selection1 = drawingDocument1.Selection V6 Set Selection = CATIA.ActiveEditor.Selecti.. 2015. 6. 5. 이전 1 다음
