PD12的自动化武器

PD12的自动化武器

Author:zfive5(dong)

Email :zfive5@yahoo.com.cn

 

引子

 

前些日子,在用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 p1 in ExistingModel.Packages)

{

  if(p1.Code == "haha")

{

try

{

            foreach (PdOOM.Class c1 in p4.Classes)

           {

                if (c1.IsShortcut() == false)

                {

                     foreach (PdOOM.Attribute a1 in 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是更开放的另一种选择.