본문 바로가기
  • Welcome!
VBA For Creo

Excel & Creo Dimension

by ToolBOX01 2023. 12. 26.
반응형

□ Excel의 Cell과 Creo Dimension 이름 연계

Creo에서 치수를 선택하면. "sheet 2"의 Dimension Name, Value 값이 순차적으로 표시 됩니다. 적용 버튼을 클릭하면 "sheet 1"에 값이 표시됩니다. "sheet 1"의 값을 변경 하면, 모델이 자동으로 변경 됩니다.

Sheet 1 Sheet 2

Cell의 값은 추가 또는 변경 가능 합니다. Sheet 2의 C4, C7, C10의 개수를 카운트하고, FOR 문을 이용하여 Dimension Value를 Sheet 1의 Cell  주소로 보내는 프로그램 입니다.

▷ 프로그램 실행 결과

 

▷ VBA 코드

Sub CopyCellValue()
    
    Dim cellname As String
    Dim rng As Range
    Dim rn As Long
    
    '// 사용자 정의 Cell의 주소 개수를 카운트 합니다
    Set rng = Worksheets("Sheet1").Range("G5", Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count, "G").End(xlUp))
    rn = rng.Rows.Count
      
    For rn = 0 To rn - 1
    
        cellname = Sheets("Sheet1").Cells(rn + 5, "G").Value
        Sheets("Sheet1").Range(cellname).Value = Sheets("Sheet1").Cells(rn + 5, "I").Value
    
    Next rn
      
End Sub

 

도면에서 치수 값을 가져오는 코드와 결합한다면, 설계 검증 프로그램을 사용 할수 있습니다. 
sheet 1에는 설계 검증 프로그램 양식을 정의 하고, Sheet 2에는 설계 검증에 사용하는 도면의 치수를 선택해서 가져옵니다. Sheet 2는 데이터베이스 입니다.

 

#5 설계 공차 분석 - 도면의 치수 및 공차 값 가져오기

□ Get selected drawing dimension values 도면의 치수를 선택 하여, 치수 값과 공차 값을 가져오는 프로그램 입니다. 주의) ISO 스탠더드 테이블을 적용 하면, 치수 공차 타입 및 값은 가져올수 없습니다. Ge

tool-2020.tistory.com

 

Creo 모델을 Template으로 만들면, 자동으로 엑셀의 Sheet 2에 해당하는 치수 값이 저장되고, 설계 검증 양식이 있는 Sheet 1에도 저장 됩니다.  더 발전 한다면 AI가 자동으로 설계를 할수 있을것 입니다. Creo 및 모든 3D CAD는 Feature 기반의 프로그램 입니다. 히스토리가 남아 있고, 어떻게 모델이 만들어 졌는지 분석이 가능 합니다.

아래 그림은 Creo 모델입니다

▷ Creo 모델

 

아래 코드는 위 그림의 creo 모델을 이해하는 코드 입니다 맨아래 치수 값을 변경하면, 이동 및 사이즈를 변경 합니다.

▷ Creo 코드

더보기

VERSION 9.0
REVNUM 20194
LISTING FOR PART PRT0010

INPUT
END INPUT

