;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-19-2004
;;;>		   EDITED: 08-18-1999
;;;
(defun c:calpt ()
  (foreach n align_lst
    (command ".insert" "datpt"
                       (list(atof(nth 10 n))(atof(nth 11 n))0)
                       20
                       20
                       0
                       (nth 0 n)
                       (nth 1 n)
                       (nth 2 n)
                       "0"
                       (nth 3 n)
                       (nth 4 n)
                       (nth 5 n)
                       (nth 6 n)
                       (nth 7 n)
                       (nth 8 n)
    )
  )
)
(defun c:brdgpt ()
  (foreach n align_lst
    (command ".insert" "brdgpt"
                       (list(atof(nth 12 n))(atof(nth 13 n))0)
                       20
                       20
                       0
                       (nth 0 n)
                       (nth 3 n)
                       (nth 4 n)
                       (nth 5 n)
                       (nth 6 n)
                       (nth 7 n)
                       (nth 8 n)
                       (nth 9 n)
    )
  )
)
(defun c:rtaln ()
  (setq draw_lst nil)
  (foreach n align_lst
    (if draw_lst
      (setq draw_lst (append draw_lst (list(list(atof(nth 8 n))(atof(nth 9 n))0))))
      (setq draw_lst (list(list(atof(nth 8 n))(atof(nth 9 n))0)))
    )
  )
;(defun drwhoriz ()
  (if draw_lst
    (progn
      (if usrsfx nil (setq usrsfx ""))
      (setq cnt 0)
      (entmake (list
                 (cons 0 "POLYLINE")
                 (cons 66 1)
                 (cons 8 (strcat "C-PLANA" usrsfx))
                 (cons 10 (list 0 0 0))
               )
      )
      (while (< cnt(length draw_lst))
        (entmake (list
                   (cons 0 "VERTEX")
                   (cons 8 (strcat "C-PLANA" usrsfx))
                   (cons 10 (nth cnt draw_lst))
                 )
        )
        (setq cnt (1+ cnt))
      )
      (entmake (list (cons 0 "SEQEND")))
;      (if (not (tblsearch "BLOCK" "SMH"))
;        (progn
;          (entmake '((0 . "BLOCK")(2 . "SMH")(70 . 64)(10 0.0 0.0 0.0)))
;          (entmake '((0 . "CIRCLE") (8 . "0") (5 . "8E2C27A6CB4A9918") (10 0.0 0.0 0.0) (40 . 0.0624375) (210 0.0 0.0 1.0)))
;          (entmake '((0 . "CIRCLE") (8 . "0") (5 . "8E2C27A6CB4A9919") (10 0.0 0.0 0.0) (40 . 0.0424375) (210 0.0 0.0 1.0)))
;          (entmake '((0 . "CIRCLE") (8 . "0") (5 . "8E2C27A6CB4A991A") (10 0.0 0.0 0.0) (40 . 0.0224375) (210 0.0 0.0 1.0)))
;          (entmake '((0 . "CIRCLE") (8 . "0") (5 . "8E2C27A6CB4A991B") (10 0.0 0.0 0.0) (40 . 0.0024375) (210 0.0 0.0 1.0)))
;          (entmake '((0 . "ENDBLK")))
;        )
;      )
;      (setq cnt 0)
;      (while (< cnt(length draw_lst))
;        (entmake (list
;                   (cons 0 "INSERT")
;                   (cons 10 n)
;                   (cons 2 "SMH")
;                   (cons 8 (strcat "C-SSWR4" usrsfx))
;                   (cons 41 40)
;                   (cons 42 40)
;                   (cons 43 40)
;                 )
;        )
;        (setq cnt (1+ cnt))
;      )
      (command ".layer" "c" "10" (strcat "c-plana" usrsfx) "")
;      (command ".layer" "c" "4" "c-sswr4" "")
    )
;  )
)
)