rollout choseOper "Choose Operator" 171 height:220
(
button btn1 "加选立方体" pos:[24,24] 109 height:23
button btn2 "加选圆柱体" pos:[24,64] 109 height:23
button btn3 "加选球体" pos:[24,104] 109 height:23
button btn4 "取消选择" pos:[24,144] 109 height:23
on btn1 pressed do
for a in geometry where classof a == box do selectmore a
on btn2 pressed do
for a in geometry where classof a == cylinder do selectmore a
on btn3 pressed do
for a in geometry where classof a == sphere do selectmore a
on btn4 pressed do
deselect objects
)
createdialog choseOper