AEC DevBlog

Anchor a tag to an entity

By Mikako Harada

Issue

I want to anchor a tag to an entity.  I used AnchorTagToEntity. But it behaves differently. I want to make the tag behaves like a door tag added by the UI. How can I do that?  

Solution

ACA uses AnchorExtendedTagToEntity to anchor a tag. It has extra functionality to the AnchorTagToEntity, for example, a tag moves together when the anchored object (e.g., a door) moves, keeping the same distance. The below is a sample code that demonstrates how to add the anchor. For simplicity, I'm assuming that the tag object is in the drawing already.

  ' Anchor a tag to an entity.

 

  <CommandMethod( _

    "ACANetScheduleLabs", "AcaAnchorTag", CommandFlags.Modal)> _

  Public Sub anchorExtendedTagToEnt()

 

    Dim doc As Document =

      Application.DocumentManager.MdiActiveDocument

    Dim ed As Editor = doc.Editor

    Dim db As Database = doc.Database

 

    ' (1) select a Geo

    ' Geo is a base class for AEC objects.

 

    Dim optGeo As New PromptEntityOptions(

      "Select a geo to anchor a tag")

    optGeo.SetRejectMessage("Not a geo")

    optGeo.AddAllowedClass(GetType(Geo), False)

 

    Dim resGeo As PromptEntityResult = ed.GetEntity(optGeo)

    If resGeo.Status <> PromptStatus.OK Then

      ed.WriteMessage("failed to pick an geo")

      Exit Sub

    End If

 

    Dim idGeo As ObjectId = resGeo.ObjectId

 

    ' (2) Select a tag

 

    Dim optTag As New PromptEntityOptions("Select a tag ")

    optTag.SetRejectMessage("Not a tag")

    optTag.AddAllowedClass(GetType(MultiViewBlockReference), True)

 

    Dim resTag As PromptEntityResult = ed.GetEntity(optTag)

    If resTag.Status <> PromptStatus.OK Then

      ed.WriteMessage("failed to pick a tag")

      Exit Sub

    End If

 

    Dim idTag As ObjectId = resTag.ObjectId

 

    ' (3) Pick a location to place the tag

 

    Dim resPt As PromptPointResult =

      ed.GetPoint("Pick a location of the tag ")

    If resPt.Status <> PromptStatus.OK Then

      ed.WriteMessage("failed to pick a location of the tag")

      Exit Sub

    End If

 

    ' (4) Add a tag to the geo using AnchorExtendedTagToEntity 

 

    Dim trans As Transaction =

      db.TransactionManager.StartTransaction()

 

    Try

      ' Open the geo for read

 

      Dim obj As Object = trans.GetObject(idGeo, OpenMode.ForRead)

      Dim objGeo As Geo = CType(obj, Geo)

      Dim ecsEnt As Matrix3d = objGeo.Ecs()

 

      ' Oopen the tag for write

 

      obj = trans.GetObject(idTag, OpenMode.ForWrite)

      Dim objTag As MultiViewBlockReference =

        CType(obj, MultiViewBlockReference)

 

      ' Adjust the location of the tag

 

      Dim pt As Point3d = resPt.Value

      objTag.Location = pt.TransformBy(ecsEnt.Inverse())

 

      ' Add an anchor between the tag and the geo

 

      Dim pAnchor As New AnchorExtendedTagToEntity

      pAnchor.SubSetDatabaseDefaults(db)

      pAnchor.SetToStandard(db)

 

      pAnchor.ForceHorizontal = False '' or True

 

      ' Here is the main part that attaches the tag to the geo

      ' entity (e.g., door and window)

 

      pAnchor.ReferencedEntityId = idGeo

      objTag.SetAnchor(pAnchor)

 

      trans.Commit()

 

    Catch ex As Exception

      trans.Abort()

    Finally

      trans.Dispose()

    End Try

 

  End Sub

Accessing the Path of a Revit Family Document from the Family Instance

By Saikat Bhattacharya

