Looking for Bearing & Distance lisp

[kzD1219]

First off I am using Civil 3D 2015.  While the Add Line labels works ok for what I am doing, it isn't really living up to what we need.  We are constantly exploding to unlink the bearings and distances.  Within arcs we are left with individual pieces of text if exploded. Very time consuming.

First off is there a simple command to start running the 'add line and curve labels'??  I am a typer, not a ribbon user.

Secondly, I am looking for a lisp routine to add bearings and distances to linework.  I used one in previous companies that were great.  Gives bearings and distances when picking on a line, arc, polyine or between two points.  Also had a routine to reverse the direction of the bearing if needed.

Attached is a glimpse of how we label.  Certainly need the quadrant of the bearing and distances in meters and feet.  We use both depending on the plan. 

[Kent1Cooper]

Check this out, as a starting point [and look at other posts on that thread].  I haven't yet modified it for metric units, but this could be further motivation to get around to that....  But see whether it otherwise does what you're looking for.  And so far it only does Line and Arc entities.  It puts things near the ends of Lines, so you would sometimes need to move things around a little.

[scot-65]

>> First off is there a simple command to start running the 'add line and curve labels'?? I am a typer, not a ribbon user.

Perhaps look into the ACAD.pgp and set up an alias?
Open the CUI and find the entry in the ribbon and take
note of the command. Try creating a alias in the PGP.
(findfile ACAD.pgp) will direct you to the correct PGP file,
although verticals tend to not follow this rule.

If this does not work, then declare a line inside a third-party
interface file (that you create). Place this file in a support path.

File name: ACADDOC.lsp

Simple example:
(defun c:ZZ () (command "_ZOOM" "Previous")(princ)) ;Zoom Previous

???

[3wood]

You can also try ADDLINES.