;;;Place woodline linear symbol as an anonymous block.  (uses UPOINT)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-20-96
;;;>		   EDITED: 06-20-2005
;;;
(DEFUN C:TREE (/ undrw osmod pt0 pt1 pt2 pt4 fenl count cispc sang eang)
  (SETQ osmod (GETVAR "osmode"))
  (SETVAR "osmode" 0)
  (IF c:mklayr nil (LOAD "mklayr" "File MKLAYR.LSP not found!"))
  (c:svlayr)
  (IF dimscl
    nil
    (LOAD "dimscl")
  ) ;_ end of if
  (dimscl)
;;;  (COND
;;;    ((AND (EQ prod "WDLN")(EQ modf "EXST"))
;;;      (SETQ pt1 (upoint 0 "" "Existing Woods Line beginning point" nil nil)))
;;;    ((AND (EQ prod "WDLN")(EQ modf ""))
;;;      (SETQ pt1 (upoint 0 "" "Proposed Woods Line beginning point" nil nil)))
;;;    (T
      (IF ukword NIL (LOAD "ukword" "\nFile UKWORD.LSP not loaded! "))
      (IF upoint NIL (LOAD "upoint" "\nFile UPOINT.LSP not loaded! "))
      (SETQ treestat (ukword 1 "Existing Proposed" "Place Existing or Proposed woods line?" (IF treestat treestat "Proposed"))
            prod "WDLN"
            llt "-"
            mjrg "C"
      )
      (COND
        ((EQ treestat "Existing")
           (SETQ modf "EXST")
           (SETQ pt1 (upoint 0 "" "Existing Woods Line beginning point" nil nil))
           (IF do_cmud
             (SETQ colr "1"
                   colra nil
                   colri nil
             )
             (SETQ colr nil
                   colra "D"
                   colri "13"
             )
           )
         )
        ((EQ treestat "Proposed")
           (SETQ modf "")
           (SETQ pt1 (upoint 0 "" "Proposed Woods Line beginning point" nil nil))
           (IF do_cmud
             (SETQ colr "2"
                   colra nil
                   colri nil
             )
             (SETQ colr "4"
                   colra nil
                   colri nil
             )
           )
         )
      )
;;;    )
;;;  ) ;_ end of cond
  (c:mklayr)
  (ENTMAKE (LIST (CONS 0 "BLOCK") (CONS 70 1) (CONS 2 "*U") (CONS 10 (LIST 0 0 0))))
  (WHILE (SETQ pt2 (upoint 0 "" "Next Woods Line point" nil pt1))
    (SETQ fenl  (DISTANCE pt1 pt2)
          count (1+ (FIX (/ fenl (* dimsc 0.25))))
          cispc (/ fenl count)
          sang  (ANGLE pt1 pt2)
          eang  (ANGLE pt2 pt1)
          undrw (IF undrw
                  (APPEND undrw (LIST 0 pt1 pt2))
                  (LIST 0 pt1 pt2)
                ) ;_ end of if
    ) ;_ end of setq
    (GRDRAW pt1 pt2 7)
    (WHILE (> count 0)
      (SETQ pt0 (POLAR pt1 sang (/ cispc 2))
            pt4 (POLAR pt1 sang cispc)
      ) ;_ end of setq
      (ENTMAKE
        (LIST (CONS 0 "ARC") (CONS 8 "0") (CONS 10 pt0) (CONS 40 (/ cispc 2)) (CONS 50 eang) (CONS 51 sang))
      ) ;_ end of entmake
      (SETQ pt1   pt4
            count (1- count)
      ) ;_ end of setq
    ) ;_ end of while
  ) ;_ end of while
  (SETQ nblk (ENTMAKE (LIST (CONS 0 "endblk"))))
  (PRINC (STRCAT "\nBlock "
                 (IF nblk
                   nblk
                   "NOT"
                 ) ;_ end of if
                 " Made\n"
         ) ;_ end of strcat
  ) ;_ end of princ
  (ENTMAKE
    (LIST (CONS 0 "INSERT") (CONS 2 nblk) (CONS 10 (LIST 0 0 0)) (CONS 8 (GETVAR "clayer")) (CONS 70 1)(CONS 71 1))
  ) ;_ end of entmake
  (GRVECS (EVAL 'undrw))
  (SETVAR "osmode" osmod)
  (c:rslayr)
  (PRINC)
) ;_ end of DEFUN

;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T)
 ***Don't add text below the comment!***|;