function rodData::createOrientedBeam(%this,%obj)
{

	%start = getWords(%obj.getSlotTransform(1),0,2);
	%end = getWords(%obj.link.getSlotTransform(1),0,2);

	%p2p = pointToPosNonLocking(%start,%end);
	%tempDist = VectorDist(%start, %end);

	%pos = getWords(%obj.getSlotTransform(1),0,2);
	if (%obj.oldBeamDistance != %tempDist)
	{
		if(isObject(%obj.vislink)) %obj.vislink.schedule(0,"delete");
	}
	if(!isObject(%obj.vislink))
	{
		%obj.vislink = createRodBeam(%pos,%rot);
		%obj.vislink.setTransform(%pos SPC %p2p);
	}
	%obj.oldBeamDistance = %tempDist;
	%obj.vislink.setScale("1" SPC %tempDist/5 SPC "1");
}