set crv = SICreateCurve("TapeMeasure", 1, 1)
SIAddPointOnCurveAtEnd crv, -3, 1, 0, False
SIAddPointOnCurveAtEnd crv, 3, 1, 0, False
CreateClusterCenterWithNull crv & ".pnt[LAST]"
CreateClusterCenterWithNull crv & ".pnt[0]"
SetValue crv & "_Point1_ClsCtr.null.size", 0.5
SelectObj crv & "_Point_ClsCtr", , True
AddProp "Custom_parameter_list", , , "Dimensions"
SIAddCustomParameter crv & "_Point_ClsCtr", "Length", siDouble, 0, 0, 10000000, , 5, 0, 10000000
SetExpr crv & "_Point_ClsCtr.Dimensions.Length", "sqrt(pow(" & crv & "_Point1_ClsCtr.kine.global.posx - " & crv & "_Point_ClsCtr.kine.global.posx,2) + pow(" & crv & "_Point1_ClsCtr.kine.global.posy - " & crv & "_Point_ClsCtr.kine.global.posy,2) + pow(" & crv & "_Point1_ClsCtr.kine.global.posz - " & crv & "_Point_ClsCtr.kine.global.posz,2))"
SelectObj crv & "_Point_ClsCtr", , True
InspectObj crv & "_Point_ClsCtr.Dimensions",,,siLock

'********************************************
'Program : Distance Tool
'Author : Akari Naim
'Purpose : show in real time distance between 
'2 nulls like a ruban. Just select the first 
'and the second null.
'********************************************
'http://funky3d.3dvf.net
'********************************************


'call sub unitsT

unitsT






'********************

'Sub that create curve and nulls
sub creatTool

SICreateCurve "Ruban", 1, 1
SetValue "Ruban.visibility.selectability", False
SIAddPointOnCurveAtEnd "Ruban", 0, -1.29068765714618E-16, 0, False, 0
SIAddPointOnCurveAtEnd "Ruban", 7, -1.29068765714618E-16, , False, 0
ActivateVertexSelTool
ActivateVertexSelTool
SelectGeometryComponents "Ruban.pnt[0]"
CreateClusterCenterWithNull "Ruban.pnt[0]", 0

SelectGeometryComponents "Ruban.pnt[LAST]"
CreateClusterCenterWithNull "Ruban.pnt[LAST]", 0
'SetValue "Ruban_Point_ClsCtr.display.wirecol", 15
'SetValue "Ruban_Point1_ClsCtr.display.wirecol", 15
DeselectAll


end sub

'*********************

'*********************
'sub that creat relations
sub infodist

	Dim l_obj1,l_obj2, l_button
	
		PickElement "Object", "Pick first Null or Object", "Pick first Null or Object", l_obj1, l_button
		if l_button = 0 then 
		exit sub 
		end if
		
SelectObj l_obj1, , True
AddProp "Custom_parameter_list", , , "DisplayInfo_Show_Distance"
SetValue "Views.ViewA.TopCamera.camvis.custominfo", True

		
		PickElement "Object", "Pick second Null or Object", "Pick second Null or Object", l_obj2, l_button
		if l_button = 0 then 
		exit sub 
		end if
		
SelectObj l_obj2, , True
AddProp "Custom_parameter_list", , , "DisplayInfo_Show_Distance"
SetValue "Views.ViewA.TopCamera.camvis.custominfo", True	



msgbox(aRadioItems(dd))

SIAddCustomParameter l_obj1, aRadioItems(dd)  , siDouble, 0, -10000, 10000, , 5, -10000, 10000	
SetExpr  l_obj1 & ".DisplayInfo_Show_Distance." & aRadioItems(dd)  , "(ctr_dist( " & l_obj2 & ".," & l_obj1 & ". )/10)"
SIAddCustomParameter l_obj2, "Distance_in_meter", siDouble, 0, -10000, 10000, , 5, -10000, 10000
SetExpr l_obj2 & ".DisplayInfo_Show_Distance.Distance_in_meter", "(ctr_dist( " & l_obj1 & ".," & l_obj2 & ". )/10)"

end sub

'*********************


'*********************
'sub for PPG
sub unitsT
 
set oCustomProperty = ActiveSceneRoot.AddProperty("CustomProperty",false,"Scene_Units_Ruban" ) 
 
oCustomProperty.AddParameter3 "MyRadio", siInt4,2

set oLayout = oCustomProperty.PPGLayout 

dim aComboItems, aBitfieldItems, aRadioItems
 
aRadioItems = Array( "Kilometers", 1, "Meters", 2, "Centimeters", 3 , "Millimeters", 4  ) 
oLayout.AddEnumControl "MyRadio", aRadioItems,"Units to show" , siControlRadio 
 




InspectObj oCustomProperty,1,"Choose Unit before Selecting",3

'call creatTool
creatTool

'*********************	
Dim l_obj1,l_obj2, l_button, mesu, mesuNb, Dval
	
		PickElement "Object", "Pick first Null or Object", "Pick first Null or Object", l_obj1, l_button
		if l_button = 0 then 
		DeleteObj "Scene_Units_Ruban*"
		DeleteObj "B:Ruban"
		exit sub 
		end if
		
SelectObj l_obj1, , True
AddProp "Custom_parameter_list", , , "DisplayInfo_Show_Distance"
SetValue "Views.ViewA.TopCamera.camvis.custominfo", True

		
		PickElement "Object", "Pick second Null or Object", "Pick second Null or Object", l_obj2, l_button
		if l_button = 0 then
		DeleteObj "Scene_Units_Ruban*"
		DeleteObj "B:Ruban"
		exit sub 
		end if

'*********************
		
SelectObj l_obj2, , True
AddProp "Custom_parameter_list", , , "DisplayInfo_Show_Distance"
SetValue "Views.ViewA.TopCamera.camvis.custominfo", True	


Dval= GetValue( "Scene_Units_Ruban.MyRadio" )


if Dval=4 then
	mesu="Millimeters"
	mesuNb=100
elseif Dval=3 then
	mesu="Centimeters" 
	mesuNb=10
elseif Dval=2 then
	mesu="Meters"
	mesuNb="0.1"
elseif Dval=1 then
	mesu="Kilometers"
	mesuNb="0.00001"
end if

'Display in scene
SIAddCustomParameter l_obj1, "Distance_in_" & mesu  , siDouble, 0, -10000, 10000, , 5, -10000, 10000	
SetExpr  l_obj1 & ".DisplayInfo_Show_Distance.Distance_in_" & mesu  , "((abs(ctr_dist( " & l_obj2 & ".," & l_obj1 & ". ))) * " & mesuNb & ")"
SIAddCustomParameter l_obj2, "Distance_in_" & mesu, siDouble, 0, -10000, 10000, , 5, -10000, 10000
SetExpr l_obj2 & ".DisplayInfo_Show_Distance.Distance_in_" & mesu, "((abs(ctr_dist( " & l_obj1 & ".," & l_obj2 & ". ))) * " & mesuNb & ")"



DeleteObj "Scene_Units_Ruban*"
SetValue "Ruban.Name", "Ruban1"

end sub

'**********************