[建模]CST Probes VBA为什么参数变化不能赋给位置？

程序如下，知道的大侠指点啊 
.E<Dz  
Q_}n%P:u  
" i`8l.Lc  
' Probes_Creator qx%jAs+~  
%zljH"F  
Sub Main () 42@a(#z(U  
P|}\/}{`  
'@ define probe: E-field (0.0 0.0 0.0) LknVqZ|k  
fN[n>%)VO<  
Dim cst_Probes_Pos As Double y4<+-  
pt})JMm  
Dim cst_Probes_Pos_string As String VkXn8J  
Dim cst_Probes_Name As String }tR'Hz2  
G8P+A1 f/>  
cjT[P"5$  
For  cst_Probes_Pos = 0 To 10  STEP 5 ~e^)q>Lb7(  
!sK#zAR2  
     cst_Probes_Pos_string = Format(CStr(cst_Probes_Pos),"0") 3+ asP&n  
         cst_Probes_Name="E-field (0  0  " + cst_Probes_Pos_string +")" cjY@Ot*i$  
2f{kBD  
With Probe }su6izx  
     .Reset 1v]t!}W:6  
     .Name cst_Probes_Name x5vzPh`  
     .Field "Efield" dq1TRFu  
     .Orientation "All" B9W/bJ6%  
     .Xpos "0" ITvHD-,\  
     .Ypos "0" {PmzkT}LF  
     .Zpos "cst_Probes_Pos" =uc^433.  
     .Create <Kp+&(l,l  
End With gz\j('~-D  
..$>7y}  
Next cst_Probes_Pos ;Jo*|pju  
=1Sy@MbH3  
End Sub ]Zv,  
,;3:pr  
`,-STIh)  
解决办法：见 hawk8969提供的简洁程序， 谢谢hawk8969 Zg
Bckb  
gV`S%   
你好像弄的挺复杂，我写了个简单的，请参考 *1,=qRjL  
Sub Main () 1.dX)^\  
Dim i m5qCq9Y  
O3xz|&xY&  
E{oB2;P  
For  i=5 To 10  STEP 1 @>Ek'~m  
Ou!)1UFI  
With Probe [oJ& J>U'  
     .Reset `skH-lk,  
     .Name "probe"&Str(i) ZIy(<0  
     .Field "Efield" &<t79d%{  
     .Orientation "All" `D"1 gD}{A  
     .Xpos "0" QX+Y(P`vMK  
 .. `\e'K56W6  
(zEYpTp  

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

你好像弄的挺复杂，我写了个简单的，请参考 1a \=0=[  
Sub Main () Lqg7D\7j  
Dim i :p,c%"8  
t!NrB X  
OX'/?B((  
For  i=5 To 10  STEP 1 [''=><  
#d3[uF]OmW  
With Probe A[K:/tB  
     .Reset L!`*R)
I45  
     .Name "probe"&Str(i) N)`tI0/W  
     .Field "Efield" +SP!
R[a  
     .Orientation "All" ~Ay  
     .Xpos "0" h]G6~TYI5  
     .Ypos "0" A)=X?x  
     .Zpos Str(i) &pa)Ee>  
     .Create }S Y`KoC1  
End With avF&F  
E>o&GYc
 
Next i *9\oD~2Y  
End Sub

hawk8969，你这个程序帅气啊！英明神武！！ '5&B~ 1&  
&Z#Vw.7U  
多谢

History list里面的语言就是VBA语言，可以多多参考 e=NQY8?  
q,19NZ  
学过C语言基本就会编这个了，不难

Y/(-mcR  
你好。我想请教个问题。 :vT%5CQ  
在我模拟的过程中需要设置许多个探针。得到时域的信号后，需要通过fft转换为频域的图，。我现在只会在后处理里先添加1D结果，再对1D结果进行处理，一个一个来，非常的麻烦。若是选择“+load multiple 1D Results”再选“+1D Result from 1D Result （Rescale xy，fft，derivation，etc）”的进行FFt变换，选择“evaluate all”后，便会出现如下错误 6x{IY  
“Template based postprocessing result “All 1D results probes H-field probe signals/-fftam”: Error in calling "evaluate1D" function (Unable to read result file: C:\users\quan\desktop\123\result\all 1D Results Probes H-field probe signals.rd1)”。..发帖太少，系统不让我发图片。。。。 B9-[wg#0G  
因为我大约要设几十个probe，一个一个点的话实在是非常的麻烦，我想问问是需要修改“+1D Result from 1D Result （Rescale xy，fft，derivation，etc）”的macro么？应该怎么改才能一下子对所有的信号分别进行傅里叶变换呢？ mcG$V0D <{  
非常感谢

⊙﹏⊙b汗，居然发出图片了。。。真纠结。

你先载入一个结果，FFT试试，没问题了再载入多个 vK`h;  
J5( D7rp#  
探针可以直接得到频域结果啊，你还要FFT干嘛

6Vbv$ AU  
刚看见你的回复。一个结果是可以用fft的，但是用那个载入多个的以后，就不可以fft了，探针可以直接得到频域结果么？我刚才看了一下。没找到。。。。，求指教。

hawk8969:你好像弄的挺复杂，我写了个简单的，请参考 ^)f{q)to  
Sub Main () gDQkn {T.%  
Dim i
....... (2012-04-13 09:20)  .D
8~)ZWN  

}+91s'/c  
请教hawk8969个问题啊。怎么用VBA导出CST里1D Results里Probe里的数据啊，我看了help里的介绍，用这个语句Set Exc = mws.Result1D("probe_s(E1(1))")导不出来啊。 lAdDu  
这个CST里1D results里的Probe的数据用VBA是要怎么导出啊？谢谢！