VBA, VB.NET For Creo315 #3 MBD : 모델 치수 가져오기-2 □ 모델의 치수 가져오기 모델에서 선택한 치수를 가져옵니다. 치수 선택은 1개로 제한 합니다. 프로그램 사용전 반드시 모델에서 치수를 표시해야 합니다. (치수 편집 명령 실행 - edit dimensions) 모델의 치수들과 모델이름을 엑셀 파일에 저장 할수 있습니다. 모델의 치수는 "KEY"입니다. 모델에서 중복 될수 없습니다. VBA 프로그램을 이용하여 모델의 치수들 이름, 값을 변경 할수 있습니다. 엑셀의 Cell과 모델 치수 이름(KEY)을 연결 할 수 있습니다. 설계가 완료되면, 엑셀 파일에 등록된 치수는 자동으로 추적 하는 기능 개발도 가능 합니다. ▷ VBA 코드 Option Explicit Sub Select_Dimension() On Error GoTo RunError Applicatio.. 2023. 12. 24. #3 MBD : 모델 치수 가져오기-1 □ 모델 치수 가져오기 모델이 가지고 있는 모든 치수 값을 가져오는 코드 입니다. 이 코드는 참조 치수 및 Annotate 치수를 모두 가져옵니다. 참조 및 Annotate에서 정의한 치수를 모두 가져올 수 있습니다 Creo 화면 엑셀 Dimmension Type은 5가지로 구분 합니다. Dimmension Type 기호 EpfcDimensionType 내용 이미지 0 EpfcDIM_LINEAR linear dimension 1 EpfcDIM_RADIAL radial dimension 2 EpfcDIM_DIAMETER diametrical dimension 3 EpfcDIM_ANGULAR angular dimension 4 EpfcDimensionType_nil 기타 ▷ VBA 코드 Option Expl.. 2023. 12. 24. #1 Creo 엑셀 VBA 코드 :: 개발 환경 설정 하기 □ 작업 환경 매크로 엑셀 파일을 Creo 프로그램에서 실행 시키는 방법입니다. Mapkey를 이용하여 메크로 엑셀 파일을 Open 할 수 있습니다. Mapkey는 config,pro 파일에 "메모장"을 이용하여 저장 할수 있고, Creo 화면 구성 기능을 이용하여, 아이콘으로 만들수 있습니다. 1. Mapkey 코드 mapkey vb01 @MAPKEY_NAMEVBA PROGRAM;@MAPKEY_LABELVBA PROGRAM;\ mapkey(continued) @SYSTEMstart /B "" \ mapkey(continued) F:\\.shortcut-targets-by-id\\17Yrp8FcmdhD6CTP9O_bP4-wAo6n_mZUF\\idt_stds\\VB\ mapkey(continued) A_D.. 2023. 12. 21. Geometry Evaluation □ Geometry Traversal 어떤 도형이나 그래프를 정해진 방식으로 방문하거나 탐색하는 과정을 의미합니다. • 단순한 직사각형 면에는 윤곽선 (경계) 1개와 모서리 4개가 있습니다. • 윤곽선은 어떤 부분 면(2D 평면 도형)의 경계를 따라 이동합니다. 외부 윤곽선은 시계방향으로 이동하고, 내부 윤곽선은 반시계방향으로 이동하여 부분 면의 오른쪽에 위치합니다. • U자형 단면이 있는 스케치에서 부품이 돌출되면 U자형 채널의 각 다리에 별도의 서피스가 있게 됩니다. • 사각형 모양의 단면이 있는 스케치에서 부품을 돌출시킨 다음 슬롯 형상을 부품으로 절단하여 U 채널처럼 보이도록 하면 U 채널 다리를 가로지르는 하나의 서피스가 있게 됩니다. 채널. 부품의 원래 표면은 절단된 하나의 표면으로 표시됩니다.. 2023. 10. 12. 모델의 서피스 타입 구분 하기 모데의 서피스 타입을 구분 하는 코드 입니다. 서피스 타입은 "숫자"로 표시 합니다 Type "0" Type "1" Type "2" Option Explicit Sub Surfacetype() On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim BaseSession As pfcls.IpfcBaseSession Dim Session As IpfcSession Dim model As IpfcModel Dim ModelItemOwner As IpfcModelItemOwner Dim ModelItems As IpfcModelItems Dim ModelItem As .. 2023. 10. 11. Model Information - IpfcModel □ IpfcModel.IsCommonNameModifiable() 모델 일반 이름(IpfcModel.CommonName)을 수정할 수 있는지 식별합니다. FunctionIsCommonNameModifiable () as Boolean Option Explicit Sub commonbool() On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim BaseSession As pfcls.IpfcBaseSession Dim Session As IpfcSession Dim model As IpfcModel Dim commonbool As Boolean Set conn .. 2023. 10. 9. Model Operations □ 사용 가능 한 함수 () IpfcModel.Backup() 메모리의 개체를 지정된 디렉터리의 디스크에 백업합니다. IpfcModel.Copy() 지정된 모델을 다른 파일에 복사합니다. IpfcModel.CopyAndRetrieve() 모델을 다른 이름으로 복사하고 해당 새 모델을 세션으로 검색합니다. IpfcModel.Rename() 지정된 모델의 이름을 바꿉니다. IpfcModel.Save() 지정된 모델을 디스크에 저장합니다. IpfcModel.Erase() 세션에서 지정된 모델을 지웁니다. 다른 모델에서 사용되는 모델은 해당 모델에 종속된 모델이 삭제될 때까지 삭제될 수 없습니다. IpfcModel.EraseWithDependencies() 세션의 다른 항목에 종속성이 필요하지 않은 경우 세션에.. 2023. 10. 6. Creo Template 프로그램 #2 □ Parameter와 Dimension 변경 하기 Gear 모델을 변경 하기 위해, 엑셀의 Cell 값으로 모델을 업데이트 하는 코드 입니다. Parameter의 경우 실수와 정수를 구분 해야 합니다. Dimension은 실수 이며, 음수와 "0"을 입력 하면 안됩니다. Creo VBA의 코드와 모델의 Parameter 타입(정수, 실수, 스트링)이 다르면 프로그램은 오류가 납니다. 반드시 타입을 동일하게 맞추십시요 ▷전체 코드 Option Explicit Sub SPUR_IM() On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim Session As pf.. 2023. 9. 12. #1 IpfcAssembly □ IpfcAssembly 소개 어셈블리 모델에 대한 다양한 기능을 제공합니다. 이 인터페이스를 사용하여 어셈블리 모델을 조작하거나 정보를 얻을 수 있습니다. ▷ IpfcAssembly.IsExploded 어셈블리 모델이 "Exploded"된 상태인지 아닌지를 확인할 수 있습니다. [Property] IsExploded as Boolean 예제 코드) Dim Assembly As IpfcAssembly Set Assembly = model MsgBox Assembly.IsExploded ▷ IpfcAssembly.AssembleComponent 어셈블리 모델 내에서 컴포넌트를 조립하는 기능을 수행합니다. 이 메서드는 어셈블리에 컴포넌트를 추가하거나 조립할 때 사용됩니다. [Function] Assembl.. 2023. 8. 20. IpfcModelItemOwner □ IpfcModelItemOwner 소개 모델 내에서 아이템(피쳐, 부품, 어셈블리 등)을 소유하고 관리하는 데 사용되는 인터페이스입니다. IpfcModelItemOwner.ListItems [Function] ListItems (Type as IpfcModelItemType [optional]) as IpfcModelItems [optional] 활성화된 모델에서 지정된 유형의 항목 (Surface, Edge . . . )으로. 모델이 가지고 있는 목록들을 제공 합니다. 만일 "nothing" 으로 입력 하면 모든 유형의 항목에서 검색 하여 목록을 제공 합니다 ▷ 모델의 ID를 표시 하는 예제 코드 Dim ModelItemOwner As IpfcModelItemOwner Dim ModelItems A.. 2023. 8. 18. #1 IpfcModel □ IpfcModel 소개IpfcModel 클래스는 Creo Parametric에서 현재 작업 중인 모델에 대한 정보를 담고 있는 클래스입니다. 이 클래스를 통해 모델의 다양한 속성에 접근하고, 모델을 조작하는 다양한 기능을 수행할 수 있습니다. Revision: 모델의 개정 정보를 나타냅니다. 데이터 관리 시스템과 연계하여 모델의 개정 관리에 사용될 수 있습니다.Version: 모델의 버전 정보를 나타냅니다. 데이터 관리 시스템에서 모델의 버전 관리에 사용될 수 있습니다.Branch: 모델의 브랜치 정보를 나타냅니다. 데이터 관리 시스템에서 여러 가지 모델 브랜치를 관리하거나 비교할 때 사용될 수 있습니다.ReleaseLevel: 모델의 릴리스 레벨 정보를 나타냅니다. 데이터 관리 시스템에서 모델의 릴.. 2023. 8. 18. #2 quilt의 면적 표시 - 고급 편 □ 소개 50개의 치수 조합을 자동으로 모델에 대입 하여, quilt의 면적을 자동으로 표시 하는 프로그램 입니다. 치수 조합은 Array 기능을 이용하여 개발 하였습니다 ▷ 참고 사이트 quilt의 면적 표시 ■ 소개 모델에 이름("korea")이 정의된 면적을 표시 하는 기능입니다 ▷ Croe 모델 준비 모델에서 서피스 여러개를 복사 하고, 이름을 "korea"로 정의 합니다 ▷ Creo에서 면적 표시 □ Quilt 면적을 표 tool-2020.tistory.com Array 공부 - 치수 값을 조합 하여 화면에 표시하기 □ 소개 1행 10개, 2행 5개를 조합하여, 곱하는 코드 입니다 ▷ 액셀 파일 ▷ 코드 Sub MultiplyArrays() Dim array1(1 To 10) As Double .. 2023. 8. 16. 이전 1 ··· 8 9 10 11 12 13 14 ··· 27 다음 반응형
