get-editor "1.mpef" |
let [val width [get-diagram | get-edit-part -className MethodFormEditPart | get-edit-part
-className ContainerControlEditPart | get-property width –raw ]]
[val height [get-diagram | get-edit-part -className MethodFormEditPart | get-edit-part
-className ContainerControlEditPart | get-property height -raw]]
{
get-diagram| get-object| invoke setSize $width $height
get-diagram| get-object| save-screenshot [format "%s%s.png" $screenshotPath $formName]
}