这是我以前做线圈的命令,里面有一些是无用的信息。其实做线圈的例子论坛里有很多的,你可以搜索一下
/prep7
R1=1.2
R2=1.25
H1=0.05
H2=0.45
K1=43 !钢壳
K2=2.1 !镁铝不烧砖
K3=401 !线圈
K4=94.7 !铁碳
K5=0.024 !空气
C1=470
C2=1130
C3=385
C4=603
C5=1005
DEN1=7800
DEN2=3150
DEN3=8960
DEN4=6138
DEN5=1.292
*GET,KNUM,KP,,NUM,MAX
*GET,LNUM,LINE,,NUM,MAX
*get,anum,area,,num,max
*afun,deg
radl=0.067 !半径
radO=0.003 !外径
dist=0.022 !间距
RADI=0.0015 !内径
x1=0.38 !水口中心
y1=0.29
z1=0.05 !线圈高度
wpoffs,x1,y1,z1 !移坐标原点
cswpla,11,1 !柱坐标
csys,11
*do,i,0,16 !建立点
k,i+KNUM+1,radl,90*I,dist*I
*ENDDO
*DO,I,1,16 !建线
L,I+KNUM,I+KNUM+1
*ENDDO
*DO,I,2,16 !连接线
LCOMB,LNUM+1,I+LNuM,0
*ENDDO
CSYS,0
wpro,,-90
cyl4,radl,0,RADO,,radi !圆面
cyl4,radl,0,radi
vdrag,anum+1,,,,,,lnum+1
vdrag,anum+2,,,,,,lnum+1
wpro,,90
|