본문 바로가기
  • Welcome!

VBA, VB.NET For Creo315

의뢰] Part List 프로그램 변형 A01 ■ 아래 엑셀 파일 에 모델이 가지고 있는 "Creo Parameter"를 자동으로 표시 합니다. Drawing No : Creo 파일 이름 입니다. Skeleton 모델은 자동으로 삭제 합니다. 파일 확장자는 없습니다. Part Name : Creo Parameter 입니다. 문자 타입 입니다. Description : Creo Parameter 입니다. 문자 타입 입니다. Material : Creo Parameter 입니다. 문자 타입 입니다. Finish : Creo Parameter 입니다. 문자 타입 입니다. Quantity : 자동으로 계산 됩니다. Creo Parameter 는 아닙니다. REV : Creo Parameter 입니다. 문자 타입 입니다. 1.0, 1.2 . . . 표시 가능.. 2022. 11. 25.
IpfcModelItemOwner / IpfcModelItem / IpfcCoordSystem 이것은 연관된 모델 항목(예: 모델)이 있는 개체의 기본 클래스입니다. Function : GetItemById (Type as IpfcModelItemType, Id as Long) as IpfcModelItem [optional] - 식별자(모델 타입)과 Feature ID가 지정된 지정된 모델 항목을 반환합니다. 1) IpfcModelItemType EpfcITEM_FEATURE : Feature / EpfcITEM_SURFACE : Surface / EpfcITEM_EDGE : Edge EpfcITEM_COORD_SYS : Coordinate system / EpfcITEM_AXIS : Axis /EpfcITEM_POINT: Point EpfcITEM_QUILT : Quilt / EpfcITEM_.. 2022. 11. 23.
VBA Fundamentals #4 : IpfcSolid ■ IpfcSolid 이 개체는 솔리드를 정의합니다. Property : IsSkeleton as Boolean - 모델이 스켈레톤 모델이면 true이고 그렇지 않으면 false입니다. Option Explicit Sub SkeletonCheck() 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 IpfcModel: Set oModel = oSession.CurrentModel D.. 2022. 11. 22.
VBA Fundamentals #3 : IpfcModel ■ IpfcModel 개체 Model은 부품, 어셈블리, 드로잉, 단면 및 노트북을 포함한 모든Creo Parametric파일 유형일 수 있습니다. IpfcModel모듈의 개체는 유형에 관계없이 모델에 대한 일반 액세스를 제공합니다. • 모델에 대한 정보에 액세스합니다. • 모델을 열고, 복사하고, 이름을 바꾸고, 저장합니다. 모델의 이름을 변경 하는 코드 입니다. IpfcModel.Rename() 함수 Sub Rename (NewName as String, RenameFilesToo as Boolean [optional]) - Renames the model. - RenameFilesToo Ignored: by default, this is false. +++++++++++++++++++++++++++.. 2022. 11. 20.
VB로 만든 설계 자동화 프로그램 제품의 표준화를 자동화 하였습니다. 비 전공자도 VBA 또는 VB로 프로그램을 만들 수 있습니다. 아위운 점은 PTC는 다양하고, 많은 소스 코드를 만들어 배포 해야 합니다. 아니면 Open 소스 개발을 활성화 할수 많은 지원을 해야 합니다. 사이트 : https://www.uni-due.de/imperia/md/content/cad/proe-creo-vb-api.pdf 2022. 11. 18.
Run-time error 2147417851 (80010105) 증상 : VBA 메세지 창에 "런타임 오류 2147417851(80010105), 자동화 오류입니다. 서버에서 예외가 발생했습니다." 메세지를 지울 수 있는 유일한 방법은 PC를 다시 시작하는 것입니다. 하지만 몇 번 잘 작동하고 다시 오류가 발생합니다 원인을 찾을 수 없으며 연결을 시도하는 동안 항상 발생합니다. 해결 : PTC 지원에서... 트랩되지 않은 오류 중에 COM 프로세스가 중단될 수 있습니다. 해결 방법은 pfclscom.exe 프로세스를 수동으로 종료하는 것입니다. 2022. 11. 16.
Creo 6.0은 Windows 11과 호환되지 않습니다. 프로그램 개발자 PC Window 버전이 11로 자동 업데이트 되었습니다. Creo 7.0.7.0, Creo Parametric 8.0.3.0, Creo Parametric 9.0 이상은 Windows 11에서 지원됩니다. Creo 6.0은 Windows 11과 호환되지 않습니다. Creo Parametric 8.0.3.0 버전으로 개발 합니다. Creo Parametric 8.0.3.0 버전으로 블로그를 작성 합니다. VBA 참조가 아래와 같이 변경 됩니다. Creo 8.0으로 업그레이드한 사용자는 Creo 설치후 VBA 설정을 해야 합니다. 6.0에서 개발된 코드의 VBA 참조를 확인 합니다. Setting up the VBA API development environment Creo Parametr.. 2022. 11. 15.
모델 사이즈 관련 함수 #1 : IpfcSolid.GeomOutlin Creo는 측정 기능으로 가로 * 세로 * 높이 사이즈 알수 있는 방법은 없습니다. 대각선 길이로 측정을 합니다. 모델의 기본 좌표계 방향의 x * y * z를 이용하여 사이즈를 구하려면, 모델 체크를 기능을 사용 해야 합니다. 하지만 데이텀 커브, 서피스, 데이텀 평면등이 포함된 사이즈를 포함 합니다. 서피스를 사각 BOX 형태의 랩 형식으로 감싸서 서피스의 가로 * 세로 * 높이를 구할수 있습니다. 그러나 수백, 수천개의 FILE의 사이즈를 빠르고 쉽게 표시 할수 있는 방법은 CREO 자체는 없습니다. 또한 일정한 엑셀 양식으로 만들수 있는 방법도 없습니다. ToolBOX Web 프로그램은 자동으로 모델의 사이즈를 계산 하여 줍니다. IpfcSolid Property : GeomOutlin as Ip.. 2022. 11. 15.
이미지 변환 프로그램 소스 ■ jpg 변경 프로그램 Option Explicit Sub A3PartListJpgExport() 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 'Back Ground Color White Dim BackgroundWhitemacro As String BackgroundWhitemacro = "al_scree.. 2022. 11. 8.
UI를 이용하여 폴더 만들고, 선택 하기 소스 코드 Dim oSession As IpfcSession: Set oSession = conn.session Dim oCreateDirectory As New CCpfcDirectorySelectionOptions Dim oDirectorySelectionOptions As IpfcDirectorySelectionOptions Set oDirectorySelectionOptions = oCreateDirectory.Create Dim oFolderName As String '폴더 이름 정의 매개변수 oFolderName = oSession.UISelectDirectory(oDirectorySelectionOptions) Cells(5, "D") = oFolderName 적용 예) 2022. 11. 3.
ToolBOX PartList 베타 ■ PartList 프로그램 변경 내용 1. 화면 구성 9행 : A1 ~ G1 까지는 고정 입니다. 변경 할수 없습니다."WEIGHT" - 무게, "MATERIAL" - 재질을 정의하는 매개변수 입니다. CREO 모델에서 재질파일 지정이 되어 있어야 합니다. 재질파일 지정이 안되어 있으면 "NOT"으로 표시 됩니다. 어셈블 파일은 재질파일을 지정 할수 없습니다. "WEIGHT" - 무게 계산을 할수 없습니다. 9행 : H1 ~ 부터는 PARAMETER 이름 입니다. 타입은 "문자"만 가능 합니다. 영문자 대문자로 추가 할수 있습니다. PARAMTER 이름을 변경 할수 있습니다. 한글은 추가 할 수 없습니다. 문자와 문자 사이 공란은 불가능 합니다. 2. 새로 고침 만일 CREO 모델 파일이 "WEIGHT.. 2022. 10. 27.
모델의 Parameter 이름 및 타입, 값 과 엑셀 내용과 비교 1. 모델에 있는 Parameter 이름과 엑셀 파일의 Parameter 이름 비교 엑셀 VBA로 엑셀의 Parameter 이름이 모델 Parameter 이름에 있는지 비교 합니다. YES / NO로 표시 모델의 Parameter 이름 엑셀의 Parameter 이름 ■ 소스 코드 Option Explicit Sub ModelParameter() On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim oBaseSession As pfcls.IpfcBaseSession Dim oModel As pfcls.IpfcModel Set conn = asynconn.Conn.. 2022. 10. 25.
반응형

티스토리툴바