;;;Insert vertical LINES at MH stations in profile.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-8-97
;;;>		   EDITED: 04-08-1997
;;;
(DEFUN c:asta	( / pline_ss usr_xyz cur_sta)
  (SETQ pline_ss (ENTSEL "Select Polyline"))
  (SETQ usr_y	    (nth 1 (upoint 1 "" "Pick Y Elevation" nil nil))
  	pline_ent   (CAR pline_ss)
	pline_head  (ENTGET pline_ent)
	pline_v	    (ENTNEXT pline_ent)
	pline_la    (CDR (ASSOC 8 (ENTGET pline_ent)))
	1st_lname   (TBLNEXT "layer" T)
	cur_sta	    0
  ) ;_ end of setq
  (command "._line" (list cur_sta usr_y)(list cur_sta (+ 200 usr_y))"")
  (WHILE
    (NOT
      (EQ (CDR (ASSOC 0 (ENTGET (ENTNEXT pline_v))))
	  "SEQEND"
	  ) ;_ end of eq
      ) ;_ end of not
     (SETQ v_1 (CDR (ASSOC 10 (ENTGET pline_v)))
	   v_2 (CDR (ASSOC 10 (ENTGET (ENTNEXT pline_v))))
	   count   0
     ) ;_ end of setq
     (SETQ pline_v (ENTNEXT pline_v))
     (IF cur_sta
       (SETQ cur_sta (+(DISTANCE v_1 v_2)cur_sta))
       (SETQ cur_sta (distance v_1 v_2))
     ) ;_ end of IF
     (setq usr_y (nth 1 (upoint 1 "" "Pick Y Elevation" nil (list cur_sta usr_y))))
     (command "._line" (list cur_sta usr_y) (list cur_sta (+ 200 usr_y)) "")
     ) ;_ end of WHILE
  (PRINC)
  ) ;_ end of defun

;|«ViLL© FORMAT OPTIONS...» (72 2 40 0 T "end of " 60 9 2 0 0 T T T T)
 ***Don't add text below the comment!***|;