' ---------------------------------------------------
' Instance Symmetry All Selected objects 
' v.1 Sept 28 2002 (C) GDC 2002
' by Graham D Clark http://www.grahamdclark.com
' mail@grahamdclark.com
' modified from Duplicate Symmetry script on XSINET by Softimage
' ---------------------------------------------------
'
'   Description:
'     instances all selcted objects
'     and puts symmetry constraints to original
'     over yz plane
'
'   Use:
'     Select Objects to symmetry constraint, run
' ---------------------------------------------------
dim list
	'from Duplicate Symmetry script on XSINET by Softimage
	Set XSIDial = createobject("XSIDial.XSIDialog")
		Combo = Array("XY Plane","XZ Plane","YZ Plane")
		Plane = XSIDial.Combo( "Select Plane of Symmetry:", Combo)
		
		Select Case Plane 
		Case 0
			plane = 0
		Case 1
			plane = 1
		Case 2
			plane = 2
		end Select  
set list = GetValue( "SelectionList" ) 
For Each oItem In list
	set thisy = Instance (oItem, [NbItems], siNoParent, siNoGrouping, [Properties], [Animation], [Constraints], 1, [Xfrom], [Sx], [Sy], [Sz], [Rx], [Ry], [Rz], [Tx], [Ty], [Tz], False)
	ApplyCns "Symmetry", thisy, oItem 
	SetValue thisy&".kine.symmetrycns.SymmetryPlane", plane            
Next