用VisualBasic脚本PC-DMIS隐藏CAD窗口标签开源.PDF

用 Visual Basic脚本PC-DMIS 隐藏 CAD窗口标签(开源) 深圳市银宝山新科技股份有限公司 518108 王绪杰 0755论坛ID:arttk 【摘要】:对于测量点数较多的工件，想要快速在 CADWindow 预览哪些点超差，哪些点合格；或者说，想隐藏合 格点或者不合格点，在 PC-DMIS 中用脚本实现，免去了一个一个去隐藏标签，可以节省较多时间，提高工作效率。 【关键词】:接口、引用、脚本、CADWindow、标签、ShowIDOnCad、Visual Basic 目的 快速隐藏PC-DMIS中CADWindow里评价的合格标签或者不合格标签。 方法 在Visual Basic中引用pcdlrn.tlb接口文件，利用ShowIDOnCad方法函数，写了脚本，实现 对CADWindow中评价的合格标签或者不合格标签隐藏的效果。 1，打开Visual Basic 程序，新建一个工程，选择“标准 EXE”。 2，在Visual Basic菜单中点击“工程-引用” 3，在弹出的对话框的列表中，找到当前计算机上安装的 PC-DMIS 对应版本的类型库文件（一 般是以“PC-Dmis”开头的项），然后勾选它，点确定。 注：如果当前计算机没有安装PC-DMIS，则要对pcdlrn.tlb文件进行注册 4，在工程窗体上画几个控件：一个Command、一个Frame、两个Option，把两个Option控件 放入Frame控件中。窗体和控件的长、宽、位置和Caption属性，可自定义。 5，双击Command控件，进入代码编辑窗口。 代码开源并释义 在代码编辑窗口中的Command的单击事件（Click）中，填入如下代码： On Error Resume Next’执行代码时，出现错误继续下一步 Dim PcdApp As Object’申明变量PcdApp为对象 Set PcdApp = CreateObject(pcdlrn.application)’实例化PcdApp为PC-DMIS程序 Dim PcdCmds As Object’申明变量PcdCmds为对象 Set PcdCmds = PcdApp.ActivePartProgram.Commands’实例化 PcdCmds 为当前激活的测量程序 中的命令集合 Dim PcdCmd As Object’申明变量PcdCmd为对象，指当前激活的测量程序中的命令 Dim HideOK As Boolean’申明变量HideOK为布尔类型 HideOK = True’为变量HideOK赋值（真） For Each PcdCmd In PcdCmds’遍历命令集合中的每个命令 If PcdCmd.IsDimension Then’如果命令是尺寸时 If PcdCmd.Type DIMENSION_START_LOCATION And PcdCmd.Type DIMENSION_END_LOCATION Then’如果命令不是尺寸开始位置和终止位置时 If Format(PcdCmd.DimensionCommand.OutTol, 0.000) 0 Then HideOK = False’如 果尺寸的超差值不等于“0.000”时，变量HideOK的值变为“假”。Format函数，保留三位小数。 End If ElseIf PcdCmd.IsDimInfo Then’如果命令为尺寸信息时。此处和