1. 应用COM方式：

   1.1引用——浏览——软件安装目录中（D:\Program Files\Hexagon\PC-DMIS 2018 R1 64-bit\INTEROP.PCDLRN.DLL）的INTEROP.PCDLRN.DLL

       1.2 引用pc-dmis的命名空间：Imports PCDLRN

    1.3 获取正在运行的pc-dmis程序：

            Dim pcdApp As PCDLRN.Application = GetObject("", "PCDLRN.Application")

            Dim commands As Commands = pcdApp.ActivePartProgram.Commands

     1.4 创建pc-dmis程序：

            Dim pcdApp As  New PCDLRN.Application

            Dim commands As Commands = pcdApp.ActivePartProgram.Commands

  2.后期绑定：CreateObject 

           Dim pcdApp As Object

           pcdApp = CreateObject ("PCDLRN.Application")

          Dim commands As Object

          commands  = pcdApp.ActivePartProgram.Commands