;;;EAGLE POINT and DCA scaled tree (symbol) placement at points. (reads POINT blocks)
;;;
;;;
;;;

(defun c:itree (/ bfnd ffnd ttyp aname inss1 pntno ipnt)
  (setvar "cmdecho" 0)
  (if c:itr nil (load "itr"))
  (c:itr) 
  (while
    (and (not
	   (eq "" 
	       (if svpn
		   (setq pntno svpn)
		   (setq pntno (ustr 0 "Point Number ?" nil nil))
	       )			;if
	   ) ;_ end of eq
	 )				;not eq
	 (setq ptdat (member pntno ptlst))
    )					;and
     (setq ttyp (ustr 1 "Tree Block Name ?" ttyp "T"))
     (setq aname (strcat ttyp ".dwg"))
     (tblnext "block" T) 
     (if (tblsearch "BLOCK" ttyp)
	 (setq bfnd T) 
	 (if (setq ffnd (findfile aname)) 
	     (progn (command ".insert" ffnd) (command)) ;progn
	 )				;if
     )					;if
     (if (or bfnd ffnd) 
	 (progn
	   (setq trsz (uint 1 "" "Tree Size in Inches " trsz)) 
;	   (if (eq (type (cadddr ptdat)) LIST)
	       (setq ipnt (cadddr ptdat))
;	       (setq ipnt (caddr ptdat))
;	   )				;if
	   (setq inss1 (* 8 trsz)
		 svpn nil
		 elist (list (cons 0 "INSERT")
			     (cons 2 ttyp)
			     (cons 10 ipnt)
			     (cons 41 inss1)
			     (cons 42 inss1)
			     (cons 43 inss1)
		       ) ;_ end of list
	   )				;setq
	   (entmake elist)
	 )				;progn
	 (progn
	   (prompt
	     (strcat "\nBlock " ttyp " or File " aname " not found! \n")
	   ) ;_ end of prompt
	   (setq found nil svpn pntno)
	 )				;progn
     )					;if
					;    (setq count (1+ count))
  )					;while
  (if dcapnt 
      (if (not (eq pntno ""))
	  (princ (strcat "\nPoint number " pntno " was not found. "))
	  (princ)
      ) ;_ end of if
      (princ "\nNo point blocks found. ")
  )					;if
  (princ)
)					;defun
					;*****

(defun c:trscr (/)
  (setq xptno (nth 0 ptlst) count 0 ptno xptno)
  (setq ptf1 (open "tree.scr" "w")) 
  (while xptno
    (setq ptno	 xptno
	  desc	 (nth (+ count 2) ptlst)
	  count	 (+ count 4)
	  xptno	 (nth count ptlst)
    )					;setq
    (write-line ptno ptf1) 
    (write-line "PINE" ptf1)		;    (write-line desc ptf1)
    (cond ((eq (substr desc 1 1) "P") 
	   (cond ((eq (type (read (substr desc 2 1))) (read "INT"))
		  (write-line (substr desc 2) ptf1)
		  (princ (substr desc 2))
		  (princ (strcat "\n" desc))
		 )
		 ((eq desc "PINE")
		  (write-line "12" ptf1)
		  (princ "12")
		  (princ (strcat "\n" desc))
		 )
		 ((eq (type (read (substr desc 5))) (read "INT"))
		  (write-line (substr desc 5) ptf1)
		  (princ (substr desc 5))
		  (princ (strcat "\n" desc))
		 )
	   )				;cond
	  )
    )					;cond
    (cond ((eq (type (read (substr desc 1 1))) (read "INT")) 
	   (cond ((eq (substr desc 4 1) "\"")
		  (write-line (substr desc 1 3) ptf1)
		  (princ (substr desc 1 3))
		  (princ (strcat "\n" desc))
		 )
		 ((eq (substr desc 3 1) "\"")
		  (write-line (substr desc 1 2) ptf1)
		  (princ (substr desc 1 2))
		  (princ (strcat "\n" desc))
		 )
		 ((eq (substr desc 2 1) "\"")
		  (write-line (substr desc 1 1) ptf1)
		  (princ (substr desc 1 1))
		  (princ (strcat "\n" desc))
		 )
	   )				;cond
	  )
    )					;cond
					;    (cond
					;      ((eq(type desc)(read "STR")) (write-line desc ptf1)
					;        (princ desc))
					;      ((not desc) (write-line "NO DESC" pttf1)
					;        (princ "NO DESC"))
					;    );cond
  )					;while
  (close ptf1)
)					;defun
;|«ViLL© FORMAT OPTIONS...» (72 2 40 2 T "end of " 60 9 0 0 0 T T nil T)
 ***Don't add text below the comment!***|;