PD12的自动化武器

PD12的自动化武器

Author:zfive5(dong)

Email :[e-mail]

 

引子

 

前些日子,在用pd12画对象模型的时候,由于自己没有仔细看清规范(看来自己视力真的不太好),导致自己的敲入的属性编码,全都命名为Pascal方式了,一个个点击开改吗?(20几个类,200多个属性呀,估计起码也要30分钟)咋办? 受一位老同事的影响和教育,打算看看有什么懒惰的方法来达成目标,值得庆幸的是PD12支持自动化(就是IDispatch),当然还有另一种思路没有实践,估计也没有问题,xml分析.

 

方法

 

C#例子:

PdCommon.ApplicationClass a =new PdCommon.ApplicationClass();
PdOOM.BaseModel ExistingModel = (PdOOM.BaseModel)a.OpenModel("D://1.oom", PdCommon.OpenModelFlags.omf_DontOpenView|PdCommon.OpenModelFlags.omf_Hidden);

foreach(PdOOM.Package p1in ExistingModel.Packages)

{

 if(p1.Code == "haha")

{

try

{

           foreach (PdOOM.Class c1in p4.Classes)

          {

               if (c1.IsShortcut() ==false)

               {

                    foreach (PdOOM.Attribute a1in c1.AllAttributes)

                   {

                           string sc="";

                           If (a1.Code.Length > 1)

                               sc = a1.Code.Substring(0, 1).ToLower() + a1.Code.Substring(1);

                           else

                            sc = a1.Code.ToLower();

                          a1.Code=sc;

                    }

          }

       }

goto ZFIVE5_1;

     }

   }catch(Exception e2)

   {

   }

 }

}

ZFIVE5_1:

ExistingModel.Close(true);

ExistingModel =null;

 

这个例子调试编写大约花了1个多小时,比我直接修改可能多花点时间,但作为回报熟悉学会了一种新东西的使用,将来其它类似问题也能够作到通用.

 
如果有需要和可能的话,以后自己编写设计大型程序时,一定会考虑script(自动化).当然xml是更开放的另一种选择.