thread555-44373 Hi.. Can anyone help me spray closed donuts in AutoCAD. I got the spray to spray points but need solid circles. Thank you.
Here is the lisp that I used from the thread posted in Feb.
(princ "Type SPRAY to start")
(defun c:spray ()
(setvar "cmdecho" 0)
(setq CurRead T TimeTol 0.0000002)
(setq OldTime (getvar "CDATE"))
(while CurRead
(setq ReadStuff (grread T 5 0)
NewTime (getvar "CDATE")
DeltaTime (- NewTime OldTime)
SprayFlag (if (> DeltaTime TimeTol) T nil)
);
(if (/= (car ReadStuff) 5) (setq CurRead nil))
(if SprayFlag
(progn
(setq Pt (cadr ReadStuff))
(entmake (list '(0 . "POINT") (cons 10 Pt)))
;;(command "point" Pt)
(setq OldTime NewTime)
);progn
);if
);while
(princ)
);defun
Here is the lisp that I used from the thread posted in Feb.
(princ "Type SPRAY to start")
(defun c:spray ()
(setvar "cmdecho" 0)
(setq CurRead T TimeTol 0.0000002)
(setq OldTime (getvar "CDATE"))
(while CurRead
(setq ReadStuff (grread T 5 0)
NewTime (getvar "CDATE")
DeltaTime (- NewTime OldTime)
SprayFlag (if (> DeltaTime TimeTol) T nil)
);
(if (/= (car ReadStuff) 5) (setq CurRead nil))
(if SprayFlag
(progn
(setq Pt (cadr ReadStuff))
(entmake (list '(0 . "POINT") (cons 10 Pt)))
;;(command "point" Pt)
(setq OldTime NewTime)
);progn
);if
);while
(princ)
);defun