[建模]CST MWS用VBA批量建模的问题

^RS`q+g  
我要建立一条渐变的曲线，曲线上的点的位置是在matlab里面优化出来的，所以没有解析的表达式，我想有两种方式来处理： 1@0ZP~LTB  
{@[z-)N7\,  
1.在Matlab里做曲线拟合，然后直接用CST MWS里的macro构造 of:xj$dQ_  
2.在CST MWS里直接给点然后连线 #PRkqg+|  
aV8]?E5G  
对于第二种，因为有400多个点，一个一个手写不现实啊，貌似有VBA可以解决这个问题，然后我的问题是，学习用VBA是否需要先系统地学习VB?然后各位有没有能解决这个问题的资料?谢谢！ j1,ir  
 bR5+({yH  
论坛上有少 .. n.xW"omN  
ugt|'i  

未注册仅能浏览部分内容，查看全部内容及附件请先 登录 或 注册

推荐你个方法，先用curve工具随便建立一个3D线 YAqv:
  
JZP>`c21y]  
然后打开历史菜单，双击你建立3D线的那条记录，将其中的点改为你需要的点，不需要学VB

我试了，点少可以，但是如果点很多，比如500-1000个点呢，这么做是不是容易出错而且很麻烦。。。

打开一个polygon曲线的代码如下图所示 \$$DM"+:;H  
v*U OD'tk  

图片:vba.jpg

7a\at)q/y  
,Y ./9F  
这里都是一个给一个point 然后连线到下一个point，如果是几百个点，岂不是要手动输入几百个点...下次换了数据，又得重新输入呀 '9.L5*wh]  
}}G`yfs}r  
不知道这里面的point中的x和y坐标，可不可以不用单个的数值或者单个的数值变量，而写成一个向量，或者写成一个数组，然后就方便了

楼主 请教你个问题 >1BDt:G36  
能问你个问题吗？我想用VBA把CST里的probe里的数据导出到EXCEL里，试了用help里提供的 j4%\'xj:  
Set Exc = mws.Result1D("probe_s(E1(1))") 这个方法，但是就是导不出来啊。 A=96N@m6  
想知道CST里1D results里的Probe的数据要怎么导出啊？谢谢！

loloxy:楼主 请教你个问题 @l?2",  
能问你个问题吗？我想用VBA把CST里的probe里的数据导出到EXCEL里，试了用help里提供的 ,QHn} 3fW  
Set Exc = mws.Result1D("probe_s(E1(1))") 这个方法，但是就是导不出来啊。 M7gM#bv>L  
想知道CST里1D results里的Probe的数据要怎么导出啊？谢谢！ (2013-06-27 16:56)  trg&^{D<  

vb2aj!8_?  
如果是一维数据，直接file-export就可以了，二到三维的话也就多几个坐标而已，是这样的数据么？

linfenghan:如果是一维数据，直接file-export就可以了，二到三维的话也就多几个坐标而已，是这样的数据么？ (2013-06-29 21:08)  ZW|VAn'>  

u3H2\<  
谢谢楼主的回答！关键是我想用VBA语句来导出CST里probe的数据。我现在将探针改成只测y方向的电场了，应该算是一维的数据了。这该怎么做啊？

loloxy:谢谢楼主的回答！关键是我想用VBA语句来导出CST里probe的数据。我现在将探针改成只测y方向的电场了，应该算是一维的数据了。这该怎么做啊？ (2013-06-29 21:19)  {zUc*9  

["Q8`vV0WO  
用VBA我是真心不会，操作的话我会。不过有条路子你可以试试： P+3G*M=}  
Xx|&%b{{r  
我们在操作export数据过后，在history list里也会留下记录，你先用程序的功能导出，然后查看那条语句，打开看里面的程序，那应该就是VBA的程序了，你可以研究研究再改动一下说不定就可以了，如果可以的话，别忘了告诉我这样对不对

linfenghan:用VBA我是真心不会，操作的话我会。不过有条路子你可以试试：
我们在操作export数据过后，在history list里也会留下记录，你先用程序的功能导出，然后查看那条语句，打开看里面的程序，那应该就是VBA的程序了，你可以研究研究再改动一下说不定就可以了，如果可以的话，别忘了告 .. (2013-06-30 17:01)  _"sRL}-Z  

JA{YdB;il  
谢谢啊！我试了，但是这个export操作不会再history里留下记录。最后我用下面的VBA把probe的数据导出到txt里了： ^mum5j
 
mws.SelectTreeItem ("1D Results\Ey\probe1 [1]") R$fna[Xw@/  
With mws.ASCIIExport Vd?v"2S(9  
    .Reset `U g.c  
    .filename (".\example" & Str(ii) & ".txt") q~^:S~q  
    .Mode ("FixedWidth") fjWh}w8  
    .Step (1) gNqV>p  
    .Execute \9}5}X_x.  
+ kF[Oh#  
End With

loloxy:谢谢啊！我试了，但是这个export操作不会再history里留下记录。最后我用下面的VBA把probe的数据导出到txt里了： jN}7BbX  
mws.SelectTreeItem ("1D Results\Ey\probe1 [1]") ;]M67ma7C  
With mws.ASCIIExport ba9<(0`  
    .Reset /Z " 4[  
....... (2013-06-30 21:46)  O|&TL9:  

lq8ko@  
原来如此！感谢分享！