中山移动网站设计公司,wordpress 获取自定义字段值,动态wordpress模板,广东加盟网站建设本篇在西门子COMOS软件开发定制学习6-管理界面定制基础上定制#xff0c;简单介绍两个查询列表之间的数据交互。实现效果#xff1a;在左侧列表中选择某一设备#xff0c;右侧列表自动根据所选设备#xff0c;显示该设备相关的设计图纸(如PID图纸或电气图纸等)#xff1…本篇在西门子COMOS软件开发定制学习6-管理界面定制基础上定制简单介绍两个查询列表之间的数据交互。实现效果在左侧列表中选择某一设备右侧列表自动根据所选设备显示该设备相关的设计图纸(如PID图纸或电气图纸等)在右侧列表中选择某一图纸点击“查看文档”按钮将自动打开设计图纸并在图纸中自动定位到左侧列表所选的设备。效果动图如下实现原理借助Query的Onchange事件实现左侧列表选择时触发动作。设备与图纸通过docObj对象连接,假如设备对象为a那么a.BackPointerDocObjs 为设备所在的所有图纸链接的集合a.BackPointerDocObjs.item(1).owner 为设备所在的第一份图纸相反如果a为图纸a.docObjs 为图纸中所有设备链接的集合a.docObjs.item(1).reference 为图纸中包含的第一个设备定制过程如下在“设备管理”基础对象的界面中进入“设计模式”鼠标右键创建“属性”。选择“框架”新建文档Query删除Query中的“模型”列在“文档”列的表头处鼠标点击右键选择属性编辑“文档”列的“对象评估”选项卡导航步骤中选择“Owner”编辑“值计算”选项卡“显示”参数选择“名称”点击“确定”按钮关闭当前窗口。在“描述”列的表头处鼠标点击右键选择属性。编辑“对象评估”选项卡选择“导航步骤”为“Owner”。点击“确定”按钮关闭当前窗口。点击Query左上方的“保存”按钮保存Query。选择保存位置并输入名称。回到设备管理界面新建“属性”选择显示类型为“查询”名称为“Qry2”。拖拽设置Qry2的尺寸大小在Qry2上鼠标右键选择“属性|显示属性”。选择此前创建的文档Query拖拽至当前窗口“SO1基础项目”处并取消“立即执行查询”的勾选。点击“确定”按钮,保存并关闭窗口在左侧Query上鼠标右键选择“属性|属性”。在“脚本”选项卡选择“Sub OnChange()”输入以下脚本Sub OnChange()编辑单位或值之后获取当前环境的所有QueryBrowserSet Brws GetSpecOwner.Workset.globals.SpecQBrowsersSet specSteps NothingSet specSteps owner.spec(Qry1)Set QBrowser1 Nothing获取名称为“Qry1”的QueryBrowser即当前Query的BrowserSet QBrowser1 Brws.Item(specSteps.SystemFullName)获取名称为“Qry2”的QueryBrowser即右侧Query的BrowserSet QBrowser2 Brws.Item(owner.spec(Qry2).SystemFullName)Set Query2 QBrowser2.QueryIf QBrowser1.selectedRowObjects.Count0 ThenSet SelObjQBrowser1.selectedRowObjects.Item(1)当前设备关联的docObjs集合赋予Qry2中进行显示Set Query2.baseQuery.OrigCollectionSelObj.BackPointerDocObjsQuery2.refreshQBrowser2.refreshEnd IfEnd Sub接下来进行功能测试。首先将设备通过拖拽方式绘制在多个PID图纸中并保存。然后在“单元”选项卡的“管理界面”对象中查询此设备并在左侧列表中选中其相关图纸将自动显示在右侧列表中。接下来定制“查看文档”按钮功能。在管理界面中新建“属性”。在脚本选项卡编辑“Sub OnClick()”输入脚本如下Sub OnClick()事件按下按钮之后Set Brws GetSpecOwner.Workset.globals.SpecQBrowsersSet specSteps NothingSet specSteps owner.spec(Qry2)Set QBrowser1 Nothing获取名称为“Qry2”的QueryBrowserSet QBrowser1 Brws.Item(specSteps.SystemFullName)If QBrowser1.selectedRowObjects.Count0 ThenSet SelObjQBrowser1.selectedRowObjects.Item(1)打开右侧列表中所选对象因此Query行对象是docObj类型对象即打开docObjWorkset.Globals.Navigator.GetCurrentTree.DefaultAction SelObjEnd IfEnd Sub功能测试右侧列表中选择任一文档点击“查看文档”按钮。将自动打开PID图纸并在图纸中自动定位到左侧列表所选的设备上。今天就到这里欢迎关注~转发~推荐阅读西门子COMOS软件开发定制学习7-嵌入谷歌浏览器内核西门子COMOS软件开发定制学习6-管理界面定制西门子COMOS软件开发定制学习5-用程序绘制椭圆西门子COMOS软件开发定制学习4-小游戏
