Community
In most cases of jigging multiple entities, your custom Jig would be better off to derive from DrawJig, rather than EntityJig. However, there is very minor difference between the two in terms the purpose of jigging: providing visual feedback to user's mouse move.
If you insist to use EntityJig, you can simply make your custom jig's constructor like this:
Private myEntities() As Entity
Private myBasePoint As Point3d
Public Sub New MyCopyJig(ents As Entitys(), basePoint As Point3d)
MyBase(Nothing)
''stored the passed entity array in a private member field here
myEntities=ents
myBasePoint=basePoint
End Sub
Of course, this EntityJig derived Jib object will have its Entity property equals null, but it will not matter, because you do not need it anyway.
Then in the overriden Update() method, you will transform the array of entities instead of a single entity. Do not forget to dispose the array of cloned entities, if the jiging is cancelled.
Hi
There's a simpler solution to drag several entities with the overload Editor.Drag(PromptDragOptions) or Editor.Drag(SelectionSet, string, DragCallback) methods. The two methods are similar as the PromptDragOptions constructor requires the same arguments as the second method.
If you're not starting with a selection set, you can build one from an ObjectId array with the static (Shared) SelectionSet.FromObjectIds(ObjectId[]) method.
Here a little example which mimics the MOVE command.
C#
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.Runtime;
namespace CsMoveSelectionSet
{
public class Commands
{
Point3d _basePoint;
[CommandMethod("Test")]
public void Test()
{
Document doc = Application.DocumentManager.MdiActiveDocument;
Database db = doc.Database;
Editor ed = doc.Editor;
PromptSelectionResult psr = ed.GetSelection();
if (psr.Status != PromptStatus.OK)
return;
using (Transaction tr = db.TransactionManager.StartTransaction())
{
List<Entity> ents = new List<Entity>();
foreach (ObjectId id in psr.Value.GetObjectIds())
{
Entity ent = (Entity)tr.GetObject(id, OpenMode.ForWrite);
ent.Highlight();
ents.Add(ent);
}
PromptPointOptions ppo = new PromptPointOptions("\nBase point: ");
ppo.AllowNone = true;
PromptPointResult ppr = ed.GetPoint(ppo);
if (ppr.Status != PromptStatus.OK)
return;
Matrix3d ucs = ed.CurrentUserCoordinateSystem;
Point3d basePoint = ppr.Value.TransformBy(ucs);
PromptDragOptions pdo = new PromptDragOptions(
psr.Value,
"\nSecond point: ",
delegate(Point3d pt, ref Matrix3d xform)
{
if (pt.IsEqualTo(basePoint))
{
return SamplerStatus.NoChange;
}
else
{
xform = Matrix3d.Displacement(basePoint.GetVectorTo(pt.TransformBy(ucs)));
return SamplerStatus.OK;
}
});
pdo.AllowNone = true;
ppr = ed.Drag(pdo);
if (ppr.Status == PromptStatus.OK)
{
Matrix3d mat = Matrix3d.Displacement(basePoint.GetVectorTo(ppr.Value.TransformBy(ucs)));
foreach (Entity ent in ents)
{
ent.TransformBy(mat);
}
}
else
{
foreach (Entity ent in ents)
{
ent.Unhighlight();
}
}
tr.Commit();
}
}
}
}
F#
module FsMoveSelectionSet
open Autodesk.AutoCAD.ApplicationServices
open Autodesk.AutoCAD.DatabaseServices
open Autodesk.AutoCAD.EditorInput
open Autodesk.AutoCAD.Geometry
open Autodesk.AutoCAD.Runtime
[<CommandMethod("Test")>]
let test () =
let doc = Application.DocumentManager.MdiActiveDocument
let db = doc.Database
let ed = doc.Editor
let psr = ed.GetSelection()
if psr.Status = PromptStatus.OK then
use tr = db.TransactionManager.StartTransaction()
let ents = psr.Value.GetObjectIds()
|> Array.map(fun id -> tr.GetObject(id, OpenMode.ForWrite) :?> Entity)
ents |> Array.iter(fun ent -> ent.Highlight())
let ppo = new PromptPointOptions("\nBase point: ")
ppo.AllowNone <- true
let ppr = ed.GetPoint(ppo)
if ppr.Status = PromptStatus.OK then
let ucs = ed.CurrentUserCoordinateSystem
let basePoint = ppr.Value.TransformBy(ucs)
let pdo = new PromptDragOptions(
psr.Value,
"\nSecond point: ",
fun pt (xform: Matrix3d byref) ->
if pt.IsEqualTo(basePoint) then
SamplerStatus.NoChange
else
xform <- Matrix3d.Displacement(basePoint.GetVectorTo(pt.TransformBy(ucs)))
SamplerStatus.OK)
pdo.AllowNone <- true
let ppr = ed.Drag(pdo)
if ppr.Status = PromptStatus.OK then
let xform = Matrix3d.Displacement(basePoint.GetVectorTo(ppr.Value.TransformBy(ucs)))
ents |> Array.iter(fun ent -> ent.TransformBy(xform))
else
ents |> Array.iter(fun ent -> ent.Unhighlight())
tr.Commit()
VB
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Runtime
Namespace VbMoveSelectionSet
Public Class Commands
Private basePoint As Point3d
<CommandMethod("Test")> _
Public Sub Test()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
Dim psr As PromptSelectionResult = ed.GetSelection()
If psr.Status <> PromptStatus.OK Then
Return
End If
Using tr As Transaction = db.TransactionManager.StartTransaction()
Dim ents As New List(Of Entity)()
For Each id As ObjectId In psr.Value.GetObjectIds()
Dim ent As Entity = DirectCast(tr.GetObject(id, OpenMode.ForWrite), Entity)
ent.Highlight()
ents.Add(ent)
Next
Dim ppo As New PromptPointOptions(vbLf & "Base point: ")
ppo.AllowNone = True
Dim ppr As PromptPointResult = ed.GetPoint(ppo)
If ppr.Status <> PromptStatus.OK Then
Return
End If
Dim ucs As Matrix3d = ed.CurrentUserCoordinateSystem
basePoint = ppr.Value.TransformBy(ucs)
Dim pdo As New PromptDragOptions(psr.Value, vbLf & "Second point: ", AddressOf Callback)
pdo.AllowNone = True
ppr = ed.Drag(pdo)
If ppr.Status = PromptStatus.OK Then
Dim mat As Matrix3d = Matrix3d.Displacement(basePoint.GetVectorTo(ppr.Value.TransformBy(ucs)))
For Each ent As Entity In ents
ent.TransformBy(mat)
ent.Unhighlight()
Next
Else
For Each ent As Entity In ents
ent.Unhighlight()
Next
End If
tr.Commit()
End Using
End Sub
Private Function Callback(ByVal pt As Point3d, ByRef xform As Matrix3d) As SamplerStatus
If pt.IsEqualTo(basePoint) Then
Return SamplerStatus.NoChange
Else
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim ucs As Matrix3d = ed.CurrentUserCoordinateSystem
xform = Matrix3d.Displacement(basePoint.GetVectorTo(pt.TransformBy(ucs)))
Return SamplerStatus.OK
End If
End Function
End Class
End Namespace
A Copy method using the same way
C#
private ObjectIdCollection Copy(Database db, Editor ed, ObjectIdCollection source)
{
ObjectIdCollection copied = new ObjectIdCollection();
PromptPointResult result = ed.GetPoint("\nBase point: ");
if (result.Status != PromptStatus.OK)
return copied;
Matrix3d ucs = ed.CurrentUserCoordinateSystem;
Point3d basePoint = result.Value.TransformBy(ucs);
using (IdMapping idMap = new IdMapping())
{
db.DeepCloneObjects(source, db.CurrentSpaceId, idMap, false);
foreach (IdPair pair in idMap)
{
if (pair.IsPrimary && pair.IsCloned)
copied.Add(pair.Value);
}
}
ObjectId[] ids = new ObjectId[copied.Count];
copied.CopyTo(ids, 0);
SelectionSet selSet = SelectionSet.FromObjectIds(ids);
Matrix3d disp = new Matrix3d();
DragCallback callback = (Point3d current, ref Matrix3d xform) =>
{
Point3d pt = current.TransformBy(ucs);
if (pt.IsEqualTo(basePoint)) return SamplerStatus.NoChange;
disp = xform = Matrix3d.Displacement(basePoint.GetVectorTo(pt));
return SamplerStatus.OK;
};
result = ed.Drag(selSet, "\nSecond point: ", callback);
using (Transaction tr = db.TransactionManager.StartTransaction())
{
var ents = ids.Select(id => (Entity)tr.GetObject(id, OpenMode.ForWrite));
if (result.Status == PromptStatus.OK)
{
foreach (Entity ent in ents)
{
ent.TransformBy(disp);
}
}
else
{
foreach (Entity ent in ents)
{
ent.Erase();
}
copied.Clear();
}
tr.Commit();
}
return copied;
}
VB
Private Function Copy(db As Database, ed As Editor, source As ObjectIdCollection) As ObjectIdCollection
Dim copied As ObjectIdCollection = New ObjectIdCollection()
Dim result As PromptPointResult = ed.GetPoint(vbLf & "Base point: ")
If result.Status <> PromptStatus.OK Then
Return copied
End If
Dim ucs As Matrix3d = ed.CurrentUserCoordinateSystem
Dim basePoint As Point3d = result.Value
Using idMap As IdMapping = New IdMapping()
db.DeepCloneObjects(source, db.CurrentSpaceId, idMap, False)
For Each pair As IdPair In idMap
If pair.IsPrimary AndAlso pair.IsCloned Then
copied.Add(pair.Value)
End If
Next
End Using
Dim ids(copied.Count - 1) As ObjectId
copied.CopyTo(ids, 0)
Dim selSet As SelectionSet = SelectionSet.FromObjectIds(ids)
Dim disp As Matrix3d = New Matrix3d()
Dim callback As DragCallback = _
Function(current As Point3d, ByRef xform As Matrix3d)
Dim pt As Point3d = current.TransformBy(ucs)
If current.IsEqualTo(basePoint) Then
Return SamplerStatus.NoChange
Else
xform = Matrix3d.Displacement(basePoint.GetVectorTo(pt))
disp = xform
Return SamplerStatus.OK
End If
End Function
result = ed.Drag(selSet, vbLf & "Second point: ", callback)
Using tr As Transaction = db.TransactionManager.StartTransaction()
Dim ents As IEnumerable(Of Entity) = _
From id In ids Select DirectCast(tr.GetObject(id, OpenMode.ForWrite), Entity)
If result.Status = PromptStatus.OK Then
For Each ent As Entity In ents
ent.TransformBy(disp)
Next
Else
For Each ent As Entity In ents
ent.Erase()
Next
copied.Clear()
End If
tr.Commit()
End Using
Return copied
End Function
Here's a better implementation of the previous method.
C#
private ObjectIdCollection Copy(Database db, Editor ed, ObjectId[] source)
{
ObjectIdCollection copied = new ObjectIdCollection();
PromptPointResult result = ed.GetPoint("\nBase point: ");
if (result.Status != PromptStatus.OK)
return copied;
Matrix3d ucs = ed.CurrentUserCoordinateSystem;
Point3d basePoint = result.Value.TransformBy(ucs);
SelectionSet selSet = SelectionSet.FromObjectIds(source);
Matrix3d disp = new Matrix3d();
DragCallback callback = (Point3d current, ref Matrix3d xform) =>
{
Point3d pt = current.TransformBy(ucs);
if (pt.IsEqualTo(basePoint)) return SamplerStatus.NoChange;
disp = xform = Matrix3d.Displacement(basePoint.GetVectorTo(pt));
return SamplerStatus.OK;
};
result = ed.Drag(selSet, "\nSecond point: ", callback);
if (result.Status == PromptStatus.OK)
{
using (Transaction tr = db.TransactionManager.StartTransaction())
using (IdMapping idMap = new IdMapping())
{
db.DeepCloneObjects(new ObjectIdCollection(source), db.CurrentSpaceId, idMap, false);
foreach (IdPair pair in idMap)
{
if (pair.IsPrimary && pair.IsCloned)
{
copied.Add(pair.Value);
Entity ent = (Entity)tr.GetObject(pair.Value, OpenMode.ForWrite);
ent.TransformBy(disp);
}
}
tr.Commit();
}
}
return copied;
}
VB
Private Function Copy(db As Database, ed As Editor, source As ObjectId()) As ObjectIdCollection
Dim copied As ObjectIdCollection = New ObjectIdCollection()
Dim result As PromptPointResult = ed.GetPoint(vbLf & "Base point: ")
If result.Status = PromptStatus.OK Then
Dim ucs As Matrix3d = ed.CurrentUserCoordinateSystem
Dim basePoint As Point3d = result.Value
Dim selSet As SelectionSet = SelectionSet.FromObjectIds(source)
Dim disp As Matrix3d = New Matrix3d()
Dim callback As DragCallback = _
Function(current As Point3d, ByRef xform As Matrix3d)
Dim pt As Point3d = current.TransformBy(ucs)
If current.IsEqualTo(basePoint) Then
Return SamplerStatus.NoChange
Else
xform = Matrix3d.Displacement(basePoint.GetVectorTo(pt))
disp = xform
Return SamplerStatus.OK
End If
End Function
result = ed.Drag(selSet, vbLf & "Second point: ", callback)
If result.Status = PromptStatus.OK Then
Using tr As Transaction = db.TransactionManager.StartTransaction()
Using idMap As IdMapping = New IdMapping()
db.DeepCloneObjects(New ObjectIdCollection(source), db.CurrentSpaceId, idMap, False)
For Each pair As IdPair In idMap
If pair.IsPrimary AndAlso pair.IsCloned Then
copied.Add(pair.Value)
Dim ent As Entity = DirectCast(tr.GetObject(pair.Value, OpenMode.ForWrite), Entity)
ent.TransformBy(disp)
End If
Next
End Using
tr.Commit()
End Using
End If
End If
If you rather use a DrawJig derived class, you have to transform the entities (the DrawJig only draws transformed geometries).
C#
the CopyJig class
class CopyJig : DrawJig
{
Point3d basePoint, dragPoint;
Matrix3d xform;
Entity[] entities;
public CopyJig(IEnumerable<Entity> ents, Point3d basePoint)
{
this.basePoint = basePoint;
this.entities = ents.ToArray();
}
public Matrix3d Transform { get { return xform; } }
protected override bool WorldDraw(WorldDraw draw)
{
WorldGeometry wg = draw.Geometry;
xform = Matrix3d.Displacement(basePoint.GetVectorTo(dragPoint));
wg.PushModelTransform(xform);
foreach (Entity ent in entities)
{
wg.Draw(ent);
}
wg.PopModelTransform();
return true;
}
protected override SamplerStatus Sampler(JigPrompts prompts)
{
JigPromptPointOptions options = new JigPromptPointOptions("\nSecond point: ");
options.BasePoint = basePoint;
options.UseBasePoint = true;
options.Cursor = CursorType.RubberBand;
options.UserInputControls = UserInputControls.Accept3dCoordinates;
PromptPointResult result = prompts.AcquirePoint(options);
if (result.Value.IsEqualTo(dragPoint))
return SamplerStatus.NoChange;
dragPoint = result.Value;
return SamplerStatus.OK;
}
}
the JigCopy method
private ObjectIdCollection JigCopy(Database db, Editor ed, ObjectIdCollection source)
{
ObjectIdCollection copied = new ObjectIdCollection();
Entity[] entities = new Entity[source.Count];
PromptPointResult result = ed.GetPoint("\nBase point: ");
if (result.Status != PromptStatus.OK)
return copied;
Matrix3d ucs = ed.CurrentUserCoordinateSystem;
Point3d basePoint = result.Value.TransformBy(ucs);
using (Transaction tr = db.TransactionManager.StartTransaction())
{
for (int i = 0; i < source.Count; i++)
{
entities[i] = (Entity)tr.GetObject(source[i], OpenMode.ForRead);
}
CopyJig jig = new CopyJig(entities, basePoint);
PromptResult pr = ed.Drag(jig);
if (pr.Status == PromptStatus.OK)
{
Matrix3d xform = jig.Transform;
using (IdMapping idMap = new IdMapping())
{
db.DeepCloneObjects(source, db.CurrentSpaceId, idMap, false);
foreach (IdPair pair in idMap)
{
if (pair.IsPrimary && pair.IsCloned)
{
copied.Add(pair.Value);
Entity ent = (Entity)tr.GetObject(pair.Value, OpenMode.ForWrite);
ent.TransformBy(xform);
}
}
}
}
tr.Commit();
}
return copied;
}
VB
the CopyJig class
Private Class EntitiesJig
Inherits DrawJig
Private basePoint As Point3d
Private dragPoint As Point3d
Private xform As Matrix3d
Private entities() As Entity
Public Sub New(ents As IEnumerable(Of Entity), basePt As Point3d)
basePoint = basePt
entities = ents.ToArray()
End Sub
Public ReadOnly Property Transform() As Matrix3d
Get
Return xform
End Get
End Property
Protected Overrides Function Sampler(prompts As JigPrompts) As SamplerStatus
Dim options As JigPromptPointOptions = New JigPromptPointOptions(vbLf & "Second point: ")
options.BasePoint = basePoint
options.UseBasePoint = True
options.Cursor = CursorType.RubberBand
options.UserInputControls = UserInputControls.Accept3dCoordinates
Dim result As PromptPointResult = prompts.AcquirePoint(options)
If result.Value.IsEqualTo(dragPoint) Then
Return SamplerStatus.NoChange
End If
dragPoint = result.Value
Return SamplerStatus.OK
End Function
Protected Overrides Function WorldDraw(draw As WorldDraw) As Boolean
Dim wg As WorldGeometry = draw.Geometry
xform = Matrix3d.Displacement(basePoint.GetVectorTo(dragPoint))
wg.PushModelTransform(xform)
For Each entity As Entity In entities
wg.Draw(entity)
Next
wg.PopModelTransform()
Return True
End Function
End Class
the JigCopy method
Private Function JigCopy(db As Database, ed As Editor, source As ObjectIdCollection) As ObjectIdCollection
Dim copied As ObjectIdCollection = New ObjectIdCollection()
Dim entities(source.Count - 1) As Entity
Dim result As PromptPointResult = ed.GetPoint(vbLf & "Base point: ")
If result.Status <> PromptStatus.OK Then
Return copied
End If
Dim ucs As Matrix3d = ed.CurrentUserCoordinateSystem
Dim basePoint As Point3d = result.Value.TransformBy(ucs)
Using tr As Transaction = db.TransactionManager.StartTransaction()
For i = 0 To source.Count - 1
entities(i) = DirectCast(tr.GetObject(source(i), OpenMode.ForRead), Entity)
Next
Dim jig As EntitiesJig = New EntitiesJig(entities, basePoint)
Dim pr As PromptResult = ed.Drag(jig)
If pr.Status = PromptStatus.OK Then
Dim xform As Matrix3d = jig.Transform
Using idMap As IdMapping = New IdMapping()
db.DeepCloneObjects(source, db.CurrentSpaceId, idMap, False)
For Each pair As IdPair In idMap
If pair.IsPrimary AndAlso pair.IsCloned Then
copied.Add(pair.Value)
Dim ent As Entity = _
DirectCast(tr.GetObject(pair.Value, OpenMode.ForWrite), Entity)
ent.TransformBy(xform)
End If
Next
End Using
End If
tr.Commit()
End Using
Return copied
End Function
