rollout ObjectID "Bibliothek bearbeiten"
 ( 	
	button start "Start"
	edittext Layer "Layer:" labelOnTop:true
	 
	 on start pressed do if layer.text!="" do (
		mtype = #(#Inches,#Feet,#Miles,#Millimeters,#Centimeters,#Meters,#Kilometers) 
		scal =#(2.54,30.48,160934.40,0.1,1,100,100000)
		 
		files = getFiles (maxfilepath+"*.max") 
		for i=1 to files.count do (					
			LoadMaxFile files[i]
					
					scalwert = 1
					str = ""
			
					SetSelectFilter 4					
					max select all
					if selection.count !=0 do delete $
					SetSelectFilter 5
					max select all
					if selection.count !=0 do delete $
					SetSelectFilter 1
					max select all
			
					
						
					for i2 = 1 to 7 do if units.SystemType == mtype[i2] do scalwert=scal[i2]	
					units.DisplayType = #Metric
					units.MetricType = #centimeters
					units.SystemType = #centimeters
					max select all
					modPanel.addModToSelection (FFD_2x2x2 ()) ui:on	
					animateVertex Selection[1].modifiers[1] #all
					Selection[1].modifiers[1].Control_Point_1 = Selection[1].modifiers[1].Control_Point_1 * scalwert
					Selection[1].modifiers[1].Control_Point_2 = Selection[1].modifiers[1].Control_Point_2 * scalwert
					Selection[1].modifiers[1].Control_Point_3 = Selection[1].modifiers[1].Control_Point_3 * scalwert
					Selection[1].modifiers[1].Control_Point_4 = Selection[1].modifiers[1].Control_Point_4 * scalwert
					Selection[1].modifiers[1].Control_Point_5 = Selection[1].modifiers[1].Control_Point_5 * scalwert
					Selection[1].modifiers[1].Control_Point_6 = Selection[1].modifiers[1].Control_Point_6 * scalwert
					Selection[1].modifiers[1].Control_Point_7 = Selection[1].modifiers[1].Control_Point_7 * scalwert
					Selection[1].modifiers[1].Control_Point_8 = Selection[1].modifiers[1].Control_Point_8 * scalwert
					macros.run "Modifier Stack" "Convert_to_Mesh"
					
					
					max select all																	
					group selection name: (getFilenameFile maxfilename) as string
					
					NL = LayerManager.newLayerFromName Layer.text		
					max select all	
					for i2=1 to selection.count do NL.addNode selection[i2]
					
					str = "$"+getFilenameFile maxfilename+".position = $"+getFilenameFile maxfilename+".boxsize /2"				
					execute str
					
					
			max file save
		)
		 
		 
		 
		 
	)
)


createDialog ObjectID