Revit二次开发——场地地形

如有不明白，请qq254033230询问。

Revit的场地地形其实没有什么特别的，其实它就是一个面而已，创建这个面用下面这个方法：

Form NewFormByCap(bool isSolid, ReferenceArray profile); 

如果是做成五花肉那种的，就用另一个方法：

Form NewLoftForm(bool isSolid, ReferenceArrayArray profiles); 

首先用以下代码来创建一个地形面：

using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;using Autodesk.Revit.UI;using Autodesk.Revit.DB;using Autodesk.Revit.UI.Selection;using Autodesk.Revit.ApplicationServices;namespace 地形{    [Autodesk.Revit.Attributes.Transaction(Autodesk.Revit.Attributes.TransactionMode.Manual)]    [Autodesk.Revit.Attributes.Journaling(Autodesk.Revit.Attributes.JournalingMode.NoCommandData)]    [Autodesk.Revit.Attributes.Regeneration(Autodesk.Revit.Attributes.RegenerationOption.Manual)]    public class Class1 : IExternalCommand    {        public Result Execute(ExternalCommandData commandData, ref string message, ElementSet elements)        {            Document revitDoc = commandData.Application.ActiveUIDocument.Document;  //取得文档            Application revitApp = commandData.Application.Application;             //取得应用程序            using (Transaction transaction = new Transaction(revitDoc))            {                transaction.Start("主题");                //在下面添加主要代码内容                //因为CurveByPoints不能是封闭曲线，所以这里建两条线                ReferencePointArray refPointArray = new ReferencePointArray();                ReferencePointArray refPointArray2= new ReferencePointArray();                ReferencePoint referencePoint1 = revitDoc.FamilyCreate.NewReferencePoint(new XYZ(0,0,0));                ReferencePoint referencePoint2 = revitDoc.FamilyCreate.NewReferencePoint(new XYZ(100, 0, 0));                ReferencePoint referencePoint3 = revitDoc.FamilyCreate.NewReferencePoint(new XYZ(100, 100, 0));                ReferencePoint referencePoint4 = revitDoc.FamilyCreate.NewReferencePoint(new XYZ(0, 100, 0));                refPointArray.Append(referencePoint1);                refPointArray.Append(referencePoint2);                refPointArray.Append(referencePoint3);                refPointArray.Append(referencePoint4);                CurveByPoints curve1 = revitDoc.FamilyCreate.NewCurveByPoints(refPointArray);                refPointArray2.Append(referencePoint1);                refPointArray2.Append(referencePoint4);                CurveByPoints curve2 = revitDoc.FamilyCreate.NewCurveByPoints(refPointArray2);                ReferenceArray profile = new ReferenceArray();                profile.Append(curve1.GeometryCurve.Reference);                profile.Append(curve2.GeometryCurve.Reference);                Form form = revitDoc.FamilyCreate.NewFormByCap(true, profile);                transaction.Commit();            }            return Result.Succeeded;        }    }}

结果如图：
创建有等高线的地形表面（核心还是用下面的这个api）：

Form NewFormByCap(bool isSolid, ReferenceArray profile); 

效果如图：

如果需要变成实体则用Form NewLoftForm(bool isSolid, ReferenceArrayArray profiles);