VBA, VB.NET For Creo315 자동화 오류 - 2147417851 (80010105) 악명이 높은 오류 코드 Excel의 자동화 오류 Creo 2에서 잘 작동하는 Excel 시트가 있었는데, 갑자기 연결을 시도하는 동안 자동화 오류가 발생하기 시작했습니다. 오류는 "런타임 오류 2147417851 (80010105), 자동화 오류입니다. 서버에서 예외가 발생했습니다." 이를 지울 수있는 유일한 방법 은 PC를 다시 시작하는 것입니다. 몇 번 잘 작동 한 다음 다시 리브팅 합니다. 원인을 찾을 수 없으며 연결을 시도하는 동안 항상 발생합니다. 일단 트립되면 Excel을 중지하고 다시 시작해도 오류가 발생하며 Creo가 열려 있는지 여부는 중요하지 않습니다. 동일한 스프레드 시트를 사용하여 다른 컴퓨터에서 테스트 할 때도 발생했습니다. 답변 : 확실한 방법 COM 프로세스는 가끔 트랩되지 않.. 2021. 2. 8. Feature Delete - V1 Feature를 삭제 하는 프로그램. 먼저 모델의 Feature 번호와 타입 이름을 엑셀 파일에 표시 하여보자 1. Creo에 활성화된 모델과 VBA를 연결 하여보자. 자주 사용 하는 프로시셔 이다. Sub feature_delete() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Set conn = asynconn.Connect("", "", ".", 5) Dim oSession As IpfcBaseSession Set oSession = conn.Session Dim oModel As IpfcModel Set oModel = oSession.CurrentModel Dim oSession As I.. 2021. 2. 7. 4-7 # Parameter : Part File List 프로그램 Ver 0.2 파라메터를 추가 또는 변경 할수 있습니다. 오류 코드 발생을 숨겼습니다 (?) 파라메터를 이름 수정 및 추가 방법은 아래와 같다. 파라메터 타입은 String 타입만 가능 하다. '파일 매개변 변수 정의 Dim Powner As pfcls.IpfcParameterOwner Dim param As IpfcBaseParameter Dim paramValue As IpfcParamValue Dim oParameterName(2) As String oParameterName(0) = "PART_NO" oParameterName(1) = "PART_NAME" oParameterName(2) = "MATERIAL" Dim oParameterValue(2) As String oParameterValue(0) = "P.. 2021. 2. 7. PART File List 프로그램 오류 나는 경우 1. Creo에서 선택된 파일을 open할 수 없는경우- 샘플 파일에 하네스.prt 파일이 있었고, Creo 파일을 Open 할수 없다. 스크립트 오류 메세지 오류가 발생하는 코드 2. jpg 파일이 생성 안됨 - 형상이 없는 경우, open은 가능 하지만, 형상이 없어 jpg 파일이 생성 안됨 스크립트 오류 메세지 오류가 발생하는 코드 비즈니스 문의 : lionkk@idt21c.com 2021. 2. 2. Creo File Copy & Retrieve UI를 통해 CREO 파일을 선택하고, Session으로 파일을 읽어 드립니다. Creo 파일 이름은 엑셀에 표시됩니다, 파일 타입은 "part"만 가능 합니다. 수동으로 새로운 part 파일 이름을 입력 합니다. 새로운 파일 이름으로 복사 됩니다. Copy CREO File Name의 이름은 ".prt" 확장자를 붙여야 합니다. 만일 폴더에 동일한 파일명이 존재 하면 오류가 발생 합니다. 프로그램 실행 프로그램 소스 코드 Sub creo_open() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim oSession As IpfcSession On Error GoTo RunError Set con.. 2021. 1. 31. #3 IpfcSession - UI로 작업 공간을 선택 하는 프로그램 ■ IpfcSession.UISelectDirectory IpfcSession 클래스 ▶ Function UISelectDirectory를 사용하여 작업공간을 선택 하는 프로그램 Sub UI_WORK_FOLDER() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim Session As IpfcSession Set conn = asynconn.Connect("", "", ".", 5) Set Session = conn.Session Dim DirectorySelectioncreate As New CCpfcDirectorySelectionOptions Dim DirectorySelection As I.. 2021. 1. 30. 4-6 # Parameter : Part File List 프로그램 Ver 0.1 특정 폴더에 있는 Ceo 파일의 이름과 이미지, 매개 변수를 불러오는 프로그램 Part File List 프로그램 기능 폴더에 저장되어 있는 "Part" 파일의 최종 버전들을 자동으로 읽고, 이미지 및 파일 이름, 매개 변수를 표시 합니다. 이번 버전에서는 Assembly 파일은 표시 하지 않습니다. 하위 폴더 내용도 표 idt21c.tistory.com 1 단계 : Creo 연결 Sub Filelist_Parameter() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5) Dim session As pfcls.IpfcBas.. 2021. 1. 28. 엑셀의 치수 값을 모델로 보내기 1. 모델의 치수 이름은 정의 되어 있어야 합니다. 2. 엑셀 UI 코딩하기 1. 단계 연결 및 파일 이름 표시 Sub dim_Value() 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 oModel As pfcls.IpfcModel Set oModel = session.CurrentModel Cells(2, "D") = session.GetCurrentDirectory Cells(3, "D") = oM.. 2021. 1. 27. BOOK : 엑셀 VBA For Creo VBA로 Creo 응용 프로그램을 개발 하려면 VBA에 대한 기초 교육 수강이 필요 합니다. 기초적인 내용은 IF, FOR문 정도만 배우시고 시작 하면 됩니다. 프로그램 개발은 익숙함 입니다. 거북이와 같이 조금씩 시간을 만들어 따라해 보십시요. 어느 순간 자신이 코딩을 하고 있다는것을 느낍니다. ▶ VBA 설치 및 설정 하기 L 엑셀 VBA 설정 하기 (VBA 기초 교육) L VBA 설치 및 설정 하기 L CREO와 VBA 연결 CODE L Hello 메세지 출력하기 * 자동화 오류 - 2147417851 (80010105) 오류 해결 방법 프로그램 개발중 / 프로그램 실행중 자동화 오류가 발생 하면 작업 관리자 모드에서 수동으로 pfclscom.exe 프로세스 중지하시고 VBA 프로그램을 재시작 합니.. 2021. 1. 25. 4-5 # Parameter : 엑셀에서 매개변수 읽고, CREO 변경 하기 CREO 파일에서 매개 변수 이름 확인하고, 동일한 매개변수가 있으면, 값만 변경 하고, 동일한 매개변수 이름이 없으면 매개변수 이름을 생성 하고, 값을 입력 하는 프로그램. 다음과 같은 순서로 코딩 작업을 한다. 프로그램 코딩 순서 1 단계 : 폴더 및 파일 이름 선택 Sub Parameter01() 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 oForderName As String oForderNa.. 2021. 1. 23. 열 방향의 매개변수 읽고 쓰기, 매개변수 만들기 미완성 보호되어 있는 글 입니다. 2021. 1. 22. File List Beta 0.2 - 작업 공간의 Part 파일 표시 작업공간의 모든 "PART" 파일을 읽고 번호, 이미지, 파일 이름 , 품번 표시 하기- 주의 사항 품번은 매개 변수 "PART_NO" 스트링 타입으로 만들어져 있어야 합니다. 만일 없다면, 오류가 발생 합니다. 코드 1. Sub Filelist_Parameter() 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 Range(Cells(5, "A"), Cells(Rows.Count, "A")).EntireRow... 2021. 1. 16. 이전 1 ··· 20 21 22 23 24 25 26 27 다음 반응형
