rollout test "测试" 162 height:252
(
combobox cbx1 "按类别选择" pos:[12,13] 120 height:6 items:#("选择球体", "选择圆柱体", "选择立方体") selection:0
button btn12 "取消选择" pos:[19,148] 108 height:28
on cbx1 doubleClicked sel do
(
case sel of
(
1: (for a in geometry where classof a==sphere do selectmore a)
2: (for a in geometry where classof a==cylinder do selectmore a)
3: (for a in geometry where classof a==box do selectmore a)
)
)
on btn12 pressed do
deselect objects
)
createdialog test