;;;EAGLE POINT and DCA 3D Pline placement at points. (reads DOT or POINT blocks)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-13-96
;;;>		   EDITED: 04-08-1997
;;;
(defun c:pt3lin ( / sslen count repnt ptdesc pt3lf)
(setq pt3lf T)
(setq kpnt 0 count 0)
(setq dimsc (getvar"dimscale"))
(setq ptdesc (ustr 1 "Point Description (wildcards OK)" "*" T))
  (progn
    (if c:itr nil (load"itr"))
    (c:itr)
    (princ(strcat"\n" (itoa kpnt) " Points matched description \"" ptdesc "\""))
  );progn
(setq pt3lf nil)
(princ)
);defun