Is there a way to add points that display station and offset information?

[Anonymous]

Hello,

I'm wondering if there's a way to add points that display station and offset information. For example, I have an existing alignment, let's say alignment "NS-01". I have some parcel endpoints around the alignment, and I want to know what the station and offset for each corner of the parcels. There are a lot of points so I was wondering if there was a way to create points and add it to a point group that would give me the northing, easting, station, and offset based on this alignment? I want it to get information like the station/offset inquiry tool but I don't want to have to copy and paste it or write it everytime. Is there a way to do this? Or is this feature not available?

[MMcCall402]

You could display this info with a simple Station Offset - Fixed alignment label.  You'll need to edit and/or make a label style that includes the station, offset, northing and easting coordinates.

[tcorey]

(defun c:go ( / algn fl pts len ctr pt pno north
		       east elev desc output nx ny sta off ptz desc)
  
  (setq algn (vlax-ename->vla-object (car (entsel "\nSelect Alignment: ")))) ;prompt to select alignment
  

  (while (not (= (vlax-get-property algn 'ObjectName) "AeccDbAlignment"))
    (setq algn (vlax-ename->vla-object (car (entsel "\nSelect Alignment: "))))
    )                                                                        ;end prompt to select alignment

  
  
  (prompt "\nSelect COGO Points: ")
  (setq pts (ssget)
	len (sslength pts)
	ctr 0)

  (while (< ctr len)
    (setq pt (vlax-ename->vla-object (ssname pts ctr)))
    (if (= (vlax-get pt 'ObjectName) "AeccDbCogoPoint")
      (progn
      (setq sta 1000000
	      off 1000000
	      )
	(setq x (vlax-get pt 'Easting)
	      y (vlax-get pt 'Northing)
	      ;pnum (vlax-get-property pt 'Number)
	      ;ptz (vlax-get-property pt 'Elevation)
	      ;desc (vlax-get-property pt 'RawDescription)
	      )
	(vlax-invoke-method algn 'StationOffset x y 'Sta 'Off)
	(vlax-put pt 'RawDescription (strcat "Sta: " (rtos sta 2 2) "  Off: " (rtos off 2 2)))
	
	)
	
      )
    (setq ctr (1+ ctr))
   );end while
  
  (princ)
  );end defun

[Jeff_M]

If you'd like for the station & offset to be placed in UserDefinedProperties and be Dynamic see THIS