Initial commit

2018-11-26 22:23:22 +01:00
parent 317403389d
commit 86753f6ca0
50 changed files with 4573 additions and 1 deletions
--- a/blockbase.lsp
+++ b/blockbase.lsp
@@ -0,0 +1,9 @@
+(defun C:bb (/ ss newpoint goodpoint)
+    (graphscr)
+    (prompt "\nselect entities to move (all): ")
+    (setq ss (ssget));asks for selection
+    (setq newpoint (getpoint "\nPick new basepoint"))
+    (setq goodpoint(subst 0.0 (nth 2 newpoint) newpoint))
+    (print goodpoint)
+    (command "._move" ss "" "_non" goodpoint "_non" "0,0,0")
+)