Macro: Hide/unhide polygon face from unwrap uwv
2017-03-29
this script creates a point between two objects.
Note that it will delete two reference objects used for aligning
Savaş Çetin
/* ******************************
*
* Savas Cetin 2017
* www.savascetin.com
* NOTE:This script comes without any warranty.Make sure to backup your work before usage.
* Use at your own risk!
********************************/
try (Destroydialog MyPivot) catch (format "A window is open")
arhlp=#()
fn midpt arrtest=
(
arpt=#()
for i=1 to arrtest.count do
(
pt1= Point()
pt1.Box= on
pt1.cross=off
Pt1.transform=arrtest[i].transform
pt1.size=5
pt1.wirecolor=yellow
pt1.name= uniquename "delmehlp"
append arpt pt1
)
pt2=Point()
pt2.Box=on
pt2.size=20
pt2.wirecolor=blue
pt2.name= uniquename "DELMEMaster"
mypos= position_constraint ()
mylook=Lookat_Constraint ()
pt2.pos.controller=mypos
pt2.rotation.controller=mylook
mypos.appendTarget arpt[1] 50.0
mypos.appendTarget arpt[2] 50.0
mylook.appendTarget arpt[2] 100.0
append arpt pt2
finpt= Point()
finpt.axistripod=on
finpt.name= uniquename "Rotmaster"
finpt.size=5
finpt.box=on
finpt.wirecolor=blue
finpt.transform= pt2.transform
childpt= copy finpt
childpt.wirecolor=orange
childpt.size=10
Childpt.name=uniquename "Rothelper"
childpt.parent=finpt
for i=1 to arpt.count do
(
delete arpt[i]
)
)
rollout MyPivot "PivotPoint" width:150 height:300
(
pickButton sel1 "Pick 1" pos:[10,5] width:130 height:50
pickButton sel2 "Pick 2" pos:[10,60] width:130 height:50
Button albtn "Create Pos Helper" pos:[10,115] width:130 height:50 enabled:false
--Button delbtn "dDelete helpers" pos:[10,170] width:130 height:50 enabled:false
on sel1 picked obj1 do
(
insertItem obj1 arhlp 1
sel1.text=obj1.name
)
on sel2 picked obj2 do
(
insertItem obj2 arhlp 2
sel2.text=obj2.name
albtn.enabled=true
)
on albtn pressed do
(
midpt arhlp
for i=1 to arhlp.count do (delete arhlp[i])
messageBox "Done!"
)
)
createDialog MyPivot
