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

[;7&E{,C  
我要建立一条渐变的曲线，曲线上的点的位置是在matlab里面优化出来的，所以没有解析的表达式，我想有两种方式来处理： l`:M/z6"  
&y[Od{=  
1.在Matlab里做曲线拟合，然后直接用CST MWS里的macro构造 u%Bk"noCa  
2.在CST MWS里直接给点然后连线 ^cz#PNB  
[>A%%  
对于第二种，因为有400多个点，一个一个手写不现实啊，貌似有VBA可以解决这个问题，然后我的问题是，学习用VBA是否需要先系统地学习VB?然后各位有没有能解决这个问题的资料?谢谢！ ? DWF7{1  
c_s=>z  
论坛上有少 .. 7H:1c=U  
EEEYNu/4/  

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

推荐你个方法，先用curve工具随便建立一个3D线 ~Iw7Xq E2  
)rX["=  
然后打开历史菜单，双击你建立3D线的那条记录，将其中的点改为你需要的点，不需要学VB

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

打开一个polygon曲线的代码如下图所示 oScKL#Hu  
v-MrurQ4  

图片:vba.jpg

5;:964Et  
P-LdzVt(^  
这里都是一个给一个point 然后连线到下一个point，如果是几百个点，岂不是要手动输入几百个点...下次换了数据，又得重新输入呀 0{k*SCN#  
~]l T>|X  
不知道这里面的point中的x和y坐标，可不可以不用单个的数值或者单个的数值变量，而写成一个向量，或者写成一个数组，然后就方便了

楼主 请教你个问题 25-5X3(>j=  
能问你个问题吗？我想用VBA把CST里的probe里的数据导出到EXCEL里，试了用help里提供的 pQ/ bIuq  
Set Exc = mws.Result1D("probe_s(E1(1))") 这个方法，但是就是导不出来啊。 _=d X01  
想知道CST里1D results里的Probe的数据要怎么导出啊？谢谢！

loloxy:楼主 请教你个问题 y<<:6OBj  
能问你个问题吗？我想用VBA把CST里的probe里的数据导出到EXCEL里，试了用help里提供的 ^.d97rSm  
Set Exc = mws.Result1D("probe_s(E1(1))") 这个方法，但是就是导不出来啊。 +gQn,HX  
想知道CST里1D results里的Probe的数据要怎么导出啊？谢谢！ (2013-06-27 16:56)  c<8RRY
s  

4ZZ/R?AiK  
如果是一维数据，直接file-export就可以了，二到三维的话也就多几个坐标而已，是这样的数据么？

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

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

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

3 <RkUmR  
用VBA我是真心不会，操作的话我会。不过有条路子你可以试试： FW(y#Fmqs  
rVq=,>M9  
我们在操作export数据过后，在history list里也会留下记录，你先用程序的功能导出，然后查看那条语句，打开看里面的程序，那应该就是VBA的程序了，你可以研究研究再改动一下说不定就可以了，如果可以的话，别忘了告诉我这样对不对

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

xMJF1O?3  
谢谢啊！我试了，但是这个export操作不会再history里留下记录。最后我用下面的VBA把probe的数据导出到txt里了： +cv7]  
mws.SelectTreeItem ("1D Results\Ey\probe1 [1]") }Zu2GU$6  
With mws.ASCIIExport OJ$169@;  
    .Reset ?P4@U9i  
    .filename (".\example" & Str(ii) & ".txt") .E:[\H"  
    .Mode ("FixedWidth") #+Z3!VS  
    .Step (1) 6#VG,'e3  
    .Execute qp (ng8%c  
Gb+cT  
End With

loloxy:谢谢啊！我试了，但是这个export操作不会再history里留下记录。最后我用下面的VBA把probe的数据导出到txt里了： l;U9dO}/[  
mws.SelectTreeItem ("1D Results\Ey\probe1 [1]") {y<[1Pms  
With mws.ASCIIExport V`~$| K[  
    .Reset *{tn/ro6a  
....... (2013-06-30 21:46)  )/2* <jr  

|s|
>46E  
原来如此！感谢分享！