When a Revit project (RVT) file contains a family instance and we select the instance and edit the family, it opens up the Family in family editor mode. If users click Save at this point from the Revit User Interface, Revit knows the location of the Family Document from where the Family was loaded initially. Can we extract this file path (location) programmatically?

If you want to programmatically access this path of Family Document from the Family Instance, you can do that by traversing the path from Family Instance –> Family Symbol –> Family –> Family Document. But, the problem that came up with this approach was that after Family element, it only provides access to the Document property which only returns the active document in which the Family is loaded in (or where the Family Instance has been created in) – whereas what we need is to access the Family Document from which the Family was loaded.

After some further playing around, one of the approach that seemed to work was to follow the workflow as followed using Revit UI – which was to call the EditFamily() on the Family element. This provided access to the Family Document and from this Document element, the PathName could be extracted. The Family.Document had taken us to the wrong direction.

The following code snippet illustrates this approach:

using System;

using System.Collections.Generic;

using System.Text;

 

using Autodesk.Revit.Attributes;

using Autodesk.Revit.DB;

using Autodesk.Revit.UI;

 

namespace Revit.SDK.Samples.HelloRevit.CS

{

  [Transaction(TransactionMode.Manual)]

  public class Command : IExternalCommand

  {

    public Result Execute(ExternalCommandData commandData,

      ref string message,

      ElementSet elements)

    {

      Document doc = commandData.Application.ActiveUIDocument.Document;

 

      foreach (FamilyInstance famInst in commandData.Application.ActiveUIDocument.Selection.Elements)

      {

        Document famDoc = doc.EditFamily(famInst.Symbol.Family);

        TaskDialog.Show("Family PathName", famDoc.PathName);

      }

      return Result.Succeeded;

    }

  }        

}

 

UPDATE: Thanks Dan for pointing out that we indeed need to close the Family document after the path name has been extracted - otherwise each of the family documents will throw the save dialog and consequently have to close them manually before Revit is closed.

Attach a property set to a given object type

By Mikako Harada

Yesterday, I posted a sample code which shows you how to attach a property set to a given object. Here is similar, slightly modified version. Here we attach a property set to a given object type; i.e., door in this case.  

  ' Attach a property set to all door objects

  '

  <CommandMethod("ACANetScheduleLabs",

    "AcaAttachPropertySetToAllDoors",

    CommandFlags.Modal)> _

  Public Sub AttachPropertySetToAllDoors()

 

    ' Top most objects

 

    Dim doc As Document =

      Application.DocumentManager.MdiActiveDocument

    Dim db As Database = doc.Database

    Dim ed As Editor = doc.Editor

 

    ' (1) Find all the door objects in the model space

 

    Dim ids As ObjectIdCollection = Utils.findObjects(GetType(Door))

 

    ' (2) Find the property set definition with the given name. 

 

    Dim dictPropSetDef = New DictionaryPropertySetDefinitions(db)

 

    ' Find a property set definition called "ACADoorObjects".

    ' "ACADoorObjects" is what we defined in Lab1 or

    ' in the command "AcaCreatePropSetDef" or

    ' the function CreatePropertySetDefinition() we posted earlier.

    ' You can use any prop set def name that can work with door

    ' objects here. 

 

    Dim idPropSetDef As ObjectId =

      Utils.findStyle(dictPropSetDef, "ACADoorObjects")

 

    If idPropSetDef = Nothing Then Return

 

    ' (3) Attach the given property set to the given object.

 

    Try

      Using tr As Transaction =

        db.TransactionManager.StartTransaction

 

        For Each id As ObjectId In ids

          Dim obj As AcObject =

            tr.GetObject(id, OpenMode.ForWrite, False, False)

 

          ' PropertyDataServices provide a convenient method

          ' to do the actual work.

 

          PropertyDataServices.AddPropertySet(obj, idPropSetDef)

 

        Next

        tr.Commit()

 

      End Using

 

    Catch ex As Exception

      ed.WriteMessage(

        "error in AttachPropertySetToAllDoors: " +

        ex.ToString + vbCrLf)

    End Try

 

    ed.WriteMessage(

      "The property set was attached successfully." + vbCrLf)

 

  End Sub

 

 