RELATIONS
END RELATIONS


 ADD FEATURE (initial number 1)
 INTERNAL FEATURE ID  1


 DATUM PLANE

  NO.     ELEMENT NAME    INFO                                                  
  ---     -------------   -------------                                         
   1      Feature Name    Defined                                               
   2      Constraints     Defined                                               
   2.1    Constraint #1   Defined                                               
   2.1.1  Constr Type     X Axis                                                
   3      Flip Datum Dir  Defined                                               
   4      Fit             Defined                                               
   4.1    Fit Type        Default                                               

 NAME = RIGHT

    FEATURE IS IN LAYER(S) :
      00___PRT_ALL_DTM_PLN - OPERATION = SHOWN
      01___PRT_DEF_DTM_PLN - OPERATION = SHOWN

 END ADD


 ADD FEATURE (initial number 2)
 INTERNAL FEATURE ID  3


 DATUM PLANE

  NO.     ELEMENT NAME    INFO                                                  
  ---     -------------   -------------                                         
   1      Feature Name    Defined                                               
   2      Constraints     Defined                                               
   2.1    Constraint #1   Defined                                               
   2.1.1  Constr Type     Y Axis                                                
   3      Flip Datum Dir  Defined                                               
   4      Fit             Defined                                               
   4.1    Fit Type        Default                                               

 NAME = TOP

    FEATURE IS IN LAYER(S) :
      00___PRT_ALL_DTM_PLN - OPERATION = SHOWN
      01___PRT_DEF_DTM_PLN - OPERATION = SHOWN

 END ADD


 ADD FEATURE (initial number 3)
 INTERNAL FEATURE ID  5


 DATUM PLANE

  NO.     ELEMENT NAME    INFO                                                  
  ---     -------------   -------------                                         
   1      Feature Name    Defined                                               
   2      Constraints     Defined                                               
   2.1    Constraint #1   Defined                                               
   2.1.1  Constr Type     Z Axis                                                
   3      Flip Datum Dir  Defined                                               
   4      Fit             Defined                                               
   4.1    Fit Type        Default                                               

 NAME = FRONT

    FEATURE IS IN LAYER(S) :
      00___PRT_ALL_DTM_PLN - OPERATION = SHOWN
      01___PRT_DEF_DTM_PLN - OPERATION = SHOWN

 END ADD


 ADD FEATURE (initial number 4)
 INTERNAL FEATURE ID  19185


 GROUP HEAD

  NO.   ELEMENT NAME  INFO                                                      
  ---   -------------  -------------                                             
   1    Name          Defined                                                   
   2    Features      Defined                                                   
   3    Construction  Defined                                                   

 NAME = 축



 MEMBER OF A GROUP, NAME = 축 
  LEADING FEATURE OF THE GROUP: ID = 19185 
  LAST FEATURE OF THE GROUP: ID = 50 
 END ADD


 ADD FEATURE (initial number 5)
 INTERNAL FEATURE ID  46
 PARENTS = 3(#2) 5(#3) 


 DATUM AXIS

  NO.     ELEMENT NAME   INFO                                                   
  ---     -------------  -------------                                          
   1      Feature Name   Defined                                                
   2      Constraints    Defined                                                
   2.1    Constraint #1  Defined                                                
   2.1.1  Type           Through                                                
   2.1.2  Reference      TOP:F2(DATUM PLANE)                                    
   2.2    Constraint #2  Defined                                                
   2.2.1  Type           Through                                                
   2.2.2  Reference      FRONT:F3(DATUM PLANE)                                  
   3      Fit            Defined                                                
   3.1    Fit Type       Default                                                

 NAME = X
 FEATURE BELONGS TO LOCAL GROUP 축

    FEATURE IS IN LAYER(S) :
      02___PRT_ALL_AXES - OPERATION = SHOWN


 MEMBER OF A GROUP, NAME = 축 
  LEADING FEATURE OF THE GROUP: ID = 19185 
  LAST FEATURE OF THE GROUP: ID = 50 
 END ADD


 ADD FEATURE (initial number 6)
 INTERNAL FEATURE ID  39
 PARENTS = 1(#1) 5(#3) 


 DATUM AXIS

  NO.     ELEMENT NAME   INFO                                                   
  ---     -------------  -------------                                          
   1      Feature Name   Defined                                                
   2      Constraints    Defined                                                
   2.1    Constraint #1  Defined                                                
   2.1.1  Type           Through                                                
   2.1.2  Reference      FRONT:F3(DATUM PLANE)                                  
   2.2    Constraint #2  Defined                                                
   2.2.1  Type           Through                                                
   2.2.2  Reference      RIGHT:F1(DATUM PLANE)                                  
   3      Fit            Defined                                                
   3.1    Fit Type       Default                                                

 NAME = Y
 FEATURE BELONGS TO LOCAL GROUP 축

    FEATURE IS IN LAYER(S) :
      02___PRT_ALL_AXES - OPERATION = SHOWN


 MEMBER OF A GROUP, NAME = 축 
  LEADING FEATURE OF THE GROUP: ID = 19185 
  LAST FEATURE OF THE GROUP: ID = 50 
 END ADD


 ADD FEATURE (initial number 7)
 INTERNAL FEATURE ID  50
 PARENTS = 1(#1) 3(#2) 


 DATUM AXIS

  NO.     ELEMENT NAME   INFO                                                   
  ---     -------------  -------------                                          
   1      Feature Name   Defined                                                
   2      Constraints    Defined                                                
   2.1    Constraint #1  Defined                                                
   2.1.1  Type           Through                                                
   2.1.2  Reference      RIGHT:F1(DATUM PLANE)                                  
   2.2    Constraint #2  Defined                                                
   2.2.1  Type           Through                                                
   2.2.2  Reference      TOP:F2(DATUM PLANE)                                    
   3      Fit            Defined                                                
   3.1    Fit Type       Default                                                

 NAME = Z
 FEATURE BELONGS TO LOCAL GROUP 축

    FEATURE IS IN LAYER(S) :
      02___PRT_ALL_AXES - OPERATION = SHOWN


 MEMBER OF A GROUP, NAME = 축 
  LEADING FEATURE OF THE GROUP: ID = 19185 
  LAST FEATURE OF THE GROUP: ID = 50 
 END ADD


 ADD FEATURE (initial number 8)
 INTERNAL FEATURE ID  7


 COORDINATE SYSTEM

  NO.   ELEMENT NAME                   INFO                                     
  ---   -------------                  -------------                            
   1    Feature Name                   Defined                                  
   2    Name Display Option            YES                                      
   3    Display Zoom Dependent Option  NO                                       

 NAME = ORG

    FEATURE IS IN LAYER(S) :
      05___PRT_ALL_DTM_CSYS - OPERATION = SHOWN

 END ADD


 ADD FEATURE (initial number 9)
 INTERNAL FEATURE ID  19192
 PARENTS = 1(#1) 3(#2) 5(#3) 


 PROTRUSION: Extrude

  NO.     ELEMENT NAME       INFO                                               
  ---     -------------      -------------                                      
   1      Feature Name       Defined                                            
   2      Extrude Feat type  Solid                                              
   3      Material           Add                                                
   4      Body               Defined                                            
   4.1    Use body           Selected                                           
   4.2    Selected bodies    Body 1                                             
   5      Section            Defined                                            
   5.1    Setup Plane        Defined                                            
   5.1.1  Sketching Plane    FRONT:F3(DATUM PLANE)                              
   5.1.2  View Direction     Side 1                                             
   5.1.3  Orientation        Right                                              
   5.1.4  Reference          RIGHT:F1(DATUM PLANE)                              
   5.2    Sketch             Defined                                            
   6      Feature Form       Solid                                              
   7      Direction          Side 2                                             
   8      Depth              Defined                                            
   8.1    Side One           Defined                                            
   8.1.1  Side One Depth     None                                               
   8.2    Side Two           Defined                                            
   8.2.1  Side Two Depth     Variable                                           
   8.2.2  Value              333.74                                             

 SECTION NAME = Section 1 


 FEATURE'S DIMENSIONS:
 d377 = (Displayed:) 333.74 General_Dims
        (   Stored:) 333.74 ( 0.01, -0.01 ) 
 d378 = (Displayed:) 135.99 General_Dims (weak)
        (   Stored:) 135.9934935848 ( 0.2, -0.2 ) 
 d379 = (Displayed:) 531.49 General_Dims (weak)
        (   Stored:) 531.4893257478 ( 0.3, -0.3 ) 
 d380 = (Displayed:) 263.52 General_Dims (weak)
        (   Stored:) 263.5152613397 ( 0.2, -0.2 ) 
 END ADD

MASSPROP
END MASSPROP

AI는 학습을 할것 입니다. 마우스를 설계 하기 위해 어떤 어셈블 구조를 만들어야 하는지, 부품의 크기는 어떻게 만들어야 하는지 등을 학습 할것 입니다.  조립 공차도 학습 할것이고, 가공까지 바로 갈수 있는 방법을 학습 할것 입니다.

누군가는 이것이 가능한 프로그램을 만들것 입니다. 기계가 스스로 기계를 만들수 있는 날이올것 입니다.
그러면 인간이 존재 할수 있을까요? . . . . .