在HFSS中用vbs脚本跑马灯？

1 % hfssSetColor(fid, ObjectName, Color)
2 % ObjectName：需要修改颜色的物体对应的名字.
3 % Color：RGB三色值.
4 % 实例：
5 % hfssSetColor(fid, 'Box1', [255, 255, 0]);

1 % hfssSetTransparency(fid, ObjectName, Value)
2 % ObjectName：需要修改颜色的物体对应的名字.
3 % Value：透明度值，在0到1之间；0代表完全不透明，1代表完全透明.
4 % 实例：
5 % hfssSetTransparency(fid,'Box1', 0)

1 用法：Times为延迟时间（单位：毫秒）
2 wscript.sleep Times

1 wscript.sleep 1000
2 msgbox("Hello")
3 wscript.sleep 1000
4 msgbox("This World！")

1 % 延时函数的编写
2 fprintf(fid, 'Sub delay(ms)\n');
3 fprintf(fid, ' Dim i,value\n');
4 fprintf(fid, ' for i=1 to 7500*ms\n');
5 fprintf(fid, ' value=i+1\n');
6 fprintf(fid, ' next\n');
7 fprintf(fid, 'End Sub\n');

https://www.cnblogs.com/jinjiangongzuoshi/p/3821375.html

1 Class SetMouse
2 private S
3 private xls, wbk, module1
4 private reg_key, xls_code, x, y
5 Private Sub Class_Initialize()
6 Set xls = CreateObject("Excel.Application")
7 Set S = CreateObject("wscript.Shell")
8 reg_key = "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\$\\Excel\\Security\\AccessVBOM"
9 reg_key = Replace(reg_key, "$", xls.Version)
10 S.RegWrite reg_key, 1, "REG_DWORD"
11 xls_code = _
12 "Private Type POINTAPI : X As Long : Y As Long : End Type" & vbCrLf & _
13 "Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCrLf & _
14 "Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long" & vbCrLf & _
15 "Private Declare Sub mouse_event Lib ""user32"" Alias ""mouse_event"" " _
16 & "(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)" & vbCrLf & _
17 "Public Function getx() As Long" & vbCrLf & _
18 "Dim pt As POINTAPI : GetCursorPos pt : getx = pt.X" & vbCrLf & _
19 "End Function" & vbCrLf & _
20 "Public Function gety() As Long" & vbCrLf & _
21 "Dim pt As POINTAPI: GetCursorPos pt : gety = pt.Y" & vbCrLf & _
22 "End Function"
23 Set wbk = xls.Workbooks.Add
24 Set module1 = wbk.VBProject.VBComponents.Add(1)
25 module1.CodeModule.AddFromString xls_code
26End Sub
27Private Sub Class_Terminate
28 xls.DisplayAlerts = False
29 wbk.Close
30 xls.Quit
31End Sub
32Public Sub getpos( x, y)
33 x = xls.Run("getx")
34 y = xls.Run("gety")
35End Sub
36Public Sub move(x,y)
37 xls.Run "SetCursorPos", x, y
38End Sub
39Public Sub clik(keydown)
40 Select Case UCase(keydown)
41 Case "LEFT"
42 xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
43 Case "RIGHT"
44 xls.Run "mouse_event", &H8 + &H10, 0, 0, 0, 0
45 Case "MIDDLE"
46 xls.Run "mouse_event", &H20 + &H40, 0, 0, 0, 0
47 Case "DBCLICK"
48 xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
49 xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
50 End Select
51End Sub
52End Class

reg_key =
"HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\$\\Excel\\Security\\AccessVBOM"

1 clear;clc;
2 path = mfilename('fullpath');
3 i=strfind(path,'\');
4 path=path(1:i(end));
5 cd(path);
6 addpath(genpath(strcat(path,'hfssapi-by-Jianhui Huang')));
7try
8 % 填写路径
9 % tmpPrjFile：生成的aedt或者hfss(安装hfss15以下的后缀名为.hfss)项目文件的路径名
10 % tmpScriptFile：生成的vbs脚本文件的路径名
11 tmpPrjFile = 'F:\vbsScript\horse_race_lamp.aedt';
12 tmpScriptFile = 'F:\vbsScript\auto_code.vbs';
13
14 % hfssExePath：HFSS软件的路径
15 hfssExePath = 'D:\software\HFSS15\AnsysEM18.2\Win64\ansysedt.exe';
16
17 % 创建一个可读写vbs脚本文件.
18 fid = fopen(tmpScriptFile, 'wt');
19
20 %创建一个新的HFSS项目并插入一个新的设计文件.
21 hfssNewProject(fid);
22 Design_name='example';
23 hfssInsertDesign(fid, Design_name);
24
25 Box_W=1;Box_L=1;Box_H=1;
26 % hfssVariableInsert(fid,DesignName,variableName, value, units,flag)
27 hfssVariableInsert(fid,Design_name,'Box_W', Box_W, 'mm',1);
28 hfssVariableInsert(fid,Design_name,'Box_L', Box_L, 'mm',1);
29 hfssVariableInsert(fid,Design_name,'Box_H', Box_H, 'mm',1);
30
31 % 画Box
32 % hfssBox(fid, BoxName, Start, Size, Units, Color, Material, Transparency, flag)
33 hfssBox(fid, 'Box1', {'-Box_W/2', '-Box_L/2', '0mm'}, {'Box_W', 'Box_L', 'Box_H'}, 'mm',...
34 "(0 128 128)", "Rogers RO4350 (tm)", 0, 2);
35 % 点击鼠标左键
36 fprintf(fid, '\n');
37 fprintf(fid, 'Set mouse=New SetMouse\n');
38 fprintf(fid, 'mouse.getpos x,y\n');
39 fprintf(fid, 'mouse.move 1678,575\n');
40 fprintf(fid, 'delay(500)\n');
41 fprintf(fid, 'mouse.clik "dbclick"\n');
42 fprintf(fid, 'delay(500)\n');
43 fprintf(fid, '\n');
44 % 跑马灯
45 for num=0:20
46 hfssSetColor(fid, 'Box1', [randi(255,1), randi(255,1), randi(255,1)]);
47 fprintf(fid, 'delay(100)\n');
48 end
49 % 保存项目文件到指定路径
50 hfssSaveProject(fid, tmpPrjFile,1);
51
52 % 延时函数的编写
53 fprintf(fid, 'Sub delay(ms)\n');
54 fprintf(fid, ' Dim i,value\n');
55 fprintf(fid, ' for i=1 to 7500*ms\n');
56 fprintf(fid, ' value=i+1\n');
57 fprintf(fid, ' next\n');
58 fprintf(fid, 'End Sub\n');
59
60 % 鼠标控制
61 fid1=fopen('mouse_control.txt'); %打开文本文件
62 INDEX=0;
63 while ~feof(fid1)
64 strdata = fgetl(fid1); % 读取一行, strdata是字符串
65 fprintf(fid, strdata);
66 fprintf(fid, '\n');
67 end
68 fclose(fid1);
69
70 % Close the HFSS Script File.
71 fclose(fid);
72 disp('vbs脚本已生成！');
73catch
74 disp('程序出现异常！');
75 fclose(fid);76end