新建文件夹.rar

%%CST文件初始化 clc clear cst = actxserver('CSTStudio.application');%首先载入CST应用控件 mws = invoke(cst, 'NewMWS');%新建一个MWS项目 app = invoke(mws, 'GetApplicationName');%获取当前应用名称 ver = invoke(mws, 'GetApplicationVersion');%获取当前应用版本号 invoke(mws, 'FileNew');%新建一个CST文件 path=pwd;%获取当前m文件夹路径 filename='\cst.cst';%新建的CST文件名字 fullname=[path filename]; invoke(mws, 'SaveAs', fullname, 'True');%True表示保存到目前为止的结果 invoke(mws, 'DeleteResults');%删除之前的结果。注：在有结果的情况下修改模型会出现弹窗提示是否删除结果，这样运行的程序会停止，需等待手动点击弹窗使之消失 %%CST文件初始化结束 % WCS = invoke(mws,'WCS'); % invoke(WCS,'ActivateWCS','local'); % invoke(WCS,'AddToHistory','define wcs') sCommand = ''; sCommand = [sCommand 10 'WCS.ActivateWCS','"local"']; invoke(mws,'AddToHistory','define WCS',sCommand); % sCommand = ''; % sCommand = [sCommand 10 'WCS.MoveWCS','"local","10","0","0"']; % invoke(mws,'AddToHistory','move WCS',sCommand); p=10; for i = 1:10 a= 10*i; invoke(mws,'StoreParameter','m',a); sCommand = ''; sCommand = [sCommand 10 'WCS.MoveWCS','"local","m","0","0"']; sCommand = [sCommand 10 'WCS.MoveWCS','"local","-m","0","0"']; invoke(mws,'AddToHistory','move WCS',sCommand); end