将CAD的线自动转换到ANSYS中

yuun · 发表于 2021-3-10 08:52:28

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界面，在命令行中粘贴代码，就生成了裙座的热箱的图形。

登录/注册后可看大图

测试2：夹套法兰

手动绘制夹套对接法兰，倒角，垫片位置先用线预留好，为划分网格做准备。

框选图元，选择原点，生成代码，粘贴到ansys中，生成的动图如下：

登录/注册后可看大图

测试3：随手图花

此图有圆，圆弧，直线，多义线，作为测试极好。