initial commit

2 - scripts/ACAD_TRUSTED/allToZero.lsp

@@ -0,0 +1,29 @@
+(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
+    )
+
+)