안녕하세요.
오랜만에 글을 올리네요..
차주 행사에 참석을 못하게 되서 아쉽네요.
최근에 저굥한 내용 같이 공유 드립니다
Inventor 사용 기능 중에 곧 패치가 될 내용이지만 다른 부품의 매개변수 중에 텍스트 형식의 매개변수를
끌어와 작업하다보면 간혹 모델링 부터 매개변수까지 적용이 안될때가 있습니다.
곧 오토데스크에서 패치가 나온다고 하는데 시간이 좀 걸리네요.
저 같은 경우에는 해당 텍스트 매개변수를 가져와서 iProperties에 적용을 많이 합니다.
하지만 오류로 인해 문제가 많이 되어 하기 코드처럼 매개변수 링크를 사용하지 않고 같은 폴더 내의 부품을 찾아
원하는 텍스트 매개변수를 가져오는 로직 구문을 사용하게 되었네요..
활용해 보세요~
-----------------------------------------------------------------------------------------------------------
Sub Main()
' 현재 문서
Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument
' Layout.ipt 파일의 경로를 설정
Dim layoutFilePath As String
layoutFilePath = System.IO.Path.GetDirectoryName(oDoc.FullFileName) & "\Layout.ipt"
' Layout.ipt 파일이 존재하는지 확인
If System.IO.File.Exists(layoutFilePath) Then
' Layout.ipt 파일열기
Dim layoutDoc As Document
layoutDoc = ThisApplication.Documents.Open(layoutFilePath, False)
Dim paramName As String
paramName = "width" ' 매개 변수
' 매개변수가 존재하는지 확인하고 값을 가져온다.
Try
Dim paramValue As Object
paramValue = layoutDoc.ComponentDefinition.Parameters.Item(paramName).Value
' 매개변수 값을 출력합니다.
MsgBox("매개변수 " & paramName & "의 값은 " & paramValue & "입니다.")
Catch ex As Exception
MsgBox("매개변수 " & paramName & "이(가) Layout.ipt 파일에 존재하지 않습니다.")
End Try
layoutDoc.Close(True)
Else
MsgBox("Layout.ipt 파일이 존재하지 않습니다.")
End If
End Sub
줌인테크 Techanical Support Engineer
