Triangels finden

rollout FindNgones "Select Tris"
(
button btn1 "Do It" width:99 height:34

on btn1 pressed do
(
obj = $
if obj == undefined then
(
messagebox "select a Poly object"
)
Else
(
modPanel.addModToSelection (Edit_Poly ()) ui:on
local faceselect = #{}
for i = 1 to (polyop.getNumFaces obj) do
(
currentface = (polyop.getFaceVerts obj i).count as integer

if currentface < 4 do append faceselect i

)
print faceselect as string
obj.EditablePoly.SetSelection #Face faceselect
subobjectLevel = 4
)
)
)

macroScript Triselector category:"My Scripts"
(
rf = NewRolloutFloater "NgoneFinder Beta 0.1a" 140 100

addRollout FindNgones rf
)