Option Explicit Sub CATMain() Dim oDoc Set oDoc = CATIA.Documents Dim oDrawingDoc As DrawingDocument On Error Resume Next Err.Clear Set oDrawingDoc = CATIA.Documents.Item("Drawing1.CATDrawing") If Err.Number <> 0 Then Set oDrawingDoc = oDoc.Add("Drawing") End If Dim windows1 As Windows Dim specsAndGeomWindow1 As SpecsAndGeomWindow Dim specsAndGeomWindow2 As SpecsAndGeomWindow Set windows1 = CATIA.Windows Set specsAndGeomWindow1 = windows1.Item(1) Set specsAndGeomWindow2 = windows1.Item("Drawing1") Dim oDSheets As DrawingSheets Set oDSheets = oDrawingDoc.Sheets Dim oDSheet As DrawingSheet Set oDShe...
항공우주공학졸업후 프로그래밍에 관심이 생겨 K-MOVE를 통해 일본에 현재 취업해있는(20190617) 새내기프로그래머입니다.