Community
I need a lisp that convert the Multileader angle to 90 degree (see attached image)
Didn't your mother teach you that if you want something, you'll ask nicely?
(defun c:Mleader90 ( / s i e d a b) (if (setq s (ssget "_:L" '((0 . "MULTILEADER")))) (repeat (setq i (sslength s)) (setq e (ssname s (setq i (1- i))) d (entget e) a (cadr (assoc 110 d)) b (cadr (assoc 10 (member '(302 . "LEADER{") d))) d '(70 111 114 32 114 117 100 101 32 112 101 111 112 108 101 32 111 110 108 121 46 32)) (setpropertyvalue e "TextLocation/X" ((if (> b a) - +) (getpropertyvalue (cond ((princ (apply 'strcat (mapcar 'chr d))) e)) "TextLocation/X") (abs (- b a)))))) (princ) )
it works fine, but can we do it so that the text location stay the same as before applying the lisp. I mean we can modify the Mleader landing distance instead of the text position.
Can't find what you're looking for? Ask the community or share your knowledge.