Here is the code for Utils.Objects(). Utils.findStyle() is the same as the one posted yesterday:    

  

 

Public Class Utils

  

  ' Helper function: findObjects.

  '

  ' Collect ids of objects of the given type in the model space

  ' of the current drawings.

 

  Public Shared Function findObjects(ByVal targetType As Type) _

    As ObjectIdCollection

 

    Dim doc As Document =

      Application.DocumentManager.MdiActiveDocument

    Dim ed As Editor = doc.Editor

    Dim db As Database = doc.Database

 

    Dim ids As New ObjectIdCollection ' Return value. save ids here.

    ' e.g., RXClass = AcDbDoor <--> Type = Door

    Dim targetClass As RXClass = RXClass.GetClass(targetType)

 

    Try

      Using tr As Transaction =

        db.TransactionManager.StartTransaction

 

        ' Get the model space

 

        Dim blkTbl As BlockTable =

          CType(tr.GetObject(db.BlockTableId, OpenMode.ForRead),

            BlockTable)

        Dim ms As BlockTableRecord =

          CType(tr.GetObject(blkTbl(BlockTableRecord.ModelSpace),

                             OpenMode.ForRead), BlockTableRecord)

 

        ' Iterate over model space and keep ids of indended type.

 

        For Each id As ObjectId In ms

 

          ' Chek print if you want to test it.

          ' ed.WriteMessage("Name = " + id.ObjectClass.Name + vbCrLf)

 

          If id.ObjectClass.IsDerivedFrom(targetClass) Then

            ids.Add(id)

          End If

        Next

 

      End Using

 

    Catch ex As Exception

      ed.WriteMessage("error in findObjects: " +

                      ex.ToString + vbCrLf)

    End Try

 

    Return ids

 

  End Function

 

End Class

Attach a property set to an object

By Mikako Harada

Issue

I want to attach a property set to an AEC object, using AutoCAD Architecture .NET API. How can we do that?

Solution

PropertyDataServices provides a convenient method to do the job. You can use its method: 

    PropertyDataServices.AddPropertySet(object, propertySetDefinitionID).

The code below demonstrates the usage. The command asks the user to select an AEC object and to type the name of property set definition, and then attach the given property set to the given object.

    ' Attach a property set to an object.

  ' Minimum error checking for code readability.

  ' In practice, you may want to check if a specific prop set is

  ' already attached before you are attaching again.

 

  <CommandMethod("ACANetScheduleLabs",

    "AcaAttachPropertySet",

    CommandFlags.Modal)> _

  Public Sub AttachPropertySet()

 

    ' Top most objects.

 

    Dim doc As Document =

      Application.DocumentManager.MdiActiveDocument

    Dim db As Database = doc.Database

    Dim ed As Editor = doc.Editor

 

    ' (1) select an AEC object to attach a property set

 

    Dim optEnt As New PromptEntityOptions(

      vbLf & "Select an AEC object to attach a property set")

    optEnt.SetRejectMessage(

      vbLf & "Selected entity is NOT an AEC object, try again...")

    ' "Geo" is the base class for AEC object.

    ' Use this if you want to apply to all the AEC objects.

    optEnt.AddAllowedClass(GetType(Geo), False)

    ' If you are interested in only Door object, use this instead.

    'optEnt.AddAllowedClass(GetType(Door), False) 

 

    Dim resEnt As PromptEntityResult = ed.GetEntity(optEnt)

    If resEnt.Status <> PromptStatus.OK Then

      ed.WriteMessage("Selection error - aborting")

      Exit Sub

    End If

 

    ' We have an object to attach a property set.

 

    Dim idTargetObj As ObjectId = resEnt.ObjectId

 

    ' (2) Ask for the name of property set definition to attach.

 

    Dim optStr As New PromptStringOptions(

      vbLf +

      "Enter the name of property set definition to attach.")

 

    Dim resPropSetDef As PromptResult = ed.GetString(optStr)

    If resPropSetDef.Status <> PromptStatus.OK Then

      ed.WriteMessage("String input error - aborting")

      Exit Sub

    End If

 

    ' We have the name of property set definition.

 

    Dim propSetDefName As String = resPropSetDef.StringResult

 

    ' Find the property set definition with the given name.

 

    Dim dictPropSetDef = New DictionaryPropertySetDefinitions(db)

    Dim idPropSetDef As ObjectId =

      Utils.findStyle(dictPropSetDef, propSetDefName)

 

    If idPropSetDef = Nothing Then Return

 

    ' If we come here, we have a prop set def id and an object id. 

 

    ' (3) Attach the given property set to the given object.

 

    Try

      Using tr As Transaction =

        db.TransactionManager.StartTransaction

 

        Dim obj As AcObject =

          tr.GetObject(idTargetObj, OpenMode.ForWrite, False, False)

 

        ' PropertyDataServices provide a convenient method to do

        ' the actual work.

 

        PropertyDataServices.AddPropertySet(obj, idPropSetDef)

 

        tr.Commit()

 

      End Using

 

    Catch ex As Exception

      ed.WriteMessage(

        "error in AttachPropertySet: " + ex.ToString + vbCrLf)

    End Try

 

  End Sub

 

 

