VBA, VB.NET For Creo315 측정 Feature의 매개변수 값 가져오기 #2 모델의 치수 값을 자동으로 변경 하여, 무게 측정 Feature의 Mass 값 가져오는 프로그램 입니다. 치수 이름 "DIM01"을 시작 값 10.5로 변경 하고, 10씩 증가 시켜 1000이 될때까지 모델을 변경 합니다 그때 자동으로 변경되는 측정 Feature의 로컬 매개 변수 값을 가져 오는 프로그램 입니다. 치수 이름은 모델에서 유니크 (unique)합니다. ▶ 소스 코드 Sub Feature_LIST2() On Error GoTo RunError ' CurrentModel 연결 Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".. 2022. 9. 15. 측정 Feature의 매개변수 값 가져오기 #1 일정 범위 값 안에 있는 Creo의 치수 값들을 자동으로 변경 할수 있습니다. 기계적으로 자동 변경된 치수값은 Creo 모델을 자동 변경 하며, 측정 Feature의 Parameter 값을 변경 합니다. Analysis > Mass Properties 기능을 사용 하여 "Gravity" Feature를 생성 합니다. ■ 측정 Feature의 로컬 매개변수 값 가져오기 코드 Sub Feature_localparameter() On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5) Dim se.. 2022. 9. 9. 모델의 Feature 정보 알아보기 ■ 모델의 Features 이름, Feature Type, Feature 순서 번호 검색 하는 프로그램 소스 Part 모드에서 Feature의 이름과 ID, 순서 번호, Type을 검색 합니다. ▶ 소스 코드 Sub Feature_LIST2() On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5) Dim session As pfcls.IpfcBaseSession: Set session = conn.session Dim model As IpfcModel: Set model = session.. 2022. 9. 8. Materials : Creo 모델에 지정된 재질 파일 검색 Creo 모델에 재질 파일을 지정 하는 방법을 알아봅니다. ■ VBA Start Template 소스 코드 VBA 프로그램 개발은 아래 코드를 기본으로 사용 합니다. 현재 활성된 모델을 가져옵니다. Sub tempname () On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5) Dim session As pfcls.IpfcBaseSession: Set session = conn.session Dim Model As pfcls.IpfcModel: Set Model = session.Cur.. 2022. 9. 7. 엑셀의 Parameter 값 -> CREO 모델에 Parameter 값으로 입력 ■ 개발 방향 "새로고침" 버튼을 클릭하면 현재 활성화된 모델의 매개변수 이름, 타입, 값을 엑셀 파일로 불러 옵니다. 엑셀에서 매개변수 값을 변경하고 "저장" 버튼을 클릭하면, 해당 하는 매개변수 값을 모델에 저장 합니다. ▶ Interface IpfcModelDescriptor 이 클래스에는 Creo Parametric 모델 또는 파일을 식별하는 정보가 포함됩니다. 모델 설명자는 현재 세션에 없는 모델을 나타내는 데 사용할 수 있습니다. ■ 엑셀 VBA 소스코드 모델이 가지고 있는 모든 Parameter들을 엑셀 파일에 표시 합니다. 모델이 가지고 있는 모든 Parameter를 카운트 하는 "번호"도 함께 표시 합니다. 이름 및 타입, 값을 표시 합니다 번호 - Parameter 카운트 Paramet.. 2022. 9. 5. part 파일에서 paramter 및 value 표시 하기 Part 파일에 있는 Parameter 값을 표시 합니다. Parameter 타입을 검색 해야 합니다. ■ 소스 코드 Sub part_parameter() On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5) Dim oSession As pfcls.IpfcBaseSession: Set oSession = conn.session Dim oModel As pfcls.IpfcModel: Set oModel = oSession.CurrentModel Dim oPowner As pfcls.Ipfc.. 2022. 9. 5. 작업공간에 있는 *.prt 타입 파일들의 이름을 모두 표시 합니다 현재 작업공간의 *.prt 파일 수량 및 이름을 표시 합니다. 1) part 파일 Set oStringseq = session.ListFiles("*.prt", EpfcFILE_LIST_LATEST, cutrentworkfolder) 2) asm 파일 Set oStringseq = session.ListFiles("*.asm", EpfcFILE_LIST_LATEST, cutrentworkfolder) 3) drw 파일 Set oStringseq = session.ListFiles("*.drw", EpfcFILE_LIST_LATEST, cutrentworkfolder) ■ 소스 코드 Sub workfolderModel_Nanme() On Error GoTo RunError Dim asynconn As Ne.. 2022. 9. 5. # 5 IpfcBaseSession : session에 있는 모델들 이름 모두 표시 ■ Session에 있는 모든 모델 이름 표시 방법 Creo Session 안에 있는 creo 파일 이름을 표시 합니다. 번호와 함께 파일이름, 총 파일 수량 이 표시 됩니다. 만일 Creo Session 안에 creo 파일이 없으면 파일 수량은 "0"으로 표시 됩니다. ■ 코드 Sub session_file_name() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim session As pfcls.IpfcBaseSession Dim Model As pfcls.IpfcModel Dim sessioncount As Integer Dim sessionindex As IpfcModel Dim creo.. 2022. 9. 4. Creo Parametric VB API를 사용하여 PCF 파일을 읽고 열려 있는 활성 드로잉 모델을 인쇄하는 예제 코드 - By PTC Excel 매크로용 VBA를 사용하여 PCF 파일을 읽고 열려 있는 활성 도면 모델을 인쇄하는 예제 코드 Creo Parametric에서 Excel용 Creo VBA를 사용하여 드로잉 파일을 인쇄하는 방법 PCF 파일을 읽고 열려 있는 드로잉 파일의 지정된 범위의 드로잉 시트를 인쇄하는 Creo VB API 예제 코드 1. PCF(플롯 구성 파일)를 읽어 드로잉을 인쇄하는 Creo Excel VBA 작업 예제 코드: Private Function PlotSheetRangeWithPCF(ByRef IBaseSession As pfcls.IpfcBaseSession, ByRef Drawing As IpfcDrawing, ByVal PcfFileName As String, ByVal StartSheet As .. 2022. 9. 3. Part 파일을 jpg 이미지로 저장 하기 ■ 함수 ExportCurrentRasterImage Sub ExportCurrentRasterImage (ImageFileName as String, Instructions as IpfcRasterImageExportInstructions) 표준 Creo Parametric 래스터 출력 파일(현재 Window 화면)을 출력합니다. Session 기준이 아닌 Window 기준으로 모델을 이미지로 저장 합니다. 참고: DMA의 경우 BMP, TIFF, EPS 및 JPEG 이미지 유형이 지원됩니다. - ImageFileName : 확장자를 포함한 출력 파일 이름 - Instructions : Raster-Image 내보내기 작업을 제어하는 Raster-Export-Instructions 개체입니다. 이러한 .. 2022. 9. 2. 현재 활성화된 폴더의 하위폴더 알아보기 현재 작업공간 아래에 있는 하위 폴더들의 이름을 알고 싶습니다. "IpfcBaseSession.ListSubdirectories()" 함수를 사용 합니다. ■ Creo VBA API 문법 Function ListSubdirectories (Path as String [optional]) as Istringseq - VBA인 경우 Istringseq 대신 Cstringseq 변수를 사용 합니다 - 지정된 디렉토리 위치의 1단계 하위 디렉토리만을 나열합니다. Path : Parameters - 서브디렉토리를 표시 하고자 하는 ROOT 폴더를 입력 합니다. 예제) Dim workpath As String workpath = "C:\PTC\WORK60" Set Sequence = session.ListSubdi.. 2022. 8. 30. 현재 활성화된 폴더 이름 알아보기 ▶ 속성(Property)과 Function에 대해 알아보기 현재 설정된 작업 디렉토리의 Path와 폴더 이름을 표시합니다.변수 "workpath"에 Path와 폴더 이름을 넣습니다. 엑셀 Cel "C2"에 표시 됩니다. Function GetCurrentDirectory () as String ▶ Creo Parametric에 대한 현재 작업 디렉토리의 절대 경로 이름을 가져옵니다. ▶ 소스코드 Sub Model_Nanme() On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim session As pfcls.IpfcBaseSession Dim workpat.. 2022. 8. 28. 이전 1 ··· 17 18 19 20 21 22 23 ··· 27 다음 반응형
