-- Auto Chamfer
-- Version 1.3
-- Created On: 09/07/2013
-- tested using Max 9,2009
-- by Lantlant


rollout DialogBaka "Auto Chamfer"
(
timer furfangos interval:100

spinner kurucok "chamfer size" range:[0,10000,3.5]
spinner labancok "threshold angle" range:[0,180,40]				
button hernyotalp "CHAMFER" width:190 height:40


on furfangos tick  do
  (
         if superclassof $ == geometryClass then
                    (
					hernyotalp.enabled = true
					)
		 if superclassof $ != geometryClass then
                    (
					hernyotalp.enabled = false
					)
  )

on 	hernyotalp pressed do
  (
disablesceneredraw()  
  
obj = $
convertTo $ PolyMeshObject
polyOp.weldVertsByThreshold  $ #{1..$.numverts}
convertTo obj TriMeshGeometry
max modify mode
select obj
subobjectLevel = 2 
nyitottelek = meshop.getOpenEdges obj
--
EredetiElek=#()
for face = 1 to obj.numfaces do
for edge = 1 to 3 do 
if (getedgevis obj face edge) do 
append EredetiElek (((face-1)*3)+edge) 
---
osszesedge = meshop.getEdgesUsingFace obj #{1..obj.numfaces}
setEdgeSelection obj osszesedge            
meshOp.autoEdge obj #{1..(obj.edges.count)} 180          
meshop.autoEdge obj osszesedge labancok.value
--
LetorendoElek=#()
for face = 1 to obj.numfaces do
for edge = 1 to 3 do 
if (getedgevis obj face edge) do 
append LetorendoElek (((face-1)*3)+edge) 
--
setEdgeSelection obj Eredetielek   
meshOps.visibleEdge  obj                 --ezt csereltem vona a kovetkezo sorrokkal de..                
--for i = 1 to EredetiElek.count do      --IRGALMATLANUL MEGLASSITJA!!(bar igy nem kene subobject modba menni)
--(
--meshOp.autoEdge obj #{EredetiElek[i]} 0
--)          
setedgeselection obj LetorendoElek  
deselect $.edges[nyitottelek]     									
--
convertTo obj PolyMeshObject         
subobjectLevel = 2                
obj.EditablePoly.chamferEdges kurucok.value
subobjectLevel = 0              

enablesceneredraw()
redrawviews()
  )			
)
createdialog DialogBaka 198 90