;;;EAGLE POINT and DCA point block usage subroutine. (see PTSYM, PTLIN, ITREE)
;;;
;;;
;;;

(DEFUN c:itr (/ sslen count repnt)
  (ENTMAKE) 
  (IF (AND dcapnt ptlst ptdesc)
      (SETQ repnt (ukword 1 "Yes No" "Regenerate Point List?" "No"))
  ) ;_ end of if 
  (IF
    (OR (EQ repnt "Yes") (NOT dcapnt) (NOT ptlst) ptdesc) 
    (PROGN
      (SETQ lstcon (LIST (CONS -4 "<OR")
			 (CONS 2 "POINT")
			 (CONS 2 "DOT")
			 (CONS -4 "OR>")
		   ) ;_ end of list
      ) ;_ end of setq
      (SETQ srchlst 'lstcon)
      (SETQ dcapnt (SSGET "x" (EVAL srchlst))) 
      (IF
	dcapnt 
	(PROGN
	  (SETQ sslen (SSLENGTH dcapnt) count 0 ptlst (LIST nil)) 
	  (IF
	    ptlf
	    (ENTMAKE '((0 . "POLYLINE") (66 . 1) (10 0 0 0) (70 . 128))) 
	    (IF
	      pt3lf 
	      (ENTMAKE '((0 . "POLYLINE") (66 . 1) (10 0 0 0) (70 . 136))
	      ) ;_ end of entmake
	    ) ;_ end of if
	  ) ;_ end of if 
	  (WHILE (< count sslen)
	    (PRINC (STRCAT "\010\010\010\010\010" (ITOA (1+ count)))) 
	    (SETQ
	      btype (CDR (ASSOC 2 (ENTGET (SSNAME dcapnt count))))
	      aa
	       (CDR
		 (ASSOC
		   1
		   (ENTGET (ENTNEXT (ENTNEXT (SSNAME dcapnt count))))
		 ) ;_ end of assoc
	       )			;description
	      bb
	       (CDR (ASSOC 1 (ENTGET (ENTNEXT (SSNAME dcapnt count)))))
					;point no.
	      cc
	       (CDR
		 (ASSOC
		   1 
		   (ENTGET
		     (ENTNEXT (ENTNEXT (ENTNEXT (SSNAME dcapnt count)))
		     ) ;_ end of entnext
		   ) ;_ end of entget
		 ) ;_ end of assoc
	       )			;elevation
	      ipnt
	       (LIST (CADR (ASSOC 10 (ENTGET (SSNAME dcapnt count))))
		     (CADDR (ASSOC 10 (ENTGET (SSNAME dcapnt count))))
		     (ATOF bb)
	       )			;point
	    ) ;_ end of setq
	    (IF (EQ btype "POINT")
		(SETQ ptlst (APPEND (LIST aa bb cc ipnt) ptlst))
		(SETQ ptlst (APPEND (LIST cc bb aa ipnt) ptlst))
	    ) ;_ end of if 
	    (COND
	      (ptdesc 
	       (IF (OR (AND (OR (= aa ptdesc) (WCMATCH aa ptdesc))
			    (EQ btype "DOT")
		       ) ;_ end of and
		       (AND (OR (= cc ptdesc) (WCMATCH cc ptdesc))
			    (EQ btype "POINT")
		       ) ;_ end of and
		   ) ;_ end of or 
		   (PROGN
		     (SETQ kpnt (1+ kpnt)) 
		     (IF ptlf 
			 (ENTMAKE
			   (LIST (CONS 0 "VERTEX")
				 (CONS 10 (REVERSE (CDR (REVERSE ipnt))))
			   ) ;_ end of list
			 ) ;_ end of entmake 
			 (IF pt3lf 
			     (ENTMAKE (LIST (CONS 0 "VERTEX")
					    (CONS 10 ipnt)
					    (CONS 70 32)
				      ) ;_ end of list
			     ) ;_ end of entmake 
			     (PROGN
			       (SETQ elist (LIST (CONS 0 "INSERT")
						 (CONS 2 syname)
						 (CONS 10 ipnt)
						 (CONS 41 dimsc)
						 (CONS 42 dimsc)
						 (CONS 43 dimsc)
					   ) ;_ end of list
			       ) ;_ end of setq
			       (ENTMAKE elist)
			     ) ;_ end of progn
			 ) ;_ end of if
		     ) ;_ end of if
		   ) ;_ end of progn
	       ) ;_ end of if
	      )
	    ) ;_ end of cond
	    (SETQ count (1+ count))
	  ) ;_ end of while 
	  (IF (OR ptlf pt3lf) (ENTMAKE '((0 . "SEQEND")))) ;if
	) ;_ end of progn
      ) ;_ end of if
      (PRINC)
    ) ;_ end of progn
  ) ;_ end of if
  (PRINC)
)
;|«ViLL© FORMAT OPTIONS...» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;