PC-Dmis 2018版本二次开发(一：入门)

该教程涉及到VB调用dll的基础知识，如果不具备相关基础知识的，请移步下面链接进行学习。
VB调用dll基础知识

运行环境为
win7 sp1 x64
VS2010 + PC-Dmis 2018R1 x64

1.dll注册

二次开发用dll为 INTEROP.PCDLRN.DLL
工程目录\INTEROP.PCDLRN.DLL
D:\Program Files\Hexagon\PC-DMIS 2018 R1 64-bit\INTEROP.PCDLRN.DLL

win+R 输入 regedit 打开注册表
Ctrl+F 搜索 dll 查看是否已经注册。
一般情况下都是已经注册了。
一般有键与值就是注册成功了
键与值：值 就是你那个控件的全路径名

2.引用

右键–属性—引用—添加—INTEROP.PCDLRN.DLL（已跟PC-Dmis工程师确定，2018版的二次开发dll为INTEROP.PCDLRN.DLL）

两点需要注意 （PC-Dmis文档也有提）

1. win7及以上可能会有权限等的限制。所以在这里统一右键将PC-Dmis设置成管理员身份运行；
2. 切记不要用 “new PCDLRN.Application” 去创建 PCDLRN.Application object,PC-Dmis版本不同，这样创建可能会出现问题. 尽量使用CreateInstance(type)创建 application object

二次开发dll框架图

3.二次开发——向任务条中添加指令

乱七八糟的环境配置弄完了就行了。VS2010 VB只能写简单的逻辑，很多代码实现不了。
第三部分效果就是
弹出一个窗口 向 左侧任务流程中 注册一个指定名字的Commet

代码：

Sub Main
N$ = InputBox$("Please enter your name:", "Operator", "", 200, 175)
Dim App As Object
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object
Set Cmd = Cmds.Add(SET_COMMENT, True)
retvaltype = Cmd.PutText("REPT", COMMENT_TYPE, 0)
retvaltext = Cmd.PutText(N$, COMMENT_FIELD, 1)
Cmd.ReDraw
End Sub

如果需要合作，请联系微信公众号 一匹大懒虫