ansys螺旋線畫法的幾個例子

1、1. EXAMPLE_1CSYS,1 *AFUN,DEG /prep7 ET,1,45 *do,i,0,36,1 x=10 y=10*i z=i/2 k,i+1,x,y,z *enddo *do,j,1,36,1 L,j,j+1 *enddo *do,i,0,35,1 LWPL,-1,i+1,0 CYL4,0,0,1 *enddo *do,i,1,36,1 VDRAG, i, , , , , , i, , , , , *enddo vglue,all TYPE,1 vmesh,all過程圖：2. EXAMPLE_2/PREP7 wpoff,-10 CYL4, , ,1 ET,1,MESH200

2、 ET,2,SOLID45 KEYOPT,1,1,6 KEYOPT,1,2,0 LESIZE,ALL,10,1 MSHAPE,0,2D MSHKEY,1 AMESH,ALL CSYS,0 WPAVE,0,0,0 CSYS,0 !* CSYS,1 KBETW,3,1,0,RATI,0.5, ！Creates a keypoint between two existing keypoints*do,i,1,72 k,5+i,10,180-i*10,i lstr,5+i,4+i *enddo *do,i,1,72 VDRAG,1+(i-1*5, , , , , ,4+i eplot *enddo3.

3、 EXAMPLE_3finish /clear /prep7*AFUN,RADpi=2*ASIN(1 !獲得pi常數(shù) *afun,degR1=6.3 !軸外半徑rs=1.65 !絲半徑R2=R1+rs !螺旋外半徑h0=64 !螺距H=h0 !螺旋總高度 K,1,R2,0,0theta=90-Atan(64/(2*pi*R2 !獲得旋轉(zhuǎn)角wprota,0,-theta,0KWPAVE, 1 ！Moves the working plane origin to the average location of keypoints.rad1=rs !圓半徑 rad2=rad1*0.6 !四邊形半徑

4、*get,knum,kp,num,max CYL4, , ,rad1 CSYS,1 !選擇柱坐標系circle_p=10*get,knum,kp,num,maxK,knum+1,R2,0,0nn=NINT(h*circle_p/h0*DO,i,1,nn-1,1xx=R2yy=i*360/circle_pzz=i*h0/circle_pK,knum+i+1,xx,yy,zz*ENDDOK,knum+nn+1,xx,h/h0*360,hLSEL,U, , ,ALL*DO,i,1,nn,1L,knum+i,knum+i+1*ENDDOLCOMB,ALL,0*GET,lnum,LINE,0,NUM,M

5、AX !獲得最大線條號ET,2,SOLID45TYPE, 2LESIZE,lnum, , ,40, , , , ,1VDRAG,ALL,lnum4. EXAMPLE_4鋼絲軟軸的模型/prep7 *AFUN,DEG CSYS,1 *do,i,1,500 k,i,2,10*(i-1,0.01*(i-1 *enddo *do,i,1,499 l,i,i+1 *enddo FLST,2,499,4,ORDE,2 FITEM,2,1 FITEM,2,-499 LCOMB,P51X,0 CSYS,0 KWPAVE, 1 wprot,0,90 PCIRC,0.18,0 ,0,360, VDRAG, 1,

6、, , , , 1 FINISH5. EXAMPLE_5近來算了一個螺旋形的鋼橋,以下是一段用APDL建立螺旋線的代碼,主要使用"BSPLIN"命令來繪制空間曲線,然后再進行網(wǎng)格劃分。適當(dāng)修改一下可以用做各種螺旋形模型的建立。/PREP7PI=3.1415926R=18.100 !螺旋線半徑H=24.836 !螺旋線單圈高N=6 !曲線關(guān)鍵點數(shù)量ANG1=45.18 !曲線起始角度ANG2=135.71 !曲線終止角度HH=H*(ANG2-ANG1/360 !曲線段高度DH=HH/(N-1 !每個關(guān)鍵點的高度增量DA=(ANG2-ANG1/(N-1 !每個關(guān)鍵點的角度增量*

7、DO,I,0,N-1XX=R*COS(ANG1+I*DA*PI/180YY=R*SIN(ANG1+I*DA*PI/180ZZ=I*DHK,I+1,XX,YY,ZZ*ENDDOBSPLIN,1,2,3,4,5,6*GET,LENG, LINE, 1, LENG !得到螺旋線的長度6. EXAMPLE_6Ansys生成螺旋線模型/prep7/title,helix heater/units,user,1e-3,273Rh=2.5 !螺“線”半徑H=20 !總長dis=0.8 !螺距rs=0.5 !絲徑*afun,degtheta=90-atan(dis/Rhk,1,0,0,0k,2,0,0,Hk,

8、3,Rh,0,0k,4,Rh,0,Hl,3,4 !可為曲線,但要修改參考柱面的編號arotat,1,1,2 !生成面上兩點間最短線的參考面wprota,0,-theta,0 !旋轉(zhuǎn)工作平面xc=Rhyc=0cyl4,xc,yc,rs !絲截面,用于拉伸成線wpcsys,0KPstr=500k,KPstr,Rh,0,0num=H/dis*dim,C,array,num,3,Number_i,Coordinate_icsys,1*do,i,1,numC(i,1=RhC(i,2=ky(i+KPstr-1+90C(i,3=kz(i+KPstr-1+disk,i+KPstr,C(i,1,C(i,2,C(i,3 !生成下一個關(guān)鍵點NSarea=mod(i-1,4+1*get,Narea,area,0,num,max