Required codign in .net
Hi,
SendCommand expects a string as argument and there're none implicit cast from AcadUtils.GetEntity() returned value and the String type.
If your're targetting AutoCAD 2015 or later, you can use the Editor.Command() method, for prior versions, you can use the Tony Tanzillo's wrapper for the non public RunCommand() method which works the same way.
Assuming the dialog is shown as modal dialog and the "Cutback Extruction" layer already exists in the document.
C#
private void button1_Click(object sender, EventArgs e)
{
var doc = AcAp.DocumentManager.MdiActiveDocument;
var ed = doc.Editor;
var selection = ed.GetSelection();
if (selection.Status == PromptStatus.OK)
ed.Command("_COPYTOLAYER", selection.Value, "", "Cutback Extruction", "");
}
VB
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim doc As Document = AcApp.DocumentManager.MdiActiveDocument
Dim ed As Editor = doc.Editor
Dim selection As PromptSelectionResult = ed.GetSelection()
If selection.Status = PromptStatus.OK Then
ed.Command("_COPYTOLAYER", selection.Value, "", "Cutback Extruction", "")
End If
End Sub
But, as shown by @Anonymous, it's not so difficult to mimic the "COPYTOLAYER" command.
C#
private void button2_Click(object sender, EventArgs e)
{
var doc = AcAp.DocumentManager.MdiActiveDocument;
var db = doc.Database;
var ed = doc.Editor;
var selection = ed.GetSelection();
if (selection.Status == PromptStatus.OK) return;
try
{
var ids = new ObjectIdCollection(selection.Value.GetObjectIds());
var mapping = new IdMapping();
db.DeepCloneObjects(ids, SymbolUtilityServices.GetBlockModelSpaceId(db), mapping, false);
using (var tr = db.TransactionManager.StartTransaction())
{
foreach (IdPair item in mapping)
{
if (item.IsCloned && item.IsPrimary)
{
var entity = (Entity)tr.GetObject(item.Value, OpenMode.ForWrite);
entity.Layer = "Cutback Extruction";
}
}
tr.Commit();
}
}
catch (Autodesk.AutoCAD.Runtime.Exception ex)
{
ed.WriteMessage("\n" + ex.Message);
}
}
VB
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim doc As Document = AcApp.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
Dim selection As PromptSelectionResult = ed.GetSelection()
If selection.Status <> PromptStatus.OK Then
Return
End If
Try
Dim ids As ObjectIdCollection = New ObjectIdCollection(selection.Value.GetObjectIds())
Dim mapping As IdMapping = New IdMapping()
db.DeepCloneObjects(ids, SymbolUtilityServices.GetBlockModelSpaceId(db), mapping, False)
Using tr As Transaction = db.TransactionManager.StartTransaction()
For Each item As IdPair In mapping
If item.IsCloned AndAlso item.IsPrimary Then
Dim entity As Entity = DirectCast(tr.GetObject(item.Value, OpenMode.ForWrite), Entity)
entity.Layer = "Cutback Extruction"
End If
Next
tr.Commit()
End Using
Catch ex As Autodesk.AutoCAD.Runtime.Exception
ed.WriteMessage(vbLf + ex.Message)
End Try
End Sub
How do you display this form? as modal or modeless?
If you're using:
form.Show()
or, better (see this thread😞
Autodesk.AutoCAD.ApplicationServices.Application.ShowModelessDialog(form)
you use a modeless dialog which does not execute in document context, so you cannot directly use Editor.Command() from this kind of dialog.
On the other hand if you use (not so good):
form.showDialog()
or (better):
Autodesk.AutoCAD.ApplicationServices.Application.ShowModalDialog(form)
you use a modal dialog which executes in document context and so can call Editor.Command() directly.