Centerline Alignment Profile Elevation
The alignment labels already have this built in. There are two things that you could do:
1. Use the profile geometry point labels. These will label profile points in plan for the vertical curves
2. Use the "reference text" option in any of the other labels to add information about a profile in the label
I don't think there is any need for custom programming. (in addition, LISP is not the best choice of programming languages for Civil 3D).
Cheers,
Peter Funk
Autodesk, Inc.
Peter Funk
Autodesk, Inc.
If you are just looking to label the alignment with profile information then you should really look at the label styles are thare built into Civil 3D. If you are looking to do more than just label the alignment, then you should really look at something other than lisp to work in. The information that you are looking for is not stored in the dxf codes (entget) so LISP on its on is out.
If you really want to work with the Civil 3D data, I would suggest getting a copy of Microsoft VB.NET Express Edition (free download) and start working in VB.NET. Every bit of our API development work is on the .NET API. We do little with COM and nothing with LISP.
While you can do some great things with LISP it really is a non starter for Civil 3D.
Peter Funk
Autodesk, Inc.
Peter Funk
Autodesk, Inc.
While this will work for any properties that are exposed to COM, we stopped writting the COM API a few releases ago so the access you'll have will be limited. All the new APIs are written in .NET.
Cheers,
Peter Funk
Autodesk, Inc.
Peter Funk
Autodesk, Inc.
@bcinnv wrote:
...., there are no resources available for beginners wanting to learn .NET specifically for civil 3d. Everything I've seen, one has to have a decent understanding of .NET already.
Resources to jump start the learning process:
http://www.quuxsoft.com/SincpacC3D_source.aspx (uses C# and is for use with C3D)
http://blog.civil3dreminders.com/2010/05/sincpac-c3d-source-code.html (Christopher preferes VB.NET)
This forum, ask questions! 
For Autocad specific .NET: http://forums.autodesk.com/t5/NET/bd-p/152
Some real nice & helpful folks can be found at www.theswamp.org where there are .NET specific and "Land Lubber" forums.
And I am living proof you don't have to have a decent understanding of .NET already. 4 years ago I knew absolutely nothing about it. Now I know enough to not get so confused 
... but I can write some meaningful and very powerful commands now that I couldn't even dream of doing in lisp (I came from lisp myself). I chose to go the C# route, as it is easier for me to look at vs the VB code, although they are similar enough you should get to the point that you can at least figure out what each is doing regardless of the one you choose to learn.
I have a working example, but it's written in C#. I'm not sure it would help or confuse you even more. Before I post it, have you gone through any of the .NET Labs or ObjectARX dotnet code samples? Knowing how to work with Autocad documents, objects, etc., is extremely important to being able to use the Civil3D API's.
You can use a C# to VB.NET converter that should do a decent job of getting this into something you can use. Here's one: http://www.developerfusion.com/tools/convert/csharp-to-vb/
using System;
using System.Collections.Generic;
using System.Text;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.Runtime;
using Autodesk.Civil.ApplicationServices;
using Autodesk.Civil.Land.DatabaseServices;
namespace API_Test
{
public class GetStaOffElev
{
[CommandMethod("GetStaOffElev")]
public void getstaoffelevcommand()
{
Document doc = Application.DocumentManager.MdiActiveDocument;
Database db = doc.Database;
CivilDocument civdoc = CivilApplication.ActiveDocument;
Editor ed = doc.Editor;
Alignment alignment = null;
Profile profile = null;
using (Transaction tr = db.TransactionManager.StartTransaction())
{
if (!getalignment(tr, ed, ref alignment))
return;
if (!getprofile(tr, ed, ref profile, alignment))
return;
Point3d pt = getpoint(ed);
if (pt.X == 0 && pt.Y == 0)
return;
double station = -999999;
double offset = -999999;
double elev = -999999;
try
{
alignment.StationOffset(pt.X, pt.Y, ref station, ref offset);
}
catch
{
ed.WriteMessage("\nSelected point not adjacent to alignment.");
return;
}
try
{
elev = profile.ElevationAt(station);
}
catch
{
ed.WriteMessage("\nSelected Point not found along chosen profile.");
}
ed.WriteMessage("\nStation: {0} \nOffset: {1} \nProfile Elevation: {2}", new object[]{station.ToString("0+00.00"), offset.ToString("0.00"), elev.ToString("0.00")});
tr.Commit();
}
}
private Point3d getpoint(Editor ed)
{
Point3d pt = new Point3d();
PromptPointOptions pOpts = new PromptPointOptions("\nPick point to query for Station, Offset and Elevation: ");
PromptPointResult ptRes = ed.GetPoint(pOpts);
if (ptRes.Status == PromptStatus.OK)
pt = ptRes.Value;
return pt;
}
private bool getalignment(Transaction tr, Editor ed, ref Alignment alignment)
{
PromptEntityOptions entOpts = new PromptEntityOptions("\nSelect alignment or [T]ype name: ");
//entOpts.Keywords.Add("Type"); //uncomment once code updated to allow entering the name
entOpts.AppendKeywordsToMessage = false;
entOpts.SetRejectMessage("...not an Alignment, try again.");
entOpts.AddAllowedClass(typeof(Alignment),true);
PromptEntityResult alignRes = ed.GetEntity(entOpts);
if (!(alignRes.Status == PromptStatus.Keyword || alignRes.Status == PromptStatus.OK))
return false;
switch (alignRes.Status)
{
case PromptStatus.Keyword:
{
alignment = getalignbyname();
if (alignment == null)
return false;
break;
}
case PromptStatus.OK:
{
alignment = (Alignment)tr.GetObject(alignRes.ObjectId, OpenMode.ForRead);
break;
}
}
if (alignment != null)
return true;
else
return false;
}
private Alignment getalignbyname()
{
//TO DO: Implement this
throw new NotImplementedException();
}
private bool getprofile(Transaction tr, Editor ed, ref Profile profile, Alignment alignment)
{
PromptEntityOptions entOpts = new PromptEntityOptions("\nSelect Profile or [T]ype name: ");
//entOpts.Keywords.Add("Type"); //uncomment once code updated to allow entering the name
entOpts.AppendKeywordsToMessage = false;
entOpts.SetRejectMessage("...not a Profile, try again.");
entOpts.AddAllowedClass(typeof(Profile),true);
PromptEntityResult profRes = ed.GetEntity(entOpts);
if (!(profRes.Status == PromptStatus.Keyword || profRes.Status == PromptStatus.OK))
return false;
switch (profRes.Status)
{
case PromptStatus.Keyword:
{
profile = getprofilebyname();
if (profile == null)
return false;
break;
}
case PromptStatus.OK:
{
profile = (Profile)tr.GetObject(profRes.ObjectId, OpenMode.ForRead);
break;
}
}
if (profile != null)
return true;
else
return false;
}
private Profile getprofilebyname()
{
//TO DO: Implement this
throw new NotImplementedException();
}
}
}