Surveying Bearing/Distance LISP Routine

[gugg]

THIS IS NOT MINE BUT BEEN USING IT FOR YEARS ...

;Output the bearing of a line.
(defun c:bearing ()
 (setvar "cmdecho" 0)
 (setq p1 (getpoint "Select line: "))
 (setq p2 (osnap p1 "midp"))
 (setq p3 (osnap p1 "endp"))
 (setq string (angtos (angle p2 p3)))
 (command "text" "c" (polar p2 (+ (angle p2 p3) (/ pi 2))
   (/ (getvar "textsize") 2.0)) ""  (* (/ 180.0 pi) (angle p2 p3)) string)
 (princ)
)

LET ME KNOW IF IT WORKS ... AL

[miked101]

Hello. Our company just switch to civil 3d 2017. I was looking for a lisp routine to label bearing and distances on multiple lines at a time. Instead of having to pick on each line. Any help would be greatly appreciated.

Thank you.

[MMccall]

Civil 3d can do this.

Select Annotate from the top menus to get to the annotate ribbon. On the left end of the ribbon is "Add Labels". This is a two part button, a top and bottom. Press the top to open the Add Label dialog. The feature you want is Line and Curve, label type is Multiple Segment. Select/make a label style for lines and one for curves. Select the objects you want labeled. The line/curve labels act just like parcel segment labels.

[miked101]

When doing a subdivision layout even picking multiple segments. I still have to pick on each lot line. I was wanting to be able to isolate the layer and label all with a bearing an distance at once. Is it a setting that is keeping me from being able to this?

[MMccall]

Ok, yea, Multiple would make you pick each one. It works best on a polyline with multiple segments as it would then label the entire line. if it were me, with Civil 3d, I would do it as parcel segments. (Create parcels from objects).

I'm sure the lispers have a solution.

[ccalder]

This is super ineligant, just for my personal use, and only works with lines and polylines but might be a good starting point to do what I think you're asking for.

(PRINC "\n LAL: Label All Lines")
(DEFUN C:lal ( / LAY SS:LINES CNT EN EN1 PT A)
(VL-LOAD-COM)
(SETQ SS:LINES (SSGET))
(SETQ CNT 0)
(command "-layer" "OFF" "*" "Y" "")
(command "-layer" "ON" "0" "")
(REPEAT (SSLENGTH SS:LINES)
(SETQ EN (SSNAME SS:LINES CNT))
(SETQ EN1 (VLAX-ENAME->VLA-OBJECT EN))
(SETQ LAY (VLAX-GET EN1 'LAYER))
(VLAX-PUT EN1 'LAYER "0")
(COND
  ((= (CDR (ASSOC 0 (ENTGET EN))) "LINE")
   (SETQ PT (LIST (/ (+ (CAR (VLAX-GET EN1 'StartPoint)) (CAR (VLAX-GET EN1 'EndPoint))) 2) (/ (+ (CADR (VLAX-GET EN1 'StartPoint)) (CADR (VLAX-GET EN1 'EndPoint))) 2))))
  ((= (CDR (ASSOC 0 (ENTGET EN))) "LWPOLYLINE")
   (SETQ PT (LIST (/ (+ (NTH 0 (VLAX-GET EN1 'Coordinates)) (NTH 2 (VLAX-GET EN1 'Coordinates))) 2) (/ (+ (NTH 1 (VLAX-GET EN1 'Coordinates)) (NTH 3 (VLAX-GET EN1 'Coordinates))) 2))))
  )
(IF PT
  (COMMAND "ADDSEGMENTLABELS" "NEA" PT ""))
(VLAX-PUT EN1 'LAYER LAY)
(SETQ PT NIL)
(SETQ CNT (+ 1 CNT))
)
(command "-layer" "ON" "*" "")
(command "REGEN")
(PRINC)
)

[rkmcswain]

This is super ineligant, just for my personal use, and only works with lines and polylines but might be a good starting point to do what I think you're asking for.

Very nice @ccalder !

[Tom Beauford]

This is super ineligant, just for my personal use, and only works with lines and polylines but might be a good starting point to do what I think you're asking for.

Nice, it does do arcs on lwpolylines. Shouldn't be hard to add something for arcs.

[miked101]

Ccalder.

I ran the lisp routine could not get it to work. Do you have to have the layer frozen to start the command?

[remi678731]

In Civil3d in the line/curve label dialog there is an option to label multiple segments. It will label all segments of a pline