24小时热门版块排行榜    

查看: 512  |  回复: 0

detective604

新虫 (初入文坛)

[求助] 求大神如何对单齿齿轮划分网格,要求使用命令流。。。

/PREP7
M=4E-3                    
PI=3.1415926              
Z=16                     
ALFA=20/180*PI            
Ha=1                     
C=0.25                     
D=M*Z                     
Db=M*Z*COS(ALFA)           
Rb=Db/2                    
Df=D-2*(Ha+C)*M            
Rf=Df/2                    
Da=D+2*Ha*M               
Ra=Da/2                    
ALFA_Ding=ACOS(Rb/Ra)  
SITA_Ding=(TAN(ALFA_Ding)-ALFA_Ding)*180/PI
SITA=(tan(ALFA)-ALFA)*180/PI  
              
ET,1,PLANE42
ET,2,SOLID95
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,2.06E11
MPDATA,PRXY,1,,0.3  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,1,,7850

ALFA_Dingn=alfa_ding/10   
*DIM,AL,ARRAY,10,1         
*DIM,SI,ARRAY,9,1         
*DIM,R,ARRAY,9,1         
CSYS,1                    
AL(1,1)=0               

K,100,Rb,0,0            
*DO,i,1,9,1               
AL(i+1,1)=AL(i,1)+ALFA_Dingn
SI(i,1)=(tan(AL(i+1,1))-AL(i+1,1))*180/PI
R(i,1)=Rb/cos(AL(i+1,1))
/prep7
K,i+100,R(i,1),si(i,1)
*enddo                          
k,110,ra,sita_ding           
bsplin,all                     

FLST,2,2,8  
FITEM,2,0,0,0   
FITEM,2,Rf,0,0  
CIRCLE,P51X, , , ,360, ,

L,100,1

LCOMB,1,6

LFILLT,1,5,0.38*m, ,
LDELE,2, 5,1 ,1

LCOMB,1,6

LOCAL,11,0,0,0,0,SITA+90/Z, , ,1,1,  
CSYS,11,
LSYMM,Y,1,  

FLST,2,2,8  
FITEM,2,0,0,0   
FITEM,2,RF,0,0  
CIRCLE,P51X

FLST,2,2,8  
FITEM,2,0,0,0   
FITEM,2,RA,0,0  
CIRCLE,P51X

ldele,7,10
numcmp,kp
k,1000,0,0,0
larc,1,21,1000,ra
lcomb,3,6
larc,2,6,1000,rf
lsbl,3,6

CSYS,1
flst,2,7,4
fitem,2,1
fitem,2,7
fitem,2,2
fitem,2,8
fitem,2,4
fitem,2,5
fitem,2,9
AL,P51X

PCIRC,0.4*RA, ,0,360,  
ASBA,       1,       2  

TYPE,1
LESIZE,1,,,15,,,,,1
LESIZE,7,,,8,,,,,1
LESIZE,2,,,15,,,,,1
LESIZE,8,,,30,,,,,1
LESIZE,4,,,30,,,,,1
LESIZE,5,,,30,,,,,1
LESIZE,9,,,30,,,,,1
LESIZE,3,,,15,,,,,1
LESIZE,11,,,15,,,,,1
LESIZE,10,,,15,,,,,1
LESIZE,6,,,15,,,,,1
LESIZE,14,,,15,,,,,1
LESIZE,15,,,15,,,,,1
LESIZE,12,,,15,,,,,1
LESIZE,13,,,15,,,,,1

MSHAPE,0,2D
MSHKEY,0
AMESH,3

VOFFST,3,1.5E-2, ,


finish

求大神如何对单齿齿轮划分网格,要求使用命令流。。。
单齿.JPG
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

相关版块跳转 我要订阅楼主 detective604 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 4/200 2026-02-08 08:47 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 4/200 2026-02-08 08:46 by vs90ilomwc
[论文投稿] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 5/250 2026-02-08 08:32 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 4/200 2026-02-08 08:27 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 6/300 2026-02-08 08:26 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 6/300 2026-02-08 08:12 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 08:07 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 08:06 by vs90ilomwc
[找工作] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 07:46 by vs90ilomwc
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 8/400 2026-02-08 07:27 by vs90ilomwc
[教师之家] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 8/400 2026-02-08 07:26 by vs90ilomwc
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 8/400 2026-02-08 07:07 by vs90ilomwc
[硕博家园] 博士延得我,科研能力直往上蹿 +8 偏振片 2026-02-02 8/400 2026-02-08 06:52 by liyeqik
[教师之家] 有院领导为了换新车,用横向课题经费买了俩车 +7 瞬息宇宙 2026-02-04 7/350 2026-02-07 21:47 by tfang
[有机交流] 酰胺脱乙酰基 10+5 chibby 2026-02-03 12/600 2026-02-07 19:29 by 江东闲人
[基金申请] 同年申请2项不同项目,第1个项目里不写第2个项目的信息,可以吗 +4 hitsdu 2026-02-06 4/200 2026-02-07 13:07 by jurkat.1640
[基金申请] 有时候真觉得大城市人没有县城人甚至个体户幸福 +9 苏东坡二世 2026-02-04 10/500 2026-02-07 12:37 by 小毛球
[考博] 天津大学招2026.09的博士生,欢迎大家推荐交流(博导是本人) +4 a793625982 2026-02-05 5/250 2026-02-07 10:57 by a793625982
[基金申请] 面上项目申报 +3 Tide man 2026-02-01 3/150 2026-02-05 22:56 by god_tian
[教师之家] 遇见不省心的家人很难过 +18 otani 2026-02-03 22/1100 2026-02-04 11:06 by tangmnt
信息提示
请填处理意见