Topic: Creating new layer with plot styles

[It's Alive!]

Try this 

Code: [Select]

//Hi Kerry :)
using AcAp = Autodesk.AutoCAD.ApplicationServices;
using AcEd = Autodesk.AutoCAD.EditorInput;
using AcGe = Autodesk.AutoCAD.Geometry;
using AcRx = Autodesk.AutoCAD.Runtime;
using AcDb = Autodesk.AutoCAD.DatabaseServices;
using AcWd = Autodesk.AutoCAD.Windows;
#endregion

[assembly: CommandClass(typeof(ExecMethod.Commands))]

namespace ExecMethod
{
  public class Commands
  {
    public ObjectId CreateLayer(string layerName, short layerColor, LineWeight lineweightName)
    {
      Editor ed = AcAp.Application.DocumentManager.MdiActiveDocument.Editor;
      ObjectId layerId = ObjectId.Null;
      Database db = HostApplicationServices.WorkingDatabase;

      using (Transaction tr = db.TransactionManager.StartTransaction())
      {
        LayerTable lt = (LayerTable)tr.GetObject(db.LayerTableId, OpenMode.ForWrite);
        if (lt.Has(layerName))
        {
          layerId = lt[layerName];
          if (layerId.IsErased)
          {
            LayerTableRecord ltr = (LayerTableRecord)tr.GetObject(layerId, OpenMode.ForWrite, true);
            ltr.Erase(false);
            layerId = ltr.Id;
          }
        }
        else
        {
          if (layerColor > 255)
          {
            ed.WriteMessage(string.Format(" ERROR: Could not use LayerColor \"{0}\", using 0 instead.", layerColor));
            layerColor = 0;
          }
          LayerTableRecord ltr = new LayerTableRecord();
          ltr.Name = layerName;
          ltr.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(ColorMethod.ByAci, layerColor);
          ltr.LineWeight = lineweightName;
          layerId = lt.Add(ltr);
          tr.AddNewlyCreatedDBObject(ltr, true);
        }
        tr.Commit();
      }
      return layerId;
    }

    //
    public void AddPlotStyle(string PlotStyleName)
    {
      Database db = AcAp.Application.DocumentManager.MdiActiveDocument.Database;
      if (db.PlotStyleMode == false)
      {
        using (Transaction tr = db.TransactionManager.StartTransaction())
        {
          using (PlaceHolder hldr = new PlaceHolder())
          {
            DictionaryWithDefaultDictionary d =
              (DictionaryWithDefaultDictionary)tr.GetObject
                  (db.PlotStyleNameDictionaryId, OpenMode.ForWrite);
            d.SetAt(PlotStyleName, hldr);
            tr.Commit();
          }
        }
      }
    }

    //
    public void AddPlotStyleToLayer(ObjectId id, string PlotStyleName)
    {
      Database db = AcAp.Application.DocumentManager.MdiActiveDocument.Database;
      if (db.PlotStyleMode == false)
      {
        using (Transaction tr = db.TransactionManager.StartTransaction())
        {
          DictionaryWithDefaultDictionary d =
            (DictionaryWithDefaultDictionary)tr.GetObject
                (db.PlotStyleNameDictionaryId, OpenMode.ForRead);

          LayerTableRecord ltr =
               (LayerTableRecord)tr.GetObject(id, OpenMode.ForWrite);
          ltr.PlotStyleNameId = d.GetAt(PlotStyleName);
          tr.Commit();
        }
      }
    }

    [CommandMethod("doit")]
    public void doit()
    {
      Editor ed = AcAp.Application.DocumentManager.MdiActiveDocument.Editor;
      try
      {
        string plotstyle = "Style 1";
        AddPlotStyle(plotstyle);
        ObjectId id = this.CreateLayer("Daniel", 7, LineWeight.ByLayer);
        AddPlotStyleToLayer(id, plotstyle);
      }
      catch (System.Exception ex)
      {
        ed.WriteMessage("\n" + ex.Message + "\n" + ex.StackTrace);
      }
    }
  }
}


[It's Alive!]

this gave me the clue
http://discussion.autodesk.com/thread.jspa?messageID=395084

[mcarson]

Excellent!

What you have provided works in itself. I now have to build it into my program.

Thanks very much!

[Bryco]

PlaceHolder hldr, that's a pretty cool find Daniel, this C# stuff doesn't seem to get any easier. I used to think the vba help files were bad but compared to C# they are amazing.

[Kerry]

well researched Daniel !

[It's Alive!]

Excellent!

What you have provided works in itself. I now have to build it into my program.

Thanks very much!

You’re welcome, I must admit I probably would never had got this one if it wasn’t for Art Cooney’s post. 

[mcarson]

Another can of worms...

Attempt to add the layer more than once, and have a look at the ACAD layer dialog each time
The plot style name does not stay assigned to the layer, instead it moves with each new layer.

Am I getting this all wrong?

[It's Alive!]

you might try testing if the style exists ie

Code: [Select]

public void AddPlotStyle(string PlotStyleName)
    {
      Database db = AcAp.Application.DocumentManager.MdiActiveDocument.Database;
      if (db.PlotStyleMode == false)
      {
        using (Transaction tr = db.TransactionManager.StartTransaction())
        {
          using (PlaceHolder hldr = new PlaceHolder())
          {
            DictionaryWithDefaultDictionary d =
              (DictionaryWithDefaultDictionary)tr.GetObject
                  (db.PlotStyleNameDictionaryId, OpenMode.ForWrite);

            if (!d.Contains(PlotStyleName))//added
              d.SetAt(PlotStyleName, hldr);

            tr.Commit();
          }
        }
      }
    }


[mcarson]

I just done that while waiting on a reply; you're faster than I am!

Works now!

Thanks again!

I'll post my full code over the weekend

[It's Alive!]

Good deal!, usually the code I post is rough draft, 
you should probably add your error checking, try catches etc.,
and maybe even pass the working database as a parameter.

[Kerry]

Latitude 22°17'33.02"N  Longitude 113°57'1.73"E

Dan, what's your Vertitude ?

[MP]

Dan, what's your Vertitude ?

Kinda personal dontcha think?

 

[It's Alive!]

Latitude 22°17'33.02"N  Longitude 113°57'1.73"E

Dan, what's your Vertitude ?

33rd floor, maybe 100 or so meters MSL

PS. If you visit, bring black licorice 

[stevenh0616]

Thanks everyone for this great set of posts... this all worked really well as I encountered the same issues.

I think I saw someone ask about checking if the drawing uses CTBs or STBs. Here is some code to do just that, and it works well. Basically it just checks the system variable PSTYLEMODE and returns a boolean value, so if it's style mode, then you can apply the plot style to the layers.

Code - vb.net: [Select]

1. Public Shared Function GetPlotStyleModeTrueColorFalseStyle() As Boolean
2.         Dim result As Boolean = False
3.         If Convert.ToInt32(Application.GetSystemVariable("pstylemode")) = 1 Then
4.             result = True
5.         End If
6.         Return result
7.     End Function