30 lines
679 B
Common Lisp
30 lines
679 B
Common Lisp
(defun C:alltozero (/ i imax il ss currElem currPos newPos newElem)
|
|
;variables:
|
|
(setq i 0);counter to zero
|
|
(setq imax 1);while variable
|
|
|
|
(graphscr)
|
|
|
|
(setq ss (ssget "_A" '((0 . "insert"))));select all
|
|
(setq il (sslength ss));length of selection
|
|
|
|
(while imax
|
|
|
|
(setq currElem (entget (ssname ss i) ))
|
|
(setq currPos (assoc 10 currElem))
|
|
|
|
;; (cdr (assoc 10 currElem))
|
|
|
|
(setq newPos (list 10 0 0 0))
|
|
|
|
(setq newElem (subst newPos currPos currElem))
|
|
(entmod newElem)
|
|
|
|
|
|
;while specific:
|
|
(setq i (1+ i));increments i
|
|
(if (= i il) (setq imax nil));finish function if i equals il
|
|
)
|
|
|
|
)
|