Inventor 2024.2 버전의 부품 리스트 기능

[손광호]

Inventor 2024.2 업데이트에 유용한 기능이 들어왔습니다.

도면 부품 리스트에서 해당 행에서 바로 모델링을 오픈 할 수 있는 기능입니다.

하지만 하위 버전을 사용하시던 분들은 업데이트 이후 당황스러운 경우가 있습니다.

이전 버전에 해당 부품 리스트를 자유롭게 이동하면 기능이 2020.2를 업데이트 이후 이동하기가 쉽지 않습니다.

부품 리스트 행에서는 이동이 불가능 하고 대신 상단 제목 칸에서는 이동이 가능합니다.

- 일부 고객 사에서는 부품 리스트의 제목이 불필요해서 체크를 풀고 사용하는 경우에는 이동이 불가능 합니다.

   이런 경우에는 임시방편으로 제목을 활성화 후 이동을 합니다.

   하지만 위치 맞추기가 쉽진 않네요.

- Autodesk 에서 좋은 기능이 나왔지만 개선이 되길 바랍니다.~ 부품 리스트 사용하시는 유저 분들 참고해 주세요~

[daeun_jun]

유용한 팁 감사드립니다~ 부품을 이렇게 정리할 수 있군요!

[doohyun.kimRP8YD]

마침 부품 리스트의 위치를 조정하는 iLogic이 있어 공유 드리오니 참고하셔도 될 것 같습니다.

Dim bRight As Boolean = True      
Dim bTop As Boolean = True   

Dim oSheet As Sheet = ActiveSheet.Sheet
Dim oPartsList As PartsList = oSheet.PartsLists.Item(1)
oPartsList.WrapLeft = bRight

Dim oBorderBox2d As Box2d = oSheet.Border.RangeBox
Dim oPartsListBox2d As Box2d  = oPartsList.RangeBox

Dim dX As Double = 0
If bRight = True Then
	dX = oBorderBox2d.MaxPoint.X
Else
	dX = oBorderBox2d.MinPoint.X
End If

Dim dY As Double = 0
If bTop = True Then
	dY = oBorderBox2d.MaxPoint.Y
Else
	dY = oBorderBox2d.MinPoint.Y + oPartsListBox2d.MaxPoint.Y - oPartsListBox2d.MinPoint.Y 
End If

oPartsList.Position = ThisApplication.TransientGeometry.CreatePoint2d(dX, dY)

bRight와 bTop을 변경하시면 BOM Table의 위치를 설정하실 수 있습니다.

오른 쪽 위~

왼쪽 위~

왼쪽 아래~

부품 리스트의 임의 위치 조정 등 여타 사유로 위치가 변경 되었을 때 초기화(?) 하는 기능으로 사용하시면 될 것 같습니다.

[손광호]

멋지십니다...로직으로도 가능하네요.

테스트 해볼겠습니다.

혹 우측 하단의 표제란 위로 부착은 어렵겠져?

대부분 우측 상단을 많이 사용하지만

어떤 업체들은 우측 하단의 표제란 위에 부품리스트를 부착하는 경우도 많이 있습니다.

[doohyun.kimRP8YD · Accepted solution]

원리는 동일 합니다.

아래 코드 참고 하셔요~

Dim bRight As Boolean = True
Dim bTop As Boolean = False

Dim oSheet As Sheet = ActiveSheet.Sheet
Dim oPartsList As PartsList = oSheet.PartsLists.Item(1)
oPartsList.WrapLeft = bRight

Dim oBorderBox2d As Box2d = oSheet.Border.RangeBox
Dim oPartsListBox2d As Box2d = oPartsList.RangeBox
Dim oTitleBlockBox2d As Box2d = oSheet.TitleBlock.RangeBox

Dim dX As Double = 0
If bRight = True Then
	dX = oBorderBox2d.MaxPoint.X
Else
	dX = oBorderBox2d.MinPoint.X
End If

Dim dY As Double = 0
If bTop = True Then
	dY = oBorderBox2d.MaxPoint.Y
Else
	If bRight = True Then
		dY = oBorderBox2d.MinPoint.Y + oPartsListBox2d.MaxPoint.Y - oPartsListBox2d.MinPoint.Y + oTitleBlockBox2d.MaxPoint.Y - oTitleBlockBox2d.MinPoint.Y
	Else
		dY = oBorderBox2d.MinPoint.Y + oPartsListBox2d.MaxPoint.Y - oPartsListBox2d.MinPoint.Y
	End If

End If

oPartsList.Position = ThisApplication.TransientGeometry.CreatePoint2d(dX, dY)

우측 하단~