Leaderboard

After quickly looking into this... Unchecking the box is equal to no limit. Had a little time at work so... quickly tested. ;;; Uncheck the Max leader points in the Multileader Style dialog box. (or set a value). | ;;; | ;;; https://www.cadtutor.net/forum/topic/99083-looking-for-lisp-to-uncheck-max-leader-points-for-all-mleader-styles/#findComment-678964 | ;;; | ;;; By SLW210 (a.k.a. Steve Wilson) | ;;; | ;;;*************************************************************************************************************************************| ;;;*************************************************************************************************************************************| (defun c:UnchkMLdrPnts (/ acApp doc dict obj) (vl-load-com) (setq acApp (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acApp)) (setq dict (vla-Item (vla-get-Dictionaries doc) "ACAD_MLEADERSTYLE")) (vlax-for obj dict (if (vlax-property-available-p obj 'MaxLeaderSegmentsPoints) (vla-put-MaxLeaderSegmentsPoints obj 0) ;; 0 = unlimited ) ) (princ "\nMax leader points box is unchecked.") (princ) )

Very quickly try these changes: (setq alpty (cadr alpt)) ---> (setq alptx (car alpt)) (setq newpt (list inptx alpty)) --> (setq newpt (list alptx inpty))

Maybe something like this, the item 1 is the second MLSTYLE, need a loop for all. I set style to 4 points then back to 2. use 0 for off. (setq dicts (vla-get-Dictionaries (vla-get-ActiveDocument (vlax-get-acad-object)))) (setq dictObj (vla-Item dicts "acad_mleaderstyle")) (setq dictObj (vla-Item dictobj 1)) ; second style in my test (vla-put-MaxLeaderSegmentsPoints dictobj 2)

Need a little bit more info maybe a before and after sample drawing of what your looking to do. @SLW210 prob will also be moved to AutoLISP, Visual LISP & DCL