PDMS二次开发软件

 找回密码
 注册 有问题进QQ群591484440

QQ登录

只需一步,快速开始

查看: 6682|回复: 16

[二次开发教程] PML宏程序加密

 火.. [复制链接]

签到天数: 12 天

[LV.3]瞎扑签到3级

新手上路

积分
241
发表于 2013-9-7 23:12:16 | 显示全部楼层 |阅读模式
哎,怎么Marine的模块这么清淡呢,其实marine的资源其实非常的多,高手也都潜水了,只有我这菜鸟,很久前上了dodoinfor的网站,后来不知道怎么没了,现在是这个3D#网站,建议大家也要多上上国外的网站学习 http://www.avevaworldforum.com/forum/ ,最近太忙都没怎么进去看,这个里面大神是很多的,废话多了,正题:
关于PML加密,需安装AVEVA PML Publisher(见图)
具体的也可以参见帮助文件,里面很详细。
不知道这个网站怎么直接贴代码的,我贴上图我常用的几种方法给大家参考:

2013-09-07_224357.png

pmlencrypt

pmlencrypt
今天很开心!

签到天数: 30 天

[LV.5]瞎扑签到5级

管理员

积分
4321
发表于 2013-9-8 17:14:37 | 显示全部楼层
QQ图片20130908171351.jpg

这里就可以插入代码了!
今天很开心!
回复 支持 反对

使用道具 举报

签到天数: 12 天

[LV.3]瞎扑签到3级

新手上路

积分
241
 楼主| 发表于 2013-9-8 21:27:45 | 显示全部楼层
  1.         private void CloseCurrentProject()
  2.         {
  3.             //Close project
  4.             if (Project.CurrentProject.IsOpen())
  5.             {
  6.                 MDB.CurrentMDB.SaveWork("Changes made by tests");
  7.                 MDB.CurrentMDB.Close();
  8.                 Project.CurrentProject.Close();
  9.             }
  10.         }

  11.         private void StartExampleProject()
  12.         {
  13.             //Open project
  14.             Project.CurrentProject.Open("BAS", "SYSTEM", "/XXXXXX");
  15.             MDBSetup setUp = MDBSetup.CreateMDBSetup("/CTBATEST");
  16.             MDB.CurrentMDB.Open(setUp);
  17.         }
复制代码
今天很开心!
回复 支持 反对

使用道具 举报

签到天数: 12 天

[LV.3]瞎扑签到3级

新手上路

