! brim_new_latch2.mac
!
mod_assemb_prep
/title,Brimstone New Latch Concept
view,'f'
!
a=1.670
Dx01=1.00
Dy01=1.410
d=1.0030
e=1.001
!
Dx02=1.8630
Dy02=2.1730
h=1.9640
i=0.441
j=2.2644
!
k=0.6154
l=0.250
m=1.090
lpost=1.25
l_plung=1.90
l_tooth=0.035
sf1=0.50
sf2=0.25
!
A01=45
A02=116.8
A03=90
A04=135
!
D01=1.100
D02=1.310
D03=0.5200
D04=0.3750
D05=0.200
!
D06=0.3750
D07=0.185
D08=0.370
D09=0.750
!
twall=0.100
ttop=0.050
!
Dout=D02+2*twall
l_ext=4.273-0.250-3.268
!
!--------------------- circular profile sections ---------------------
!
csys,CSsup0
!
create_cs,0,'CSmtr01',1,-Dx02,-Dy01,0,0,0,0
!
create_arcs,Dout/2,ttop,135,,45,180
create_arcs,D09/2,ttop,135,,45,180
!
k,,D09/2-(D09/4),45,ttop
k,,Dout+1,45,ttop
k,,D09/2-(D09/4),180,ttop
k,,Dout+1,180,ttop
!
ln_series
!
profile_close
create_area-lines
!
lplot
!
!------------------------ solenoid journal -------------------------
!
csys,0
!
create_cs,0,'CSsol0',0,-j,-k,(D03/2)+0.0300,0,90,90-(180-A02)
!
x=0.050
!
create_circle,(D04/2)+x
create_area-lines
!
k,,(D04/2)+x,0,0
k,,-((D04/2)+x),0,0
k,,-((D04/2)+x),-((D03/2)+0.0300),0
k,,(D04/2)+x,-((D03/2)+0.0300),0
!
create_area
!
aadd,am-1,am
!
init_entity_num
!
create_circle,D04/2
create_area-lines
!
asba,am-1,am,,delete,delete
!
create_vol-area,-l
!
lplot
!
!---------------------------- journal support -----------------------------
!
csys,CSsol0
!
ksel,s,loc,z,-l
ksel,r,loc,y,-((D03/2)+0.0300)
ksel,r,loc,x,-((D04/2)+x)
!
get_max_entity
!
rkpt=km
!
init_entity_num
!
csys,CSmtr01
!
r_supprt=kx(rkpt)
!
create_arcs,r_supprt+0.010,ttop,A04-A03,,A03,A04
create_arcs,Dout/2,ttop,A04-A03,,A03,A04
!
k,,Dout/2-(Dout/4),A03,ttop
k,,r_supprt+1,A03,ttop
k,,Dout/2-(Dout/4),A04,ttop
k,,r_supprt+1,A04,ttop
!
ln_series
!
profile_close
create_area-lines
!
isolate_areas
!
aadd,all
!
init_entity_num
!
isolate_areas
adele,am
!
init_entity_num
!
ksel,s,kp,,km-3,km,1
ln_fillet,,0.125
!
create_vol-lines,l_ext+ttop
!
vadd,vm-1,vm
!
init_entity_num
!
lplot
!
!---------------------------- inside profile -----------------------------
!
csys,CSmtr01
!
create_circle,D02/2
create_area-lines
!
csys,CSsup0
!
create_cs,0,'CSbs01',1,-Dx01,-Dy02,0,0,0,0
!
create_circle,D01/2
create_area-lines
!
tangent_area,am-1,am
!
cut_tool,l_ext
!
lplot
!
!---------------------------- support profile -----------------------------
!
csys,CSmtr01
!
k,,(Dout/2),45,-2*ttop
k,,(Dout/2),45,-(l_ext+ttop)
k,,r_supprt+twall,45,-(l_ext+ttop)
k,,r_supprt+twall,45,-2*ttop
!
create_lines
!
ln_fillet,km-3,0.125
!
create_area-lines
!
isolate_areas
revolve_aset,CSmtr01,180,1
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!---------------------------- screw support -----------------------------
!
csys,0
!
k,,-1.714,-0.4410,-l_ext
k,,-1.714,-1.00,-l_ext
k,,-2.214,-1.00,-l_ext
k,,-2.214,-0.4410,-l_ext
!
create_area
!
create_cs,0,'CSscrw0',0,-1.964,-0.4410,-l_ext,0,0,0
!
create_circle,0.250
create_area-lines
!
csys,CSmtr01
!
create_circle,Dout/2,-l_ext
create_area-lines
!
aadd,am-2,am-1,am
!
init_entity_num
!
adele,am
!
ksel,s,kp,,km-1,km,1
ln_fillet,,0.125
!
create_area-lines
!
create_circle,Dout/2,-l_ext
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
csys,CSscrw0
!
create_circle,0.170
create_area-lines
!
asba,am-1,am,,delete,delete
!
create_vol-area,0.100
!
vadd,all
!
init_entity_num
!
lplot
!
!---------------------------- solenoid -----------------------------
!
csys,CSsol0
!
create_circle,D04/2
create_vol-lines,-l
!
create_circle,D03/2,-l
create_vol-lines,-m
!
vadd,vm-1,vm
!
init_entity_num
!
create_circle,D05/2
!
cut_tool,l+m-0.100,vm
!
lplot
!
!---------------------------- motor gear -----------------------------
!
csys,CScntr2
!
!create_circle,D08/2,0.200
!create_vol-lines,0.200
!
lplot
!
!------------------------------- plunger -----------------------------
!
csys,CSsol0
!
create_circle,D07/2,-(l+m-0.135)
create_vol-lines,l_plung
!
create_cs,0,'CStooth',0,0,0,-(l+m-0.135)+l_plung,0,0,0
!
k,,0,0,0
k,,sf1*D07/2,0,0
k,,sf2*D07/2,0,l_tooth
k,,0,0,l_tooth
!
create_area
!
isolate_areas
!
revolve_aset,CStooth,360,4
!
vadd,vm-4,vm-3,vm-2,vm-1,vm
!
init_entity_num
!
lplot






*go,:skip







:skip