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

程序如下，知道的大侠指点啊 'wLW`GX.  
}D~m%%,  
|<YF.7r;  
' Probes_Creator }q/[\3  
sQzr+]+#9  
Sub Main () @bFl8-  
6>d3*  
'@ define probe: E-field (0.0 0.0 0.0) kx0w?A8-  
:OaGdL   
Dim cst_Probes_Pos As Double s;[64ca]Q  
>vf
LlYx  
Dim cst_Probes_Pos_string As String h=cA]^:=  
Dim cst_Probes_Name As String 
||Wg'$3  
YBk* CW9  
K!88 Nox(  
For  cst_Probes_Pos = 0 To 10  STEP 5 toox`|  
\ ]h$8JwV  
     cst_Probes_Pos_string = Format(CStr(cst_Probes_Pos),"0") 6`'KM/  
         cst_Probes_Name="E-field (0  0  " + cst_Probes_Pos_string +")" :rmi8!o  
6:TA8w|  
With Probe 4,6?sTuX  
     .Reset 3V/|"R2s  
     .Name cst_Probes_Name na/,1iI<  
     .Field "Efield" w4&-9[@Y  
     .Orientation "All" (5^SL Y  
     .Xpos "0" x A ZRl  
     .Ypos "0" IC.R4-  
     .Zpos "cst_Probes_Pos" <daBP[  
     .Create '^t(=02J  
End With H,1Iz@W1  
A%#."2vq~  
Next cst_Probes_Pos hniT
MO  
dC}4Er  
End Sub 3DrW[\  
y=WCR*N  
ViG-tb  
解决办法：见 hawk8969提供的简洁程序， 谢谢hawk8969 }l@7t&T|  
rOq>jvy  
你好像弄的挺复杂，我写了个简单的，请参考 EG!):P  
Sub Main () 5NYYrA8,^  
Dim i v/C*?/ ~  
~M J3-<I  
(<5&<JC{  
For  i=5 To 10  STEP 1 oO,"B8a  
7vsXfIP+  
With Probe P0szY"}  
     .Reset a`QKNrA2  
     .Name "probe"&Str(i) W#[3a4%m  
     .Field "Efield" Os|
F  
     .Orientation "All" kv/mqKVr  
     .Xpos "0" "/U~j4O  
 .. ;!N_8{ 7r  
X1~ B  

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

你好像弄的挺复杂，我写了个简单的，请参考 2Xm\;7  
Sub Main () n2+eC9I  
Dim i @"m? #  
=y/VrF.bV  
hD>O LoO  
For  i=5 To 10  STEP 1 8L?35[]e  
;Vad| -  
With Probe P==rY5+s`  
     .Reset DaW_-:@s  
     .Name "probe"&Str(i) 4V7{
5:oa  
     .Field "Efield" *}\!&Zk"  
     .Orientation "All" 5UwaBPj4  
     .Xpos "0" $e! i4pM  
     .Ypos "0" uL!{xuN  
     .Zpos Str(i) :LL>C)(f  
     .Create .jhuC#x{/  
End With Xa2QtJq  
(l.`g@(L  
Next i PF1m :Iz`d  
End Sub

hawk8969，你这个程序帅气啊！英明神武！！ m&OzT~?_>N  
\HDRr*KO  
多谢

History list里面的语言就是VBA语言，可以多多参考 |~W!Y\l-  
#~q{6()e:  
学过C语言基本就会编这个了，不难

1T:M?N8J  
你好。我想请教个问题。 "D0:Y(\  
在我模拟的过程中需要设置许多个探针。得到时域的信号后，需要通过fft转换为频域的图，。我现在只会在后处理里先添加1D结果，再对1D结果进行处理，一个一个来，非常的麻烦。若是选择“+load multiple 1D Results”再选“+1D Result from 1D Result （Rescale xy，fft，derivation，etc）”的进行FFt变换，选择“evaluate all”后，便会出现如下错误 I{Hl2?CnI,  
“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)”。..发帖太少，系统不让我发图片。。。。 EN6a? }5  
因为我大约要设几十个probe，一个一个点的话实在是非常的麻烦，我想问问是需要修改“+1D Result from 1D Result （Rescale xy，fft，derivation，etc）”的macro么？应该怎么改才能一下子对所有的信号分别进行傅里叶变换呢？ e=K2]Y Q{  
非常感谢

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

你先载入一个结果，FFT试试，没问题了再载入多个 JM -Tp!C>  
>k*QkIyq  
探针可以直接得到频域结果啊，你还要FFT干嘛

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

hawk8969:你好像弄的挺复杂，我写了个简单的，请参考 \
dIIZSN  
Sub Main () wXuHD<<  
Dim i
....... (2012-04-13 09:20)  w gATfygr  

1kb?y4xeJ  
请教hawk8969个问题啊。怎么用VBA导出CST里1D Results里Probe里的数据啊，我看了help里的介绍，用这个语句Set Exc = mws.Result1D("probe_s(E1(1))")导不出来啊。 nHD4J;l  
这个CST里1D results里的Probe的数据用VBA是要怎么导出啊？谢谢！