Burst Blocks
Rather than trying to create a scripting engine to call commands, I'd recommend going through the API documentation to understand what makes up a block reference (and definition), and why they are organized that way. From there you can work out how BURST operates "behind the scenes" and look at duplicating/modifying/enhancing the process to your own needs. That kind of deep-level knowledge is highly useful for many other tasks you'll run into.
----------------------------------
If you are going to fly by the seat of your pants, expect friction burns.
"I don't know" is the beginning of knowledge, not the end.
If you are going to fly by the seat of your pants, expect friction burns.
"I don't know" is the beginning of knowledge, not the end.
Hi,
You cannot call the BURST "command" with SendStringToExecute() or Command() methods because it is a LISP defined command.
You can try using the COM SendCommand() method.
var psr = ed.GetSelection(new SelectionFilter(new[] { new TypedValue(0, "INSERT") }));
if (psr.Status == PromptStatus.OK)
{
ed.SetImpliedSelection(psr.Value);
dynamic acadDoc = doc.GetAcadDocument();
acadDoc.SendCommand("burst ");
}
Still a bumbling newbie, sorry.
How do i define/import Dynamic. There's no intelliprompt for a solution.
With VB, I think you have to use the Object type for late binding.
It also seems to me the GetAcadDocument() extension method does not work as expected with VB (crappy language...).
Dim acadDoc As Object = DocumentExtension.GetAcadDocument(Application.DocumentManager.MdiActiveDocument)
Anyway, I really agree with @dgorsman: scripting with .NET looks like chasing mosquitoes with a bazooka.
Accepted solution
I tried to make a version more finalized than Balaji's example which also takes into account the multiline attributes.
The code uses the C# 7 local functions feature.
[CommandMethod("XPLODEBLOCK")]
public static void ExplodeBlock()
{
var doc = Application.DocumentManager.MdiActiveDocument;
var db = doc.Database;
var ed = doc.Editor;
var psr = ed.GetSelection(new SelectionFilter(new[] { new TypedValue(0, "INSERT") }));
if (psr.Status != PromptStatus.OK)
return;
using (var tr = db.TransactionManager.StartTransaction())
{
var curSpace = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
// local functions
void append(Entity ent)
{
var id = curSpace.AppendEntity(ent);
tr.AddNewlyCreatedDBObject(ent, true);
}
DBText appendDBText(DBText source)
{
var text = new DBText
{
Normal = source.Normal,
Thickness = source.Thickness,
Oblique = source.Oblique,
Rotation = source.Rotation,
Height = source.Height,
WidthFactor = source.WidthFactor,
TextString = source.TextString,
TextStyleId = source.TextStyleId,
IsMirroredInX = source.IsMirroredInX,
IsMirroredInY = source.IsMirroredInY,
HorizontalMode = source.HorizontalMode,
VerticalMode = source.VerticalMode,
Position = source.Position
};
if (source.Justify != AttachmentPoint.BaseLeft)
{
text.Justify = source.Justify;
text.AlignmentPoint = source.AlignmentPoint;
}
text.SetPropertiesFrom(source);
append(text);
return text;
}
MText appendMtext(MText source)
{
var mtext = new MText
{
Contents = source.Contents,
FlowDirection = source.FlowDirection,
Attachment = source.Attachment,
TextHeight = source.TextHeight,
TextStyleId = source.TextStyleId,
Width = source.Width,
Rotation = source.Rotation,
Location = source.Location,
Normal = source.Normal,
LineSpacingStyle = source.LineSpacingStyle,
Height = source.Height,
LineSpacingFactor = source.LineSpacingFactor,
LineSpaceDistance = source.LineSpaceDistance
};
mtext.SetPropertiesFrom(source);
append(mtext);
return mtext;
}
// main
foreach (SelectedObject selectedObject in psr.Value)
{
var br = (BlockReference)tr.GetObject(selectedObject.ObjectId, OpenMode.ForWrite);
try
{
foreach (ObjectId id in br.AttributeCollection)
{
var att = (AttributeReference)tr.GetObject(id, OpenMode.ForRead);
if (!att.Invisible)
{
if (att.IsMTextAttribute)
appendMtext(att.MTextAttribute).Rotation += br.Rotation;
else
appendDBText(att);
}
}
var btr = (BlockTableRecord)tr.GetObject(br.BlockTableRecord, OpenMode.ForWrite);
btr.Explodable = true;
foreach (ObjectId id in btr)
{
if (id.ObjectClass.DxfName == "ATTDEF")
{
var att = (AttributeDefinition)tr.GetObject(id, OpenMode.ForRead);
if (att.Constant && !att.Invisible)
{
if (att.IsMTextAttributeDefinition)
appendMtext(att.MTextAttributeDefinition).TransformBy(br.BlockTransform);
else
appendDBText(att).TransformBy(br.BlockTransform);
}
}
}
var ents = new DBObjectCollection();
br.Explode(ents);
foreach (Entity ent in ents)
{
if (ent is AttributeDefinition)
ent.Dispose();
else
append(ent);
}
br.Erase();
}
catch
{
ed.WriteMessage($"\nFailed to explode a block named {br.Name}");
}
}
tr.Commit();
}
}
Accepted solution
Here's a VB conversion (not so difficult, you really should learn C#)
<CommandMethod("XPLODEBLOCK")>
Public Shared Sub ExplodeBlock()
Dim doc = Application.DocumentManager.MdiActiveDocument
Dim db = doc.Database
Dim ed = doc.Editor
Dim psr = ed.GetSelection(New SelectionFilter({New TypedValue(0, "INSERT")}))
If psr.Status <> PromptStatus.OK Then Return
Using tr = db.TransactionManager.StartTransaction()
Dim curSpace = CType(tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)
For Each selectedObject As SelectedObject In psr.Value
Dim br = CType(tr.GetObject(selectedObject.ObjectId, OpenMode.ForWrite), BlockReference)
Try
For Each id As ObjectId In br.AttributeCollection
Dim att = CType(tr.GetObject(id, OpenMode.ForRead), AttributeReference)
If Not att.Invisible Then
If att.IsMTextAttribute Then
AppendMText(att.MTextAttribute, curSpace, tr).Rotation += br.Rotation
Else
AppendDBText(att, curSpace, tr)
End If
End If
Next
Dim btr = CType(tr.GetObject(br.BlockTableRecord, OpenMode.ForWrite), BlockTableRecord)
btr.Explodable = True
For Each id As ObjectId In btr
If id.ObjectClass.DxfName = "ATTDEF" Then
Dim att = CType(tr.GetObject(id, OpenMode.ForRead), AttributeDefinition)
If att.Constant AndAlso Not att.Invisible Then
If att.IsMTextAttributeDefinition Then
AppendMText(att.MTextAttributeDefinition, curSpace, tr).TransformBy(br.BlockTransform)
Else
AppendDBText(att, curSpace, tr).TransformBy(br.BlockTransform)
End If
End If
End If
Next
Dim ents = New DBObjectCollection()
br.Explode(ents)
For Each ent As Entity In ents
If TypeOf ent Is AttributeDefinition Then
ent.Dispose()
Else
Append(ent, curSpace, tr)
End If
Next
br.[Erase]()
Catch
ed.WriteMessage($"\nFailed to explode a block named {br.Name}")
End Try
Next
tr.Commit()
End Using
End Sub
Private Shared Sub Append(ent As Entity, space As BlockTableRecord, tr As Transaction)
space.AppendEntity(ent)
tr.AddNewlyCreatedDBObject(ent, True)
End Sub
Private Shared Function AppendDBText(source As DBText, space As BlockTableRecord, tr As Transaction) As DBText
Dim text As DBText = New DBText()
text.SetPropertiesFrom(source)
With text
.Normal = source.Normal
.Thickness = source.Thickness
.Oblique = source.Oblique
.Rotation = source.Rotation
.Height = source.Height
.WidthFactor = source.WidthFactor
.TextString = source.TextString
.TextStyleId = source.TextStyleId
.IsMirroredInX = source.IsMirroredInX
.IsMirroredInY = source.IsMirroredInY
.HorizontalMode = source.HorizontalMode
.VerticalMode = source.VerticalMode
.Position = source.Position
End With
If source.Justify <> AttachmentPoint.BaseLeft Then
text.Justify = source.Justify
text.AlignmentPoint = source.AlignmentPoint
End If
Append(text, space, tr)
Return text
End Function
Private Shared Function AppendMText(source As MText, space As BlockTableRecord, tr As Transaction) As MText
Dim mtext As MText = New MText()
mtext.SetPropertiesFrom(source)
With mtext
.Contents = source.Contents
.FlowDirection = source.FlowDirection
.Attachment = source.Attachment
.TextHeight = source.TextHeight
.TextStyleId = source.TextStyleId
.Width = source.Width
.Rotation = source.Rotation
.Location = source.Location
.Normal = source.Normal
.LineSpacingStyle = source.LineSpacingStyle
.Height = source.Height
.LineSpacingFactor = source.LineSpacingFactor
.LineSpaceDistance = source.LineSpaceDistance
End With
Append(mtext, space, tr)
Return mtext
End Function