And here is the helper functions, Utils.findStyle() I used in the above code: 

 

 

Public Class Utils

 

  ' Helper function: findStyle().

  '

  ' Find a style (or dictionary record) with the given name

  ' from the given dictionary, and return its object id. 

 

  Public Shared Function findStyle(ByRef dict As AecDb.Dictionary,

                                   ByVal key As String) As ObjectId

 

    Dim doc As Document =

      Application.DocumentManager.MdiActiveDocument

    Dim ed As Editor = doc.Editor

    Dim db As Database = doc.Database

    ' The id of the style we are looking for. Return value

    Dim id As ObjectId = Nothing

 

    Try

      Using tr As Transaction =

        db.TransactionManager.StartTransaction

 

        ' Do we have a property set definition with the given name? 

 

        If Not dict.Has(key, tr) Then

          ' If not, return

          ed.WriteMessage("cannot find the style: " + key + vbCrLf)

          Return Nothing

        End If

 

        tr.Commit()

      End Using

 

      ' Get the id of property set definition from the name

 

      id = dict.GetAt(key)

 

    Catch ex As Exception

      ed.WriteMessage(

        "error in findPropertySetDef: " + ex.ToString + vbCrLf)

    End Try

 

    Return id

 

  End Function

  

End Class

Accessing MultiViewBlockReference Definition using .NET API

By Saikat Bhattacharya

This post is to capture a question that was once asked by a partner who wanted to use the AutoCAD MEP .NET API to access the definition of a MultiViewBlockReference.

The definition of a MultiViewBlockReference is infact stored in the Style of the MultiViewBlockReference. Thus, using the StyleId property on a MultiViewBlockReference object, we can access its MultiViewBlockDefinition. The following code snippet shows the approach by accessing the name of the MultiViewBlockDefinition.

    [Autodesk.AutoCAD.Runtime.CommandMethod(

      "TagTest", CommandFlags.Modal)]

    public void TagTestCmd()

    {

      Database db = HostApplicationServices.WorkingDatabase;

      using (Transaction trans =

        db.TransactionManager.StartTransaction())

      {

        PromptEntityOptions peo =

          new PromptEntityOptions("pick tag");

 

        peo.SetRejectMessage("\nObject must be of type mvblock.");

        peo.AddAllowedClass(typeof(MultiViewBlockReference), true);

 

        Autodesk.AutoCAD.EditorInput.Editor ed =

          Autodesk.AutoCAD.ApplicationServices

          .Application.DocumentManager.MdiActiveDocument.Editor;

 

        PromptEntityResult per = ed.GetEntity(peo);

        MultiViewBlockReference mvbr =

          trans.GetObject(per.ObjectId, OpenMode.ForRead)

          as MultiViewBlockReference;

 

        MultiViewBlockDefinition def =

          trans.GetObject(mvbr.StyleId, OpenMode.ForRead)

          as MultiViewBlockDefinition;

 

        System.Windows.Forms.MessageBox.Show(def.Name);

 

        trans.Commit();

      }

    }

