Macro normals

Hi all,

I created macro auto adjust normals:
 

 proc adjust_normals {} { 	*createmark comps 1 all 	*createmark elems 2 'by config' quad4 tria3 	set List_comps [hm_getmark comps 1] 	for {set n 0} {$n<[hm_marklength comps 1]} {incr n} { 		*createmark elems 1 'by collector' [lindex $List_comps $n] 		*markintersection elems 1 elems 2 		if {![hm_marklength elems 1]} {continue} else { 		set List_elems [hm_getmark elems 1] 		set ID_elems_ori [lindex $List_elems 0] 		*normalsadjust elems 1 $ID_elems_ori 0 0 		} 	} 	*normalsoff 	hm_usermessage 'Done.' } 

but it doesn't work in some case, such as seperated components...
Please suggest a way to improve it.