! brim_new_latch.mac
!
mod_assemb_prep
/title,Brimstone New Latch Concept
view,'f'
!
a=1.670
b=1.00
c=1.410
d=1.0030
e=1.001
!
f=1.8630
g=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
!
D01=1.100
D02=1.310
D03=0.5200
D04=0.3750
D05=0.200
!
D06=0.3750
D07=0.185
D08=0.370
!
t=0.080
!
!-------------------------- main profile --------------------------
!
csys,0
!
k,,-a,b,0
k,,-a-d,b,0
k,,-a-d,-e,0
!
create_cs,0,,1,-a-d,-e,0,0,0,0
!
k,,1,-A01,0
!
create_lines,,1
!
csys,0
!
k,,-a-d,-c,0
k,,-a,-c,0
k,,-a,b,0
!
create_lines,,1
!
profile_close
!
create_vol-lines,-t
!
lplot
!
!--------------------- circular profile sections ---------------------
!
csys,0
!
create_cs,0,'CScntr1',1,-g,b,0,0,0,0
!
create_circle,D01/2
create_area-lines
!
!
csys,0
!
create_cs,0,'CScntr2',1,-f,-c,0,0,0,0
!
create_circle,D02/2
!
cut_tool,t
!
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_vol-lines,-l
!
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_volume,,-l
!
vadd,vm-2,vm-1,vm
!
init_entity_num
!
asel,s,loc,z,0
aadd,all
!
asel,s,loc,z,-l
aadd,all
!
init_entity_num
!
create_circle,D04/2
!
cut_tool,l
!
lplot
!
!---------------------------- support post -----------------------------
!
csys,0
!
create_cs,0,'CSpost0',0,-h,-i,-t,0,0,0
!
create_circle,D06/2
create_vol-lines,-lpost
!
vadd,vm-1,vm
!
init_entity_num
!
y=0.125
!
create_circle,D06/2,-lpost+y
create_area-lines
!
create_circle,0.340/2,-lpost+y
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
cut_tool,y,vm
!
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