List automatic property source

By Mikako Harada

Issue

When defining an automatic property in a property set definitions in AutoCAD Architecture, you are presented with a list of automatic definitions that are applicable to a given object. How can I get the list of those automatic properties using .NET API? 

Solution

You can use a method:

    PropertyDataServices.FindAutomaticSourceNames(objectName, db)

This returns a list of automatic property names that you see in the "Automatic Property Source" dialog. The following code demonstrates its usage.

  ' List automatic property source or a set of possible automatic

  ' properties.  

 

  <CommandMethod("ACANetScheduleLabs",

    "AcaListAutomaticPropertySource",

    CommandFlags.Modal)> _

  Public Sub ListAutomaticPropertySource()

 

    ' Top most objects

 

    Dim doc As Document =

      Application.DocumentManager.MdiActiveDocument

    Dim db As Database = doc.Database

    Dim ed As Editor = doc.Editor

 

    ' Here is the main method. Get the list of possible automatic

    ' properties, as an example, for a door object 

 

    Dim propNames() As String =

      PropertyDataServices.FindAutomaticSourceNames("AecDbDoor", db)

 

    ' Show the list that we just got

 

    ed.WriteMessage(

      " -- automatic property source < AecDbDoor > -- " +

      vbCrLf + vbCrLf)

 

    For Each name As String In propNames

      ed.WriteMessage(name + vbCrLf)

    Next

 

  End Sub

 

 

Filter for Doors with specific FromRoom or ToRoom values

By Saikat Bhattacharya

Is there a way to filter for doors with specific FromRoom or ToRoom values?

The following code snippet shows how we can create a filter for doors in a Revit model which have a specific ToRoom value set to a room name. This code can be modified and extended for specific requirements.

using System;

using System.Collections.Generic;

using System.Text;

using System.Linq;

 

using Autodesk.Revit.Attributes;

using Autodesk.Revit.DB;

using Autodesk.Revit.UI;

 

namespace Revit.SDK.Samples.HelloRevit.CS

{

  [Transaction(TransactionMode.Manual)]

  public class Command : IExternalCommand

  {

    public Result Execute(ExternalCommandData commandData,

      ref string message,

      ElementSet elements)

    {

      Document doc =

        commandData.Application.ActiveUIDocument.Document;

 

      FilteredElementCollector coll =

        new FilteredElementCollector(doc)

        .OfCategory(BuiltInCategory.OST_Doors)

        .OfClass(typeof(FamilyInstance));

 

      IEnumerable<FamilyInstance> doors =

        from FamilyInstance f in coll

        where f.ToRoom.Name == "Room 1"

        select f;

 

      foreach (FamilyInstance door in doors)

      {

        TaskDialog.Show("Door Name", door.Name);

      }

       return Result.Succeeded;

    }

  }        

}

 

While working with doors and rooms using the API, this blog-post might also be relevant to review, while on this topic.

Accessing 'Profiles' Category

By Saikat Bhattacharya

When we edit a OmniClass number in a Family editor mode, there is a prompt window which lists all the Revit categories. One of the category ‘Profiles’ is not in the Document.Settings.Categories
list. How can we get access to the Category description for this 'Profiles' category?

Indeed it seems like the ‘Profiles’ category is internal and is not listed in Document.Settings.Categories using the Revit API. The approach to access this category is to use the BuiltInCategory.OST_ProfileFamilies (or BuiltInCategory code of –2003000) and then get access to this ‘Profiles’ category. The few lines of code included below illustrate this approach:

      BuiltInCategory bic =

        BuiltInCategory.OST_ProfileFamilies; // or (BuiltInCateory)(-2003000)

      FilteredElementCollector col = new FilteredElementCollector(doc);

 

      Category cate = col.OfCategoryId(

        new ElementId((int)bic)).FirstElement().Category;

