;;;Insert vertical LINES at MH stations in profile.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved.
;;;
;;;	Copyright:	1-8-97
;;;	Edited:		1-15-97
;;;
(DEFUN c:mhsl	( / pline_ss usr_xyz cur_sta)
  (if c:mklayr nil (load"mklayr"))
  (c:svlayr)
  (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
        mjrg        "C"
        llt         "-"
        prod        "SSWR"
        colr        "2"
        modf        "DSGN"
  ) ;_ end of setq
  (c:mklayr)
  (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
  (c:rslayr)
  (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!***|;