MAPKEY 실행하기

VBA에서 Mapkey를 실행 하는  방법

Sub vbamacro()
    
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: Set oModel = oSession.CurrentModel
    
    Dim vbamacro As String
    
    vbamacro = "vmat@MAPKEY_LABELfg;~ Close `main_dlg_cur``appl_casc`;mapkey(continued) ~ Command `ProCmdMmModelProperties`;mapkey(continued) ~ Activate `mdlprops_dlg` `MATERIAL_lay_Controls.push_Change.lay_instance`;"
  
       
    oSession.RunMacro (vbamacro)
       
    
    'Disconnect with Creo
    conn.Disconnect (2)

 

백그라운드 칼라

MAPKEY 실행하기

---