Initial commit

2018-11-26 22:23:22 +01:00
parent 317403389d
commit 86753f6ca0
50 changed files with 4573 additions and 1 deletions
--- a/mleaderHeight.lsp
+++ b/mleaderHeight.lsp
@@ -0,0 +1,18 @@
+(defun c:foo (/ e elev ss)
+  (if
+    (and (setq elev (getdist "\nEnter elevation: ")) (setq ss (ssget ":L" '((0 . "MULTILEADER")))))
+     (while (setq e (ssname ss 0))
+       (entmod (mapcar '(lambda	(x)
+			  (if (member (car x) '(10 12 110))
+			    (list (car x) (cadr x) (caddr x) elev)
+			    x
+			  )
+			)
+		       (entget e '("*"))
+	       )
+       )
+       (ssdel e ss)
+     )
+  )
+  (princ)
+)