rollout test "测试" 160 height:272
(
dropdownList ddl1 "按类别删除" pos:[32,24] 106 height:41 items:#("删除几何体", "删除灯光", "删除图形") selection:0
listbox lbx1 "物体列表" pos:[32,88] 97 height:4
button btn15 "拾取物体" pos:[32,208] 99 height:24
on ddl1 selected sel do
(
if ddl1.selected=="删除几何体" then delete geometry
if ddl1.selected=="删除灯光" then delete lights
if ddl1.selected=="删除图形" then delete shapes
)
on btn15 pressed do
(
lbx1.items=(for a in selection collect a.name)
)
)
createdialog test