用代码修改类名
新创建一个类TestClass,用代码修改其类名为NewTestClass:
static void ChangeClassName(Args _args)
{
#AOT
TreeNode treeNode = TreeNode::findNode(#ClassesPath+'\\TestClass');
;
treeNode.AOTsetProperty("Name","NewTestClass");
treeNode.AOTcompile(1);
treeNode.AOTsave();
}
{
#AOT
TreeNode treeNode = TreeNode::findNode(#ClassesPath+'\\TestClass');
;
treeNode.AOTsetProperty("Name","NewTestClass");
treeNode.AOTcompile(1);
treeNode.AOTsave();
}
在运行到treeNode.AOTcomplile(1)时就报错说,"无效名称,类TestClass已经存在".由于类xCompilerOutPut的方法的源代码没有公开,所以不晓得它是怎么玩的。
原因可能是由于AX的类有两个地方可以指定类名,Name属性,和类声明classDeclaration的类定义,AX4.0在修改Name属性的时候并没有修改类声明classDeclaration中的类定义,所以造成了错误。
变通的做法是修改classDeclaration:
static void ChangeClassName(Args _args)
{
#AOT
TreeNode treeNode = TreeNode::findNode(#ClassesPath+'\\TestClass');
;
treeNode = treeNode.AOTfindChild("classDeclaration");
treeNode.AOTsetSource(strreplace(treeNode.AOTgetSource(),"class TestClass","class NewTestClass"));
treeNode.AOTcompile(1);
treeNode.AOTsave();
}
{
#AOT
TreeNode treeNode = TreeNode::findNode(#ClassesPath+'\\TestClass');
;
treeNode = treeNode.AOTfindChild("classDeclaration");
treeNode.AOTsetSource(strreplace(treeNode.AOTgetSource(),"class TestClass","class NewTestClass"));
treeNode.AOTcompile(1);
treeNode.AOTsave();
}
这样倒是可以修改好。不过由于是使用了字符串替代,所以局限性比较大。
在AX2009上试了下,已经把这个问题修复了,修改Name属性的同时会把类声明中的定义修改成新的类名。不知道它是怎么实现的。