making it a child of the root by scripting 2004-04-01 - By Carl Callewaert
Back
in this script I try to achieve to duplicate a curve which
is a element under a model which works. How can I make that
the duplicate curve because an child just under the root
and not under the model?
sub model(in_obj)
dim sel
Set sel = GetValue("SelectionList")
set oRoot = Application.ActiveProject.ActiveScene.Root
set myObj = oRoot.FindChild(in_obj)
SelectObj myObj.model & ".Curve", "BRANCH"
Duplicate myObj.model & ".Curve" , 2, 1, 1, 0, 0, 1, 0, 1
FreezeObj
SelectObj myObj.model & ".Curve", "BRANCH"
end sub
---
Unsubscribe? Mail Majordomo@(protected) with the following text in body:
unsubscribe xsi
|
|
