Forum topic · General Scripting
By interage · 2013-07-17
Hi guys
I need some help here.
I need a script that allow me create a rectangle, change the radius and end script.
I've tried this one, but it is not working.
Any help is welcome.
macroScript FirstScript category:"Eddie"
(
StartObjectCreation Rectangle
original = selection[1]
select original
$.cornerRadius = 0.001
)
barigazy · 2013-07-17
Here we go
try(destroyDialog ::bgaRoll)catch()
rollout bgaRoll "MakeRect"
(
spinner spn_Length "Length: " pos:[6,5] fieldwidth:80 range:[0,1e9,30] type:#float
spinner spn_Width "Width: " pos:[5,25] fieldwidth:80 range:[0,1e9,30] type:#float
spinner spn_Radius "C-Radius: " pos:[5,45] fieldwidth:80 range:[0,(1e9/2),0] type:#float
button btn_Maker "Make Rectangle" pos:[4,65] width:143 height:20
on spn_Radius changed val do (if val >= (newVal = (amin #(spn_Length.value,spn_Width.value))/2) do spn_Radius.value = newVal)
on btn_Maker pressed do (Rectangle length:spn_Length.value width:spn_Width.value cornerRadius:spn_Radius.value pos:[0,0,0] isSelected:on)
)
createDialog bgaRoll 150 90 10 110 style:#(#style_titlebar, #style_sysmenu, #style_toolwindow)