도면 자동 생성 기능

Creo Drawing Template #2

 

사전 준비 사항

1. 구글 드라이버 공유 폴더 설정
   -  타 설계자와 협업 가능

2.  config.pro > pro_format_ dir 설정
   - format 파일 저장 위치
   - 예제)  F:\내 드라이브\creo_stds\format

3. config.pro > start_model_dir
   - template 모델 파일 저장 위치
   - 예제)  F:\내 드라이브\creo_stds\template

 

[ Drawing Template 파일 ]

■ 개발 코드 

Drawing Template ( a2_template )을 사용 하였습니다.   Session에 새로운 드로잉 파일이 생성 됩니다

Option Explicit
Sub createDrawing()

    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

    Cells(4, "A") = oModel.FileName
    
    Dim oPartname As String
    oPartname = oModel.FileName
    
    Dim oCreatepfcModelDescriptor As New CCpfcModelDescriptor
    Dim oModelDescriptor As IpfcModelDescriptor
    Set oModelDescriptor = oCreatepfcModelDescriptor.Create(EpfcModelType.EpfcMDL_PART, oPartname, "")
        
    Dim oDrawingName As String
    oDrawingName = oModel.FullName
    
    Dim CDrawingCreateOptions As New CpfcDrawingCreateOptions
    Call CDrawingCreateOptions.Insert(0, EpfcDrawingCreateOption.EpfcDRAWINGCREATE_DISPLAY_DRAWING)
    Call CDrawingCreateOptions.Insert(0, EpfcDrawingCreateOption.EpfcDRAWINGCREATE_SHOW_ERROR_DIALOG)
    
    Dim oDrawing As IpfcDrawing
    Set oDrawing = oSession.CreateDrawingFromTemplate(oDrawingName, "a2_template", oModelDescriptor, CDrawingCreateOptions)

    'Disconnect with Creo
    conn.Disconnect (2)


End Sub

주의> 반드시 Drawing Template 파일에서 정의한 "뷰"는 반드시 모델에 저장 되어있어야 합니다

 

by lionkk@idt21c.com

---