用户自定义子程序 这一节主要通过一个例子来说明用户自定义子程序的使用， 例子如下所示， 是用滑轮吊 着的一根缆绳，缆绳将吊起一个重物，承受动载荷，我们将分析如果动载荷超出了缆绳承受 极限的话，将会出现怎样的结果。这个缆绳是通过一系列质量块通过弹簧连接来模拟的，模 拟过程中将会使用用户自定义子程序来修改弹簧子程序，如果动载荷超出了缆绳承受极限， 这个用户自定义子程序将会使弹簧失去作用。 一、启动 Virtual.Lab 环境变量 在你安装好 Virtual.Lab 后，把下面这行程序 call “C:Program FilesIntelFortrancompiler80IA32BINIFORTvars.bat“ 加到软件的启动批处理文件：工作盘:Program FilesLMSVirtual.Lab.R6A-SL1VlStart.bat 中，修改后的批处理文件如下所示。 二、打开已有模型 选择 File ? Open ? Cable.CATAnalysis，打开已有的模型文件。在这个模型文 件中， 在模拟缆绳的一系列弹簧中都是采用标准定义公式来定义的， 并对模型进行了求 解，下面将使用用户自定义子程序来代替弹簧的标准定义公式。 三、定义 TSDA 用户自定义子程序 1、 找到并修改 tsda.f 选择 Insert ? Customized Solver，文档结构中将会出现一个新的分支，在 Analysis Model ? Customized Solvers 下面右击 Customized Solver.1 选择 Insert New Routine ? Force ? tsda，弹出一个关于 tsda 的用户自定义子程序对话框，在 Process Block 后面加上如下的 程序语句。 DOUBLE PRECISION FLIMIT INTEGER BREAK_TSDA(100) SAVE BREAK_TSDA FLIMIT=130. FORCE = K * ( DISTNC - FREEL ) + C * VELCTY IF (DABS(FORCE) .GT. FLIMIT) THEN BREAK_TSDA(ENMBR)=999 ENDIF IF (BREAK_TSDA(ENMBR) .EQ. 999) THEN FORCE=0. ENDIF 点击 ok 关闭对话框。 2、 建立一个新的 tsda 子程序数据连接库 userdef.dll 双击 Customized Solver.1，弹出 Customized Solver 对话框，点击 Test Build 按钮，汇编 完成后关闭 Customized Solver 对话框。 四、使用用户自定义程序修改模型并求解 1、 选择 Insert ? New Analysis Case，文档中就会出现一个名为 AnalysisCase.2 的新分 支，右击 AnalysisCase.2 选择 Properties，在弹出的对话框，点击特征属性按钮，在 特称名称项输入 Custom TSDA，点击 ok 关闭特征对话框。 2、 在 Custom TSDA 下面双击 Solution Set，设置 Ending Time 为 5s。 3、 下面要做的就是把弹簧力的参数用用户自定义子程序来代替，这里为了方便，只对 TSDA.21 做修改，双击 TSDA.21，弹出 TSDA 对话框，设置 User-Defined 为 true。 4、 在 Custom TSDA 下面右击 Solution Set，选择 Compute 对模型进行计算。 5、 点击 Animate 按钮，仿真模型，通过仿真可以看到当弹簧 TSDA.21 的力超过载荷承受力 130N 时缆绳将会断裂。 五、对 TSDA.21 的力进行后处理 1、 从机构设计平台中点击运动曲线绘制按钮，弹出曲线绘制窗口。 2、 在对话框中选中 Analysis Case 并从右边的 Plots Manager 窗口中选择 Custom TSDA analysis。 3、 在曲线图绘制中，X 轴系统自动设为仿真时间，Y 轴选择 TSDA.21.for。 4、 完成曲线绘制的设置后，点击曲线创建按钮，在右边的 plots manager 中我们就可以看到出现了一个新的分支，点击新曲线展示按钮，在弹出的 New Function Display对话框中选择 2D Plots,点击 Finish。在弹出的窗口中右击选择 Select Data，弹出 Select Data 窗口，选择*Custom TSDA* ? SYSTEM:Time_TSDA.21，出现如下所示的曲 线图。 图中说明一开始 TSDA.21 的力是满满增加，当它达到 130N 时，缆绳断裂，力值回 到 0，与用户自程序定义的结果一致。