1. EXAMPLE_1 CSYS,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 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 *enddo 3. EXAMPLE_3 finish /clear /prep7 *AFUN,RAD pi=2*ASIN(1) !获得pi 常数 *afun,deg R1=6.3 !轴外半径 rs=1.65 !丝半径 R2=R1+rs !螺旋外半径 h0=64 !螺距 H=h0 !螺旋总高度 K,1,R2,0,0 theta=90-Atan(64/(2*pi*R2)) !获得旋转角 wprota,0,-theta,0 KWPAVE, 1 ！Moves the working plane origin to the average location of keypoints. rad1=rs !圆半径 rad2=rad1*0.6 !四边形半径 *get,knum,kp,,num,max CYL4, , ,rad1 CSYS,1 !选择柱坐标系 circle_p=10 *get,knum,kp,,num,max K,knum+1,R2,0,0 nn=NINT(h*circle_p/h0) *DO,i,1,nn-1,1 xx=R2 yy=i*360/circle_p zz=i*h0/circle_p K,knum+i+1,xx,yy,zz *ENDDO K,knum+nn+1,xx,h/h0*360,h LSEL,U, , ,ALL *DO,i,1,nn,1 L,knum+i,knum+i+1 *ENDDO LCOMB,ALL,,0 *GET,lnum,LINE,0,NUM,MAX !获得最大线条号 ET,2,SOLID45 TYPE, 2 LESIZE,lnum, , ,40, , , , ,1 VDRAG,ALL,,,,,,lnum 4. 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 w prot,0,90 PCIRC,0.18,0 ,0,360, VDRAG, 1, ,, , , , 1 FINISH 5. EXAMPLE_5 近来算了一个螺旋形的钢桥,以下是一段用APDL 建立螺旋线的代码,主要使用"BSPLIN"命令来绘制空间曲线,然后再进行网格划分。适当修改一下可以用做各种螺旋形模型...
