Hi,
Here's a little sample adding two offseted arcs and the lines to close.
It's C#, but easy to convert to VB
{code}
[CommandMethod("Test")]
public void Test()
{
Document doc = Application.DocumentManager.MdiActiveDocument;
Database db = doc.Database;
using (Transaction tr = db.TransactionManager.StartTransaction())
{
BlockTableRecord btr = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite) as BlockTableRecord;
Point3d center = new Point3d(5.0, 5.0, 0.0);
double ang45 = Math.PI * 0.25;
double ang135 = Math.PI * 0.75;
Arc arc1 = new Arc(center, 5.0, ang45, ang135);
Arc arc2 = new Arc(center, 6.0, ang45, ang135);
Line line1 = new Line(arc1.StartPoint, arc2.StartPoint);
Line line2 = new Line(arc1.EndPoint, arc2.EndPoint);
btr.AppendEntity(arc1);
tr.AddNewlyCreatedDBObject(arc1, true);
btr.AppendEntity(arc2);
tr.AddNewlyCreatedDBObject(arc2, true);
btr.AppendEntity(line1);
tr.AddNewlyCreatedDBObject(line1, true);
btr.AppendEntity(line2);
tr.AddNewlyCreatedDBObject(line2, true);
tr.Commit();
}
}{code}
You can replace:
{code}btr.AppendEntity(arc1);
tr.AddNewlyCreatedDBObject(arc1, true);
btr.AppendEntity(arc2);
tr.AddNewlyCreatedDBObject(arc2, true);
btr.AppendEntity(line1);
tr.AddNewlyCreatedDBObject(line1, true);
btr.AppendEntity(line2);
tr.AddNewlyCreatedDBObject(line2, true);{code}
by:
{code}Entity[] ents = { arc1, arc2, line1, line2 };
foreach (Entity ent in ents)
{
btr.AppendEntity(ent);
tr.AddNewlyCreatedDBObject(ent, true);
}{code}