Workbench JScript---批量创建Coordinate Systems

whatinrain

Coordinate System在Ansys Workbench中使用很多，无论是加载还是后处理都有可能用得到。这里介绍一种快速批量创建coordinate systems的方法，使用JScript来实现。
先是坐标文件，分别有坐标名称，原点坐标x，y，z。规则是前后没有空行空格；名称和坐标x，y，z之间用一个或多个空格分开。文件名称是coordinate.txt，存放在C盘根目录。不好意思，太懒了就选了个固定文件名的。如果想改可以直接改源文件。
坐标文件例子，

1. cs1 10.0  20.0 -30.0
   
2. cs2  1 2 3  
   
3. cs3  100 10.23   90.05

复制代码

这里是源文件，可以拷贝保存后缀名为js的文件，使用时在tools->run macro打开。以下程序在v11.0，12.0，12.1和13.0p2中调试通过。

1. 
   
2. //调用函数
   
3. UserCoordinateSystem();
   
4.   //函数定义
   
5. function UserCoordinateSystem()
   
6. {
   
7. //读坐标文件
   
8.     var fso = new ActiveXObject("Scripting.FileSystemObject");
   
9.     var fname="c:\\coordinate.txt";
   
10.     var f=fso.OpenTextFile(fname,1);
    
11.     while(!f.AtEndOfStream)
    
12.     {
    
13.         var r=f.ReadLine();
    
14. //去除空格
    
15.         var re=/ +/g;
    
16.         var d=r.replace(re," ");
    
17.         
    
18.         var ss=d.split(" ");
    
19. //读取名称和原点坐标
    
20.         var cName=ss[0];
    
21.         var cX=parseFloat(ss[1]);
    
22.         var cY=parseFloat(ss[2]);
    
23.         var cZ=parseFloat(ss[3]);
    
24. //调用创建坐标系函数
    
25.         CreateCoordinateSystem(cName,cX,cY,cZ);
    
26.     }
    
27.     //关闭文件
    
28.     f.Close();
    
29. }
    
30. 
    
31. function CreateCoordinateSystem(csName,csX,csY,csZ)
    
32. {  
    
33. //获得一个树枝
    
34. var branchObj = DS.Tree.FirstActiveBranch;
    
35. //获得模型
    
36. var CurrentModels = branchObj.Model;
    
37. //判断是否有坐标系这个树枝，如果没有则创建，适用于v11.0
    
38.      if (CurrentModels.CoordinateSystemGroup)
    
39.       curCoorGroup = CurrentModels.CoordinateSystemGroup;
    
40.    else
    
41.       curCoorGroup = CurrentModels.AddCoordinateSystemGroup();
    
42.   //通过选中的geometry来创建坐标系，这里不选geometry而是通过定义原点来创建
    
43. var currCoor =  curCoorGroup.AddCoordinateSystem(SM);
    
44. //把坐标文件中的值读进来
    
45.    currCoor.Name=csName;
    
46.    currCoor.OriginAlignment=0;
    
47.    currCoor.OriginXLocation=csX;
    
48.    currCoor.OriginYLocation=csY;
    
49.    currCoor.OriginZLocation=csZ;
    
50. //指明是cartesian，如果是1则是cylindrical，如果2呢？
    
51.    currCoor.CoordinateSystemType = 0;
    
52. //后面的可以忽略不计，坐标方向和绝对坐标一致
    
53.    currCoor.AxisPriority = 0;
    
54.    currCoor.PrimaryAxis = 1;
    
55.    currCoor.SecondaryAxis = 2;
    
56.    currCoor.PrimaryAxisAlignment = 2;
    
57.    currCoor.SecondaryAxisAlignment = 3;
    
58. //刷新一下树
    
59.    DS.Script.fillTree();
    
60. }   

复制代码

打完收工。

scyangyu

为什么要采用坐标文件，能不能采用数组方式？

whatinrain

2# scyangyu
这是我自己定义的，当然也参考了DesignModeler中点文件的格式。

qomolangma888

楼主都用上ANSYS 13p2了，羡慕呀！！！

xpc

这是用的什么编辑器？

yatto

学习，存档.