! 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
!
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_circle,Dout/2,ttop
create_area-lines
!
create_circle,D09/2,ttop
create_area-lines
!
csys,CSsup0
!
create_cs,0,'CSbs01',1,-Dx01,-Dy02,0,0,0,0
!
create_circle,D09/2,ttop
create_area-lines
!
tangent_area,am-1,am
!
asba,am-9,am,,delete,delete
!
init_entity_num
!
ara_create_part,CSmtr01,45,0,,,ttop
ara_create_part,CSmtr01,0,0,,,ttop
!
asel,s,area,,am-3,am-1,1
asel,a,area,,am-5
adele,all,,,1
!
init_entity_num
!
extrude_aset,-l_ext-ttop
!
!csys,CSmtr01
!
!create_circle,D02/2
!create_area-lines
!
!csys,CSbs01
!
!create_circle,D01/2
!create_area-lines
!
!tangent_area,am-1,am
!
!cut_tool,l_ext
!
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
!






*go,:skip






!---------------------------- 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


:skip