积分
241
 楼主| 发表于 2013-9-8 21:29:32 | 显示全部楼层
  1. --___________________________________________________________________________________________
  2. --
  3. --        Copyright (C) 2013 COSCO (ZHOUSHAN) SHIPYARD Co.,LTD DESIGN DEPARTMENT All Rights Reserved.
  4. --
  5. --         File:                HvacExportMatl.pmlfrm
  6. --                   Type:                Form Definition
  7. --                  Group:                Application
  8. --                Keyword:             
  9. --                 Module:                Design
  10. --                 Author:                LiYuan (HVAC Desiger)
  11. --                Created:                08/17/2013 08:22:35
  12. --
  13. --        Description:                Export material for HVAC team

  14. --___________________________________________________________________________________________
  15. --
  16. --        Methods defined:
  17. --
  18. --        Method call                            Return              Description
  19. --        ===========                            ======              ===========
  20. --        HvacExportMatl()                -               
  21. --        track()                                                        -                               
  22. --        rightClickExplorer(ARRAY)                -                               
  23. --        setHvacReport()                                        -                               
  24. --        addZone()                              -                               
  25. --        addZonelist(STRING)                    -                   
  26. --        Apply()                                -                   
  27. --        ductBranch(STRING)                          ARRAY               
  28. --        ductFlanges(STRING)                         ARRAY                       
  29. --        ductInfor(ARRAY,STRING)         ARRAY           
  30. --        DuctsList(DBREF)                                ARRAY           
  31. --        DuctSupportList(DBREF)                        ARRAY                   
  32. --        isDuctSupportList(ARRAY)                ARRAY                       
  33. --        PipeSupportList(DBREF)                        ARRAY                       
  34. --        isPipeSupportList(ARRAY)                ARRAY                       
  35. --        isSupportList(ARRAY)                        -                               
  36. --        isDuctFlangeList(ARRAY)                        ARRAY                       
  37. --        FlangeMatlSpec(STRING,STRING)        ARRAY                       
  38. --        isFlange(STRING,STRING)                        ARRAY                       
  39. --        MergeFlangeMatl(ARRAY)                        ARRAY                       
  40. --        isDuctList(ARRAY)                                ARRAY                       
  41. --        isDuctSteelplate(ARRAY)                        ARRAY                       
  42. --        RemZoneList(STRING)                                -                               
  43. --        SteelplateSpec(STRING)                        ARRAY                       
  44. --        SupportMatl(ARRAY)                                ARRAY                       
  45. --        sdInfor(STRING)                                        ARRAY                       
  46. --        sdFitting(ARRAY)                                ARRAY                       
  47. --        equiFitting(DBREF)                                ARRAY                       
  48. --        hvacFitting(DBREF)                                ARRAY                       
  49. --        isFitting(ARRAY)                                ARRAY                       
  50. --
  51. --___________________________________________________________________________________________

  52. import 'ExplorerAddin'
  53. handle any
  54. endhandle
  55. using namespace 'Aveva.Pdms.Presentation'

  56. Setup Form !!HvacExportMatl
  57.         member .explorer is PMLExplorerControl
  58.         member .element is DBREF
  59.         member .SelectzoneList is ARRAY
  60.         member .ductListInfor  is ARRAY
  61.         member .supportListInfor  is ARRAY
  62.         path down
  63.         container .explorerFrame nobox PmlNetControl 'explorer' anchor t+l width 40 height 10.3
  64.         menu .explorerPopup popup
  65.         !this.explorerPopup.add( 'CALLBACK', 'Add to Zone List', '!this.addZone()', 'addzone')
  66.         path right
  67.         hdist 0
  68.         list .zoneList  'Zone List' callback || multiple width 25 heig 14
  69.         Text .txtFilePath  'The Path of Exported File:' At XMin.explorerFrame YMax.explorerFrame+0.5 tagwid 17 Width 29 is STRING
  70.         button .btnApply   'Apply'  callback |!this.Apply()| At XMax.txtFilePath+1 YMin.txtFilePath Width 18 Height 1

  71.         track    |DESICE| call |!this.track()|
  72. Exit

  73. --___________________________________________________________________________________________

  74. define method .HvacExportMatl()
  75.         using namespace 'Aveva.Pdms.Presentation'
  76.         !this.explorer = object PMLExplorerControl()
  77.         !this.explorerFrame.control = !this.explorer.handle()
  78.         !this.explorer.addeventhandler('OnPopup', !this, 'rightClickExplorer')
  79.         !this.formTitle = 'Hvac Export Material v1.0'
  80.         !this.explorer.initialise('/*','')
  81.         !this.explorer.selectElement(!!ce.name)
  82.        
  83.         !RemMenu = !this.newMenu('RemMenu')
  84.         !RemMenu.add('CALLBACK', 'Rem Selected',        |!this.RemZoneList('RemSelected')|)
  85.         !RemMenu.add('CALLBACK', 'Rem All',                        |!this.RemZoneList('Remall')|)
  86.         !this.zoneList.setpopup(!RemMenu)
  87.        
  88.         !this.txtFilePath.val = 'D:\HvacReport'
  89.         !this.txtFilePath.seteditable(FALSE)
  90. endmethod
  91. --___________________________________________________________________________________________
复制代码
今天很开心!
回复 支持 反对

使用道具 举报

签到天数: 12 天

[LV.3]瞎扑签到3级

新手上路

积分
241
 楼主| 发表于 2013-9-8 21:30:57 | 显示全部楼层
不错 可以插入代码  但是没有语法颜色?
今天很开心!
回复 支持 反对

使用道具 举报

签到天数: 1 天

[LV.1]瞎扑签到1级

新手上路

积分
85
发表于 2013-9-9 23:16:45 | 显示全部楼层
明天测试下,呵呵
我今天最想说: 今天很开心!
回复 支持 反对

使用道具 举报

签到天数: 10 天

[LV.3]瞎扑签到3级

新手上路

积分
249
发表于 2013-9-11 21:47:38 | 显示全部楼层
上诉的一个网站貌似不能登入了,而且无法注册了
今天很开心!
回复 支持 反对

使用道具 举报

签到天数: 12 天

[LV.3]瞎扑签到3级

新手上路

积分
241
 楼主| 发表于 2013-9-13 20:40:46 | 显示全部楼层
http://www.avevaworldforum.com/forum 可以登录啊 今天登录的。
今天很开心!
回复 支持 反对

使用道具 举报

签到天数: 12 天

[LV.3]瞎扑签到3级

新手上路

积分
241
 楼主| 发表于 2013-9-13 20:42:22 | 显示全部楼层
附件                                                                                                                  

pdmsworld

pdmsworld
今天很开心!
回复 支持 反对

使用道具 举报

签到天数: 1 天

[LV.1]瞎扑签到1级

新手上路

积分
81
发表于 2014-8-3 15:25:15 | 显示全部楼层
我就是用marine啊,可惜没什么资料的
今日未签到会员将自动跳转到此处,请签到后再返回
回复 支持 反对

使用道具 举报

本版积分规则

QQ|手机版|关于我们|Archiver|手机版|小黑屋|工程G3D ( 鄂ICP备16022302号-2 )

GMT+8, 2024-11-23 11:25 , Processed in 0.078128 second(s), 32 queries .

Powered by Discuz! X3.5

Copyright © 2001-2024 Tencent Cloud.

快速回复 返回顶部 返回列表