Hello,
First time user here. I am trying to rotate a bunch of entities like so:
This image represents a bunch of lines, blocks, circles etc being rotated using the built-in AutoCAD rotate command.
Knowing that I can access all of those object IDs and store them into an ObjectIDCollection, how do I go about passing that collection into the rotate command? Is this possible? Or do I need to build a rotate command from scratch? Perhaps there's an easier way of doing all this ...?
Rather than using SendStringToExecute(), if you're targeting AutoCAD 2015, use the new Editor.Command() method.
For prior versions, Tony "DiningPhiliosopher" Tanzillo, provided a wrapper for the undocumented RunCommand() method.
Both work the same way and accept selection sets as arguments :
acDoc.Editor.Command("_.rotate", SelSet, "", basePt, angleInCurrentAngularUnits)
basePt can be expressed as a string : "10,20,0" or as a Point3d, the same for angleInCurrentAngularUnits (string or double).
If the last parameters are omitted Editor.Command() prompts the user to input them.
Thanks for the link.
So I implemented a module that contains exactly what Tony suggested for the RunCommand wrapper. I have no errors, everything seems to be passing fluidly.
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Linq.Expressions
Imports System.Reflection
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Module EditorInputExtensionMethods
<System.Runtime.CompilerServices.Extension()> _
Public Function Command(editor As Editor, ParamArray args As Object()) As PromptStatus
If editor Is Nothing Then
Throw New ArgumentNullException("editor")
End If
Return runCommand(editor, args)
End Function
Dim runCommand As Func(Of Editor, Object(), PromptStatus) = GenerateRunCommand()
Private Function GenerateRunCommand() As Func(Of Editor, Object(), PromptStatus)
Dim method As MethodInfo = GetType(Editor).GetMethod( _
"RunCommand", BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.[Public])
Dim instance As ParameterExpression = Expression.Parameter(GetType(Editor), "editor")
Dim args As ParameterExpression = Expression.Parameter(GetType(Object()), "args")
Return Expression.Lambda(Of Func(Of Editor, Object(), PromptStatus)) _
(Expression.Call(instance, method, args), instance, args).Compile()
End Function
End Module
Although, it doesn't provide a rotate command to my drawing.
I also tried "_.rotation" since my AutoCAD is in French but it didn't change anything. Is it because my SelSet has "Unavailable" entries or something? That doesn't seem right to me ...
My object IDs are correctly added to the list. Perhaps I'm missing something very obvious... It doesn't seem to prompt me for anything when I execute this operation.
Thanks in advance!
It seems to me that with VB (I'm not very familiar with VB), you need to import the module where the extension method is defined in the file where the command which use it is defined :
Import EditorInputExtensionMethods
If your AutoCAD is French use "rotation" / ".rotation" or "_rotate" / "_.rotate". The underscore is used to call the global command name and the dot insure to call the native (undefined) command.
This works for me (AutoCAD 2014). I hope it helps.
Imports System.Linq.Expressions
Imports System.Reflection
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Namespace MeasureSample
Module EditorInputExtensionMethods
<System.Runtime.CompilerServices.Extension> _
Public Function Command(editor As Editor, ParamArray args As Object()) As PromptStatus
If editor Is Nothing Then
Throw New ArgumentNullException("editor")
End If
Return runCommand(editor, args)
End Function
Dim runCommand As Func(Of Editor, Object(), PromptStatus) = GenerateRunCommand()
Private Function GenerateRunCommand() As Func(Of Editor, Object(), PromptStatus)
Dim method As MethodInfo = GetType(Editor).GetMethod( _
"RunCommand", BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.[Public])
Dim instance As ParameterExpression = Expression.Parameter(GetType(Editor), "editor")
Dim args As ParameterExpression = Expression.Parameter(GetType(Object()), "args")
Return Expression.Lambda(Of Func(Of Editor, Object(), PromptStatus))( _
Expression.Call(instance, method, args), instance, args).Compile()
End Function
End Module
Public Class CommandMethods
<CommandMethod("TEST")>
Public Sub Test()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim ed As Editor = doc.Editor
Dim db As Database = doc.Database
Dim ids As ObjectIdCollection = New ObjectIdCollection()
Using tr As Transaction = db.TransactionManager.StartOpenCloseTransaction()
Dim space As BlockTableRecord = _
DirectCast(tr.GetObject(db.CurrentSpaceId, OpenMode.ForRead), BlockTableRecord)
For Each id As ObjectId In space
ids.Add(id)
Next
End Using
Dim array(ids.Count - 1) As ObjectId
ids.CopyTo(array, 0)
Dim selSet As SelectionSet = SelectionSet.FromObjectIds(array)
ed.Command("_.rotate", selSet, "")
End Sub
End Class
End Namespace
Gilles,
After some more testing, here's what I came up with. I have AutoCAD 2014 as well.
I've been testing this using my Acad Standard executable:
I just tested it out in my Mechanical version and it works correctly.
I utilize the Standard version (normally) and it doesn't work in that. Any idea why? That's so odd! Thanks for going through that much trouble though. I just need to figure out why it's glitchy in standard Acad.
As far as I know, the Editor.Command() (this wrapper as the 2015 built-in one) needs to have all its arguments to run synchronously.
With AutoCAD 2015, the Editor.CommandAsync() allows what you want to do.
Public Async Sub TestCommand()
' ...
Await ed.CommandAsync("_.rotate", selSet, "", Editor.PauseToken, Editor.PauseToken)
' ...
End Sub
With prior versions of AutoCAD, you could easily write this in AutoLISP.
If you need .NET, you'll have to take the Jig route, here's a little C# sample.
public class CommandMethods
{
[CommandMethod("TEST")]
public void Test()
{
Document doc = Application.DocumentManager.MdiActiveDocument;
Database db = doc.Database;
Editor ed = doc.Editor;
PromptSelectionResult selection = ed.GetSelection();
if (selection.Status != PromptStatus.OK)
return;
PromptPointResult pointResult = ed.GetPoint("\nBase point: ");
if (pointResult.Status != PromptStatus.OK)
return;
SelectionSet selSet = selection.Value;
Matrix3d ucs = ed.CurrentUserCoordinateSystem;
Point3d basePoint = pointResult.Value.TransformBy(ucs);
using (Transaction tr = db.TransactionManager.StartTransaction())
{
Entity[] entities = new Entity[selSet.Count];
for (int i = 0; i < selSet.Count; i++)
{
entities[i] = (Entity)tr.GetObject(selSet[i].ObjectId, OpenMode.ForWrite);
}
// create a new instance of RotateJig
RotateJig jig = new RotateJig(entities, basePoint, ucs.CoordinateSystem3d.Zaxis);
// pass it to the Editor.Drag method
PromptResult result = ed.Drag(jig);
// if the user didn't cancel...
if (result.Status == PromptStatus.OK)
{
// apply the rotation to each entity
foreach (Entity entity in entities)
{
entity.TransformBy(jig.Rotation);
}
}
tr.Commit();
}
}
}
// the RotateJig inherits from DrawJid to deal with multiple entities
class RotateJig : DrawJig
{
private Entity[] entities;
private Point3d basePoint;
double angle = 0.0;
Vector3d axis;
// public property (needed from the calling method)
public Matrix3d Rotation { get; private set; }
// constructor
public RotateJig(Entity[] ents, Point3d basePoint, Vector3d axis)
{
this.entities = ents;
this.basePoint = basePoint;
this.axis = axis;
}
// dynamically rotate the entities
protected override bool WorldDraw(Autodesk.AutoCAD.GraphicsInterface.WorldDraw draw)
{
Autodesk.AutoCAD.GraphicsInterface.WorldGeometry geo = draw.Geometry;
if (geo != null)
{
geo.PushModelTransform(this.Rotation);
foreach (Entity ent in entities)
{
geo.Draw(ent);
}
geo.PopModelTransform();
}
return true;
}
// prompt the user to specify a rotation
protected override SamplerStatus Sampler(JigPrompts prompts)
{
JigPromptAngleOptions options = new JigPromptAngleOptions("\nSpecify rotation: ");
options.BasePoint = basePoint;
options.UseBasePoint = true;
options.Cursor = CursorType.RubberBand;
PromptDoubleResult result = prompts.AcquireAngle(options);
if (result.Value == angle)
{
return SamplerStatus.NoChange;
}
angle = result.Value;
this.Rotation = Matrix3d.Rotation(angle, axis, basePoint);
return SamplerStatus.OK;
}
}