Inventor 도면에서 필요에 의해 여러 조립품의 BOM을 한 시트에 표현하는 경우가 있습니다. 하나의 BOM을 엑셀로 출력하는 것은 기본 Inventor 기능으로 적용할 수 있으나 BOM이 다수 존재할 경우에는 별도로 하나씩 출력한 후 시트를 합쳐주어야하는 번거로움이 있습니다.

이 경우에는 첨부된 규칙을 실행하여 해당 문제를 해결할 수 있습니다.
규칙을 실행하는 방법은 아래와 같습니다.

1. Inventor 모형 탭에서 ilogic 탭 추가
2. 외부 규칙 탭 활성
3. 외부 규칙 폴더 내에 첨부 파일 추가
4. 목록에 추가된 외부 규칙 실행

Inventor iLogic 규칙

Dim oDrawDoc As DrawingDocument = ThisDrawing.Document’ED&C
Dim oSheets As Sheet = oDrawDoc.ActiveSheet’ED&C
Dim fileName = ThisDoc.PathAndFileName(False) & ".xlsx"’ED&C

If (IO.File.Exists(fileName)) Then’ED&C
Dim result = MessageBox.Show("파일이 이미 존재합니다. " & vbCr & vbCr & fileName & vbCr & vbCr & "기존 파일을 덮어씌우겠습니까??", "File Exists", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)’ED&C
If result = vbYes Then’ED&C
IO.File.Delete(fileName)’ED&C
Else’ED&C
Exit Sub’ED&C
End If’ED&C
Else’ED&C
End If’ED&C

Dim startRow = 1’ED&C
Dim includeTitle = True’ED&C
Dim PartsListNumber = 1’ED&C
Dim oPartslist As PartsList’ED&C
For Each oPartslist In oSheets.PartsLists ‘ED&C
ThisApplication.StatusBarText = "기다려주세요." ‘이디앤씨
Dim oOptions = ThisApplication.TransientObjects.CreateNameValueMap’
oOptions.Value("StartingCell") = "A" & startRow’
oOptions.Value("TableName") = "PartsList-" & PartsListNumber’
oOptions.Value("IncludeTitle") = False’이디앤씨
oOptions.Value("AutoFitColumnWidth") = True’
oPartslist.Export(fileName, PartsListFileFormatEnum.kMicrosoftExcel, oOptions)’
PartsListNumber = PartsListNumber + 1′
Next
Dim Complete = MessageBox.Show("엑셀 파일로 저장을 마쳤습니다." & vbCr & vbCr & fileName & vbCr & vbCr _
& "저장된 엑셀 파일을 열어보시겠습니까?", "Part List Export", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)’
If Complete = vbYes Then’
ThisDoc.Launch(fileName)’
Else’
Return’
End If’

위의 방법을 통해 적용이 어려우실 경우 ED&C 지원 문의처에 메일로 문의 주시기 바랍니다.
감사합니다.