- Рейтинг
- 5
Доброго времени господа!) помогите пожалуйста разобраться, никак не дается решение, задача: указать обьект, клонировать его, назначить контр.аттачмент, указать цел.обьект и разместить на нем созданый. Застрял на моменте пиканья, никак не удается "привязать" мышку к ноде( вот собсна что получилось, не много, только учусь, подскажите плиз, а
rollout unnamedRollout "Untitled" width:162 height:300
(
pickbutton pickbutton "PickButton" pos:[8,8] width:145 height:33
pickbutton DriverPicker "DrvPick" pos:[8,48] width:145 height:33 enabled:true
on pickbutton picked obj do
(
if SuperClassOf(obj) == GeometryClass then
(
PickButton.caption = obj.name
select obj
s=obj
actrl = Attachment()
s.position.controller = actrl
(
actrl.node = on mousePoint clickno do
if on == 1 then obj select else #stop
)
)
else
messageBox "bla-bla-bla"
)
)
createdialog unnamedRollout
rollout unnamedRollout "Untitled" width:162 height:300
(
pickbutton pickbutton "PickButton" pos:[8,8] width:145 height:33
pickbutton DriverPicker "DrvPick" pos:[8,48] width:145 height:33 enabled:true
on pickbutton picked obj do
(
if SuperClassOf(obj) == GeometryClass then
(
PickButton.caption = obj.name
select obj
s=obj
actrl = Attachment()
s.position.controller = actrl
(
actrl.node = on mousePoint clickno do
if on == 1 then obj select else #stop
)
)
else
messageBox "bla-bla-bla"
)
)
createdialog unnamedRollout