apdl和ansys語言的案例
斯姆勒 | Ansys 經(jīng)典結(jié)構(gòu)分析APDL語言詳解及Ansys二次開發(fā)高級(jí)培訓(xùn)
點(diǎn)擊報(bào)名：http://jishulink.mikecrm.com/1B085K9
ANSYS使用APDL語言提取節(jié)點(diǎn)編號(hào)及對(duì)應(yīng)坐標(biāo) ￥10
要注意，這里面得到的nl是從小到大排列的，只包含一部分節(jié)點(diǎn)，而我們得到的locx卻是所有節(jié)點(diǎn)的坐標(biāo)，所以我們還需要定義一個(gè)locx1，再用一個(gè)循環(huán)把你想選擇的節(jié)點(diǎn)編號(hào)和其坐標(biāo)一一對(duì)應(yīng)起來。具體的關(guān)系從下面的圖可以看出。
*DO, j,1,nnod,1
locx1(j)=locx(nl(j)) !節(jié)點(diǎn)對(duì)應(yīng)坐標(biāo)
…………………………….
*ENDDO
這時(shí)我們就已經(jīng)得到了想選取的節(jié)點(diǎn)坐標(biāo)及對(duì)應(yīng)編號(hào)，此時(shí)我們需要運(yùn)行一個(gè)Output.mac文件，把得到的數(shù)組輸出。
Output.mac 中包含的內(nèi)容
!----------------------------------!
*cfopen,node_number.dat, ! Generate Ist File
*vwrite,nl(1)
(1F6.0)
*cfclos
*cfopen,node_locx.dat,
*vwrite,locx1(1)
(1E15.6)
*cfclos
………………….剩下的按照同樣格式寫
!----------------------------------!
最后得到的txt文件的內(nèi)容分別如下：
展開 ANSYS經(jīng)典中使用APDL語言施加移動(dòng)高斯熱源
很多人在使用ANSYS模擬焊接和增材制造過程中都面臨高斯熱源施加的難題，現(xiàn)在我來演示一下如何在ANSYS經(jīng)典中使用APDL語言施加高斯熱源，以及如何實(shí)現(xiàn)熱源的移動(dòng)。
打開經(jīng)典界面，然后選擇Parameters→Functions→Define/Edit
然后在彈出的Function Editor中選取你想要輸入的熱源函數(shù)，我這里使用了一個(gè)高斯體熱源函數(shù)，也可以替換成高斯面熱源或者雙橢球熱源，具體函數(shù)請(qǐng)自行查找文獻(xiàn)
點(diǎn)擊Save后，保存后綴名為.func的函數(shù)文件，其名稱為func11.func
然后退出，重新選擇Parameters→Functions→Read From file
選擇剛才定義的函數(shù)
此時(shí)彈出對(duì)話框，要求輸入函數(shù)的名稱，及對(duì)應(yīng)的參數(shù)的大小，我們定義名稱為gauss，兩個(gè)參數(shù)常量分別為qmx=1，r=1，局部坐標(biāo)系選0就意味著這個(gè)函數(shù)是在全局坐標(biāo)系中施加的，可以換成其他已經(jīng)定義的任何局部坐標(biāo)系
然后點(diǎn)擊List→Files→Log file
然后我們就可以發(fā)現(xiàn)在Log file文件里自動(dòng)生成了函數(shù)func11對(duì)應(yīng)的數(shù)據(jù)表，其是一個(gè)維度6*20的Table表，我們?cè)赼rray parameter中也可以查看其具體數(shù)據(jù)，為什么會(huì)生成這段呢，其實(shí)就是ANSYS根據(jù)你所定義的函數(shù)，自動(dòng)生成了一個(gè)Table表做了這個(gè)函數(shù)的插值，這樣系統(tǒng)在計(jì)算時(shí)就可以根據(jù)這個(gè)Table表進(jìn)行對(duì)應(yīng)的索引，生成任何你想要的函數(shù)值了。
展開 Ansys Workbench 利用APDL后處理命令，提取模態(tài)結(jié)果，結(jié)合VBA語言自動(dòng)編制報(bào)告 ￥10
本例在常規(guī)模態(tài)計(jì)算的基礎(chǔ)上，通過插入后處理APDL命令，實(shí)現(xiàn)對(duì)X、Y、Z三個(gè)方向的模態(tài)有效質(zhì)量和模態(tài)階次頻率的提取，并統(tǒng)計(jì)導(dǎo)出為結(jié)果文件夾下的“modalResultRecord.txt”文檔。進(jìn)一步的實(shí)現(xiàn)對(duì)仿真word報(bào)告的自動(dòng)化編寫。
效果展示：
對(duì)圖示結(jié)構(gòu)進(jìn)行模態(tài)分析，提取模態(tài)結(jié)果，利用word自身的VBA開發(fā)工具，實(shí)現(xiàn)模態(tài)統(tǒng)計(jì)表的自動(dòng)創(chuàng)建。
常規(guī)模態(tài)計(jì)算：
模態(tài)信息提取自動(dòng)編制報(bào)告：
操作演示：
1.：在常規(guī)模態(tài)計(jì)算的solution下插入Commands 命令，在命令行中寫入附錄1中的命令。
（該命令可以提取模態(tài)實(shí)現(xiàn)對(duì)X、Y、Z三個(gè)方向的模態(tài)有效質(zhì)量和模態(tài)階次頻率的提取，并導(dǎo)出為結(jié)果文件夾下的“modalResultRecord.txt”文檔）
2：在仿真文件夾內(nèi)找到該txt文檔，放置在合適位置；記下目錄；
3：在word開發(fā)工具中，利用VBA語言編寫如下附錄2命令。
4：修改txt文件的目錄，保持與步驟2一致。（將附錄中VBA程序復(fù)制到word開發(fā)工具內(nèi)，點(diǎn)擊運(yùn)行即可在，word文檔中創(chuàng)建模態(tài)統(tǒng)計(jì)表）
（將類似功能匯總即可完成仿真報(bào)告的自動(dòng)化創(chuàng)建，本文僅涉及一部分）
附錄1：Ansys Workbench 模態(tài)仿真后處理中插入的APDL命令
!提取模態(tài)仿真的X、Y、Z方向有效模態(tài)質(zhì)量，APDL命令：
! 模型單位制:mm kg N s
finish
/post1 !進(jìn)入后處理
*dim,direction,CHAR,3,1 !
展開 
ansys apdl 熱和電磁場(chǎng)分析案例 ￥15
三維電磁感應(yīng)加熱---感應(yīng)加熱的激勵(lì)源為365000HZ的交流電，線圈電流密度為2.04e8A/m^2，線圈和管子的幾何模型如下圖所示：
鋼球的淬火---淬火是把鋼加熱到臨界溫度以上，保溫一段時(shí)間，然后快速冷卻的一種熱處理工藝方法，下圖為鋼球溫度變化曲線：
二維靜態(tài)磁場(chǎng)分析---把螺線管制動(dòng)器作為2D軸對(duì)稱模型進(jìn)行分析，計(jì)算銜鐵部分螺線管制動(dòng)器的運(yùn)動(dòng)部分)的受力情況和線圈電感。
ANSYS APDL實(shí)體單元和殼單元（不共節(jié)點(diǎn)）之間的連接 ￥100
實(shí)體單元和殼單元之間的連接是ANSYS中常見的問題。即使兩種單元之間共節(jié)點(diǎn)，但單元之間不連續(xù)（實(shí)體單元每個(gè)節(jié)點(diǎn)有3個(gè)平動(dòng)自由度，而殼單元每個(gè)節(jié)點(diǎn)有3個(gè)平動(dòng)自由度和3個(gè)轉(zhuǎn)動(dòng)自由度），對(duì)于兩種單元之間面面接觸，可直接定義剛域，本文主要采用MPC法對(duì)實(shí)體-殼單元的連接方法進(jìn)行說明。
1 單元類型
算例模型中，實(shí)體單元采用SOLID45，殼單元采用SHELL63，接觸位置不共節(jié)點(diǎn)。對(duì)于兩種單元之間的連接，通過目標(biāo)單元TARGE170和接觸單元CONTA175實(shí)現(xiàn)，定義約束為實(shí)體-殼約束，接觸單元為MPC算法，接觸類型為綁定接觸。
2 有限元模型和綁定接觸
圖1 底部固定約束，殼單元施加均布荷載
圖2 目標(biāo)單元和接觸單元
3 計(jì)算結(jié)果
圖3 von Mises stress
圖4 X-Component of displacement
付費(fèi)內(nèi)容為相關(guān)命令流。
展開 ANSYS APDL中判斷和改變奇偶性的方法
但在APDL中，沒有判斷函數(shù)。搜了下，結(jié)果提示用nint(x)函數(shù)。help中說到 nint(x)就是abs,sin,cos等函數(shù)一樣可以直接用來運(yùn)算。nint(x)的意思是‘Nearest interger to x’，意思是說最接近x的整數(shù)。比如nint(2.1)=2，nint(2.5)=3，就相當(dāng)于四舍五入。基于此，我就用它來作為判斷奇數(shù)偶數(shù)的工具了。
實(shí)現(xiàn)的命令如下：
!change TotalNumber to even number
*if,abs(nint(TotalNumber/2)-TotalNumber/2),le,0.3,then ! 不一定是0.3， 只要是小于0.5 就可以了。
TotalNumber=TotalNumber
*else
TotalNumber=TotalNumber+1
*endif
展開 ansys APDL命令流和單元中文翻譯（轉(zhuǎn)載）
ansys命令翻譯-370條.xls
單元翻譯98條.xls
