wangzhao 发表于 2025-10-30 09:30:06

Pc-dmis的二次开发简单介绍_______连接pc-dmis程序

应用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

image.pngimage.pngimage.pngimage.png

    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 AsNew 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
页: [1]
查看完整版本: Pc-dmis的二次开发简单介绍_______连接pc-dmis程序