System.BadImageFormatException on Launch of Revit 2012

By Saikat Bhattacharya

An ADN partner, once had a issue reported by their add-in user/customer in which they received an "External Tool Failure" dialog on launching a specific flavor of Revit 2012 with the add-in installed. The exception was of System.BadImageFormatException type. The confusing bit was that the same add-in developed by the partner used to work for the same version of Revit Architecture (RAC) which was installed previously, on the same system.

After careful investigations, it was clear that the reason for this unexpected behavior was the settings in the Revit.exe.config under the <startup useLegacyV2RuntimeActivationPolicy> tag. When the settings were as follows, there was no exception reported:

<startup useLegacyV2RuntimeActivationPolicy="true">
<supportedRuntime version="v4.0" />
</startup>

But when the <supportedRuntime> tag was removed from the Revit.exe.config file, launching of Revit 2012 threw the System.BadImageFormatException error:

<startup useLegacyV2RuntimeActivationPolicy="true">
</startup>

On further investigations, it was evident that setting the value of the useLegacyV2RuntimeActivationPolicy to .NET framework 2.0 (or not providing any value like has been mentioned above), throws the BadImageFormatException for any Revit plug-in targeted to work with Revit with target framework 4.0.

The RevitVSTAConfig.exe tool that is shipped with Revit 2012 helps in toggling between .NET 2 and .NET 4 by editing the xml in the config file. This toggle helps prepare Revit to work with VSTA (by changing the runtime framework to 2.0) and undo the change as well – when Revit needs to work with the installed add-ins which target .NET framework 4.0.

The following setting is the default setting in Revit.exe.config file:

<startup useLegacyV2RuntimeActivationPolicy="true">
<supportedRuntime version="v4.0"/>
</startup>

Fonts starting with "@"

By Mikako Harada

Issue

How can I get a list of font names used in Revit and AutoCAD? In particular, I'm interested in getting a list of font names starting with "@", such as "@Arial Unicode MS" and "@Batang". They appear at the top of the list in those Autodesk products. They are used to draw characters in sideways, makeing it possible to write, for example, Japanese characters from top to bottom.)  I tried System.Drawing.FontFamily.Families and System.Windows.Media.Fonts.SystemFontFamilies. But they don't list those fonts that start with "@".  

Solution

Revit and AutoCAD uses gdi32 call "EnumFontFamiliesEx" which is available for C++ API. Unfortunately, there is no equivalent function in C#.  A workaround is to use P/Invoke or platform invoke. There are quite a few examples to do this if you search the internet. For example, the following is what I found on the Visual Studio Developer Center:

Visual Studio Developer Center > Visual C# Forums >  Visual C# General >  How can I get all active fonts in C#? Having issues with gdi32 callback.

Another is at this discussion forum:

GNT A Generation of New Technology > Technology > Forum > Win32 Programmer > GDI > EnumFontFamiliesEx in C#

Following the above posts, I did tried it myself, and I was able to obtains the names of fonts including ones starting with "@". 

