自己编写的旋转轮建模命令流

石中玉

finish
/clear
/filname,rotating wheel,1
/title,modeling of rotating wheel
/prep7
blc4,120,-45,12,120
blc5,160,0,56,10
blc4,200-12,-30,12,75
aadd,all
lsel,s,loc,x,132,188-0.1
lsel,r,loc,y,5,75
*get,lnum1,line,0,num,max                                   !当前选择集最大的线编号，赋值给lunm1
*get,lnum2,line,0,num,min                                   !当前选择集最小的线编号，赋值给lunm2
lfillt,lnum1,lnum2,6                                        !线lunm1和线lunm1进行圆角，半径6
lsel,s,loc,x,132,188-0.1
lsel,r,loc,y,-5,-75
*get,lnum1,line,0,num,max
*get,lnum2,line,0,num,min
lfillt,lnum1,lnum2,6
lsel,s,loc,x,138,188
lsel,r,loc,y,5,75
*get,lnum1,line,0,num,max
*get,lnum2,line,0,num,min
lfillt,lnum1,lnum2,6
lsel,s,loc,x,138,188
lsel,r,loc,y,-5,-75
*get,lnum1,line,0,num,max
*get,lnum2,line,0,num,min
lfillt,lnum1,lnum2,6
lsel,s,loc,x,132,138
lsel,r,loc,y,5,11
al,all
lsel,s,loc,x,132,138
lsel,r,loc,y,-5,-11
al,all
lsel,s,loc,x,182,188
lsel,r,loc,y,5,11
al,all
lsel,s,loc,x,182,188
lsel,r,loc,y,-5,-11
al,all
knum1=kp(188,45,0)                                          !将(188,45,0)处的关键点编号赋值给knum1
knum2=kp(200,45,0)
knum3=kp(188,-30,0)
larc,knum1,knum2,knum3,10
knum1=kp(188,-30,0)
knum2=kp(200,-30,0)
knum3=kp(188,45,0)
larc,knum1,knum2,knum3,10
lsel,s,loc,y,45,51
al,all
lsel,s,loc,y,-30,-36
al,all
aadd,all
allsel,all
k,1001
k,1002,0,100
vrotat,all,,,,,,1001,1002,45
kdele,1001,1002,1
wpoffs,0,-20
wprota,0,-90
*afun,deg                                                   !改变角度单位为度
cyl4,160*cos(22.5),160*sin(22.5),0,0,10,360,60
vsbv,1,2                                                    !此处还待进一步参数化，需改进
wpcsys,-1,0
csys,5                                                      !改变当前坐标系为以Y轴的极坐标系
vgen,8,all,,,,45
wpstyl,,,,,,,,0
nummrg,all
numcmp,all
save

renyyyuan

圆角如何创建的？

石中玉

renyyyuan 发表于 2018-6-20 20:49
圆角如何创建的？

利用圆角命令LFILLT
格式：LFILLT, NL1, NL2, RAD, PCENT
解释：
NL1——第一条相交直线的编号，如果NL1=P，可以使用鼠标在图上点选（GUI操作），剩余的后续命令直接不执行，也就是说如果输入LFILLT,P直接进入GUI操作。
NL2——第二条相交直线的编号。
RAD——圆角半径，短于直线NL1或NL2的长度。
PCENT——圆角弧圆心关键点编号，如果为0，则不产生圆心关键点。

peiss8888

谢谢分享！谢谢分享！