The following is a demonstration of how to interactively add a linear dimension object to Rhino.
CRhinoCommand::result CCommandTest::RunCommand( const CRhinoCommandContext& context )
{
CRhinoLinearDimension* pDim = 0;
CArgsRhinoDimLinear args;
args.SetFirstPointPrompt( L"First dimension point" );
args.SetSecondPointPrompt( L"Second dimension point" );
args.SetDragPointPrompt( L"Dimension location" );
args.SetIsInteractive( context.IsInteractive() ? true : false );
CRhinoCommand::result rc = RhinoGetDimLinear( args, pDim, 0 );
if( rc == success && pDim )
{
context.m_doc.AddObject( pDim, FALSE);
context.m_doc.Redraw();
}
return rc;
}
The following is a demonstration of how to non-interactively add a linear dimension object to Rhino 4.0.
CRhinoCommand::result CCommandTestSdk::RunCommand( const CRhinoCommandContext& context )
{
ON_3dPoint origin( 1, 1, 0 );
ON_3dPoint offset( 11, 1, 0 );
ON_3dPoint pt( (offset.x-origin.x)/2, 3, 0 );
CRhinoLinearDimension* dim_obj = new CRhinoLinearDimension();
ON_Plane plane( ON_xy_plane );
plane.SetOrigin( origin );
dim_obj->SetPlane( plane );
double u, v;
plane.ClosestPointTo( origin, &u, &v );
dim_obj->SetPoint( 0, ON_2dPoint(u,v) );
plane.ClosestPointTo( offset, &u, &v );
dim_obj->SetPoint( 2, ON_2dPoint(u,v) );
plane.ClosestPointTo( pt, &u, &v );
dim_obj->UpdateDimPoints( ON_2dPoint(u,v) );
dim_obj->UpdateText();
if( context.m_doc.AddObject(dim_obj) )
context.m_doc.Redraw();
else
delete dim_obj;
return CRhinoCommand::success;
}
The following is a demonstration of how to non-interactively add a linear dimension object to Rhino 3.0.
CRhinoCommand::result CCommandTestSdk::RunCommand( const CRhinoCommandContext& context )
{
ON_3dPoint origin( 1, 1, 0 );
ON_3dPoint offset( 11, 1, 0 );
ON_3dPoint pt( (offset.x-origin.x)/2, 3, 0 );
ON_LinearDimension2* dim = new ON_LinearDimension2;
CRhinoLinearDimension* dim_obj = new CRhinoLinearDimension();
dim_obj->SetAnnotation( dim );
ON_Plane plane( ON_xy_plane );
plane.SetOrigin( origin );
dim_obj->SetPlane( plane );
double u, v;
plane.ClosestPointTo( origin, &u, &v );
dim_obj->SetPoint( 0, ON_2dPoint(u,v) );
plane.ClosestPointTo( offset, &u, &v );
dim_obj->SetPoint( 2, ON_2dPoint(u,v) );
plane.ClosestPointTo( pt, &u, &v );
dim_obj->UpdateDimPoints( ON_2dPoint(u,v) );
dim_obj->UpdateArrows();
dim_obj->UpdateText();
if( context.m_doc.AddObject(dim_obj) )
context.m_doc.Redraw();
else
delete dim_obj;
return CRhinoCommand::success;
}
Interactively add a dimension
Public Overrides Function RunCommand(ByVal context As IRhinoCommandContext)_
As RMA.Rhino.IRhinoCommand.result
Dim args As New MArgsRhinoDimLinear()
args.SetFirstPointPrompt("First dimension point")
args.SetSecondPointPrompt("Second dimension point")
args.SetDragPointPrompt("Dimension location")
args.SetIsInteractive(context.IsInteractive())
Dim pDim As MRhinoLinearDimension = Nothing
Dim rc As IRhinoCommand.result = RhUtil.RhinoGetDimLinear(args, pDim)
If (rc = IRhinoCommand.result.success And pDim IsNot Nothing) Then
context.m_doc.AddObject(pDim, False)
context.m_doc.Redraw()
End If
Return rc
End Function
Non-Interactive method
Public Overrides Function RunCommand(ByVal context As IRhinoCommandContext)_
As IRhinoCommand.result
Dim origin As New On3dPoint(1, 1, 0)
Dim offset As New On3dPoint(11, 1, 0)
Dim pt As New On3dPoint((offset.x - origin.x) / 2.0, 3, 0)
Dim dim_obj As New MRhinoLinearDimension()
Dim plane As New OnPlane(OnUtil.On_xy_plane)
plane.SetOrigin(origin)
dim_obj.SetPlane(plane)
Dim u As Double = 0
Dim v As Double = 0
plane.ClosestPointTo(origin, u, v)
dim_obj.SetPoint(0, New On2dPoint(u, v))
plane.ClosestPointTo(offset, u, v)
dim_obj.SetPoint(2, New On2dPoint(u, v))
plane.ClosestPointTo(pt, u, v)
Dim dimlinept As New On2dPoint(u, v)
dim_obj.UpdateDimPoints(dimlinept)
dim_obj.UpdateText()
If (context.m_doc.AddObject(dim_obj) = True) Then
context.m_doc.Redraw()
End If
Return IRhinoCommand.result.success
End Function
Interactively add a dimension
public override IRhinoCommand.result RunCommand(IRhinoCommandContext context)
{
MArgsRhinoDimLinear args = new MArgsRhinoDimLinear();
args.SetFirstPointPrompt( "First dimension point" );
args.SetSecondPointPrompt( "Second dimension point" );
args.SetDragPointPrompt( "Dimension location" );
args.SetIsInteractive( context.IsInteractive() );
MRhinoLinearDimension pDim = null;
IRhinoCommand.result rc = RhUtil.RhinoGetDimLinear(ref args, out pDim);
if( rc == IRhinoCommand.result.success && pDim != null )
{
context.m_doc.AddObject( pDim, false);
context.m_doc.Redraw();
}
return rc;
}
Non-Interactive method
public override IRhinoCommand.result RunCommand(IRhinoCommandContext context)
{
On3dPoint origin = new On3dPoint(1,1,0);
On3dPoint offset = new On3dPoint(11,1,0);
On3dPoint pt = new On3dPoint( (offset.x - origin.x)/2.0, 3, 0 );
MRhinoLinearDimension dim_obj = new MRhinoLinearDimension();
OnPlane plane = new OnPlane( OnUtil.On_xy_plane );
plane.SetOrigin( origin );
dim_obj.SetPlane( plane );
double u=0,v=0;
plane.ClosestPointTo( origin, ref u, ref v);
dim_obj.SetPoint( 0, new On2dPoint(u,v) );
plane.ClosestPointTo( offset, ref u, ref v );
dim_obj.SetPoint( 2, new On2dPoint(u,v) );
plane.ClosestPointTo( pt, ref u, ref v );
On2dPoint dimlinept = new On2dPoint(u, v);
dim_obj.UpdateDimPoints( ref dimlinept );
dim_obj.UpdateText();
if( context.m_doc.AddObject(dim_obj) )
context.m_doc.Redraw();
return IRhinoCommand.result.success;
}