Since I took most of the code from the above links, I will refer to them for the portion that I did not modify. The code below are to show you how I adapted and modified from the original code for the purpose of my experiment. I hope you get an idea.  

  class EnumFontFamiliesEx_CS

  {

 

    #region EnumFont

    [DllImport("gdi32.dll", CharSet = CharSet.Auto)]

    public static extern int EnumFontFamiliesEx(

      IntPtr hdc,

      [In] IntPtr pLogfont,

      EnumFontExDelegate lpEnumFontFamExProc,

      IntPtr lParam,

      uint dwFlags);

 

    // Copy the following from the example in the first link:

    // class LOGFONT, enum FontWeight, FontCharSet,

    // FontPrecision, FontClipPrecision, FontQuality,

    // FontPitchAndFamily, struct NEWTEXTMETRIC, FONTSIGNATURE,

    // NEWTEXTMETRICES, ENUMLOGFONTEX, const, LOFFONT,

    // EnumFontExDelegate,

    // ...

 

    #endregion EnumFont

 

 

    public static EnumFontExDelegate del1;

 

    public static List<string> EnumFont_Test()

    {

      fontList.Clear();

 

      LOGFONT lf = CreateLogFont("");

 

      IntPtr plogFont = Marshal.AllocHGlobal(Marshal.SizeOf(lf));

      Marshal.StructureToPtr(lf, plogFont, true);

 

      int ret = 0;

      try

      {

        IntPtr hPrinterDC;

        StringBuilder dp = new StringBuilder(256);

        int size = dp.Capacity;

 

        if (GetDefaultPrinter(dp, ref size))

        {

          Console.Write(String.Format("Printer: {0}, name length{1}",

          dp.ToString().Trim(), size));

        }

        else

        {

          Console.WriteLine("Error!");

        }

        hPrinterDC =

          CreateDC("WINSPOOL", dp.ToString(), null, IntPtr.Zero);

        IntPtr P = hPrinterDC;

 

        del1 = new EnumFontExDelegate(callback1);

        ret = EnumFontFamiliesEx(P, plogFont, del1, IntPtr.Zero, 0);

 

        System.Diagnostics.Trace.WriteLine(

          "EnumFontFamiliesEx = " + ret.ToString());

 

        DeleteDC(P);

      }

      catch

      {

        System.Diagnostics.Trace.WriteLine("Error!");

      }

      finally

      {

        Marshal.DestroyStructure(plogFont, typeof(LOGFONT));

 

      }

 

      return fontList;

    }

 

    // Save fonts

    static List<string> fontList = new List<string>(); 

 

    // This is the function that does the extraction of fonts

 

 

    public static int callback1(

      ref ENUMLOGFONTEX lpelfe,

      ref NEWTEXTMETRICEX lpntme,

      int FontType,

      int lParam)

    {

 

      try

      {

        // Do something here.

 

        // This will print out all the fonts.

        //Debug.WriteLine(lpelfe.elfFullName);

 

        // For testing purpose, we pretent we are intersted in

        // only the ones which start with @.

        // Ommit s.StartsWith("@") condition if you want to list all.

 

        string s = lpelfe.elfFullName;

        if (s.StartsWith("@") && !fontList.Contains(s))

        {

          Debug.WriteLine(s);

          fontList.Add(s);

        }

 

      }

      catch (Exception e)

      {

        System.Diagnostics.Trace.WriteLine(e.ToString());

      }

 

      return 1;

    }

 

 

    #region EnumFont2

    // This is from another test func

    // http://us.generation-nt.com/answer/

    // enumfontfamiliesex-c-help-27455462.htm

    //

 

    [DllImport("gdi32.dll")]

    static extern IntPtr CreateDC(

      string lpszDriver,

      string lpszDevice,

      string lpszOutput,

      IntPtr lpInitData);

 

    [DllImport("gdi32.dll")]

    static extern bool DeleteDC(IntPtr hdc);

 

    [DllImport(

      "winspool.drv", CharSet = CharSet.Auto, SetLastError = true)]

    public static extern bool GetDefaultPrinter(

      StringBuilderpszBuffer, ref int size);

 

    #endregion EnumFont2

  }

 

}

 

Once you have defined this helper class, you can call it from your Revit command like as follows:

 

          // For testing purpose, we are getting only the font

          // that starts with "@".

          // To get the full list, please modify the EnumFont

          // function yourself.

 

            List<string> fontList =

              EnumFontFamiliesEx_CS.EnumFont_Test();

 

            fontList.Sort();

            foreach (string s in fontList)

            {

              Debug.WriteLine(s);

            }

 

 

The result will look like following:

 

@Arial Unicode MS
@Batang
@BatangChe
@DFKai-SB
@Dotum
@DotumChe
@FangSong

...