将CAD的线自动转换到ANSYS中
ANSYS直接建模的痛楚直接在ANSYS经典中建模的朋友都会遇到一个问题：
ANSYS经典的建模实在太鸡肋了！
点、线、面、体的生成全靠坐标生成，无法通过绘图实现。
这就意味着，建模时，必须要先计算一下模型的各个几何的参数是否协调。
如果遇到要从点建线，从线建面，从面建体，那就是必须要先要把所有点的坐标求好，并一一连线，如果图形复杂，其工作量是非常繁琐，需要极大的耐心。
如果中间有修改，那么坐标重新计算一遍，点线面的编号都会变化，此时砸键盘的心都有了。
在前几天花了一天时间计算点的坐标，连线后，实在无法忍受这种枯燥、伤脑的浪费生命的劳动。
忍不住思考这么一个问题：
有没有快速建模的工具呢？！
没有工具怎么办？
其实我的需求很简单：
可不可以将autocad画的平面图形，直接转到ansys中呢？
至少对于轴对称截面，或者是比较复杂的平面结构能够直接转到ansys中，也是能减轻很大一部分建模负担的。
网上搜索了一下，都说ANSYS建模太菲拉，建议采用WB，SpaceClaim或者别的3D建模工具。
可我手头只有Autocad啊，难道就没有别的方法吗？
想到一般平面建模主要是直线，圆弧，圆和多义线，能否将autocad中绘制好的平面图，直接转成APDL语言，然后再在Ansys中生成模型呢？
思考了一下，一个可能的流程在心中逐渐成形。
自力更生
教员说过：自力更生，丰衣足食。
既然没有工具，那就自己造一个工具。
程序流程是：
1. Autocad中绘制需要的截面，绘制时也适当考虑网格划分和后处理，也就是，有的线适当打断，方便布尔运算和做共节点的面。
2. 框选Autocad的图元，建立图元选择集。
3. 由于图元的位置可能和Autocad的坐标轴位置没有关系，所以需要再选择一个在Ansys的原点P0。图元的所有坐标，都转化为以P0点为原点的坐标。
4. 通过循环历遍所有图元，如果图元的名称为line, arc, circle 以及pline， 则分别生成对应的APDL语言。
以直线为例：
在APDL中，要先定义关键点，然后通过两个关键点来生成线。
常用的句式是：
[*]
[*]
[*]
k,1,100,100,k,2,200,200,l,1,2 !连接关键点1,2
在Autocad中，先获得直线的两个端点坐标，其中一个的坐标赋值给关键点1，另一个赋值给关键点2，然后连接这两个关键点1就可以获得直线了。
其语句如下：
[*]
[*]
[*]
[*]
[*]
[*]
[*]
[*]
[*]
[*]
(setq kj1 (strcat "k," (itoa j) "," (rtos x1) "," (rtos y1)));生成关键点k,j,x1,y1(setq kj2 (strcat "k," (itoa (+ 1 j)) "," (rtos x2) "," (rtos y2)));生成关键点k,j+1,x2,y2(setq kjline (strcat "l,"(itoa j) "," (itoa (+ 1 j))));连线l,j,j+1(setq j (+ 2 j)) ;关键点加2(write-line (strcat kj1 "\n" kj2 "\n" kjline "\n" ) ff) ;写到txt文件
同理为圆弧，圆，多义线分别写转成APDL语言的代码，终于顺利完成。
牛刀小试
测试1：裙座热箱
先在Autocad中绘制出裙座1:1详图，保温，热箱尺寸，然后框选裙座图元，选择原点。
生成APDL的txt文件，复制文字，转到经典的anys界面，在命令行中粘贴代码，就生成了裙座的热箱的图形。
https://mmbiz.qpic.cn/mmbiz_gif/DVnwQibl2L2mcRIHib1LlEfsCnnn3G0JM2bx4vUB7ibhiauZkS4Ntho1vFZD0gtQSf7njmk3AmgJueHS1WLGqwLyTQ/640?wx_fmt=gif
测试2：夹套法兰
手动绘制夹套对接法兰，倒角，垫片位置先用线预留好，为划分网格做准备。
框选图元，选择原点，生成代码，粘贴到ansys中，生成的动图如下：
https://mmbiz.qpic.cn/mmbiz_gif/DVnwQibl2L2mcRIHib1LlEfsCnnn3G0JM2wPwtB1SryWf4qLRwJBTiccbVhw7wibDy8ermDOUibdusuyry6SEViatSNw/640?wx_fmt=gif
测试3：随手图花
此图有圆，圆弧，直线，多义线，作为测试极好。
框选图元，选择原点，生成代码，粘贴到ansys中，生成的动图如下：
https://mmbiz.qpic.cn/mmbiz_gif/DVnwQibl2L2mcRIHib1LlEfsCnnn3G0JM2Z9XwGBbH5iccFTmQty3eLwcdIP1Ol4Tn9lmjNkDbAjceT9bd0YfSEiaw/640?wx_fmt=gif
测试4：乌龟
发挥自己的美术天赋，绘制一只珠圆玉润，栩栩如生的乌龟。
框选图元，选择原点，生成代码，粘贴到ansys中，生成的动图如下：
https://mmbiz.qpic.cn/mmbiz_gif/DVnwQibl2L2mcRIHib1LlEfsCnnn3G0JM2P4iaFu08C9iaML2xhDvoSGkKxcsSOiaeicjkRRfcCXYY4l00BfWkB25CPA/640?wx_fmt=gif
测试一下生成线后生成面：
https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mcRIHib1LlEfsCnnn3G0JM2As0PeHuX7v3r5HmibxzIiaQsGwlUibE7meF4zZBTlOF3TplTcNyicPdNAQ/640?wx_fmt=png
测试划分网格：https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2mcRIHib1LlEfsCnnn3G0JM2yiae6bdp2Ux2icQgDfz711ycHCPoPnBuJ0OaM6vAuY4PExhF72jsf0ag/640?wx_fmt=png一只非常完美的乌龟。
以前需要一天的工作量，现在分分钟完成。终于长吁了一口气，之前郁闷一扫而空：
困于心衡于虑而后作，征于色发于声而后喻。
---By 孟子
https://mmbiz.qpic.cn/mmbiz_png/DVnwQibl2L2lvE5rKE3Zxpeq2jOx9jJ6mXpToqFslA43RcFJqicyP1YKdoVW6Oz6xbIqfTbvdkzhCdLib2kU77rBA/640?wx_fmt=png
往期精彩：
Ansys选择大法，别有洞天
Ansys自动找应力分类线
Ansys载荷的箭头方向是对的吗？
压力容器应力分析软件（ANSYS和ABAQUS）应用中单元选择的探讨(I)
压力容器应力分析软件（ANSYS和ABAQUS）应用中单元选择的探讨(II)
走近科学-减压塔加强圈断裂之谜
欢迎关注公众号：VCAD001， 一个压力容器人的自我修养。
牛扒，真的很牛扒！我之前也这样玩，没有你玩的高深· 厉害呀，高手{:528:} 谢谢楼主分享
页:
[1]