CAD tip # 14020:

Následující LISP kód si přidejte do automaticky načítaného souboru ACADDOC.LSP.

(defun _mleaderspfac (/ obj objent objentdata vlaobjent)
  (if (setq obj (ssget "_L" '((0 . "MULTILEADER"))))
   (progn
     (setq objent (ssname obj 0)
           objentdata (entget objent)
           vlaobjent (vlax-ename->vla-object objent)
     )
     (if (/= (cdr (assoc 290 objentdata)) 0) ; w. MText
       (if
         (or T (= (vlax-get-property vlaobjent 'TextLineSpacingStyle) 1)) ; all
          (progn
           (vlax-put-property vlaobjent 'TextLineSpacingStyle 2)
           (vlax-put-property vlaobjent 'TextLineSpacingFactor 1.5) ; line spacing
          ) ;_ end of progn
       ) ;_ end of if
     ) ;_ end of if
   ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun


(if (not Command_Ending_Reactor)
 (setq Command_Ending_Reactor
  (vlr-command-reactor nil '((:vlr-CommandEnded . Command_Ended_Command)))
 )
)

(defun Command_Ended_Command (In_ReactorName In_Command)
   ; (alert (car In_Command )) ;; <-- Remove this line, it shows all incomming command
   (if (= (car In_Command) "MLEADER") (_mleaderspfac)) ; "MLEADERCONTENTEDIT" "MLEADEREDIT"
)