Zobrazit plnou verzi příspěvku: M ODKAZ - definice

Petr_K.
06.02.2024, 10:54
Dobrý den,lze nějakým způsobem nastavit aby nová definice Modkazu měla v definici textu nastaveno řádkování na hodnotu "přesně"? Prozatím to vždy po vytvoření odkazu musím opravovat a to mě nevyhovuje. Marně toto nastavení hledám.Děkuji za radu či pomoc.ACLT 2022 na W11profesional.Petr K.

Vladimír Michl
06.02.2024, 21:07
Řádkování MText popisek není součástí stylu multiodkazu, takže standardně to nejde. V plném AutoCADu nebo v AutoCADu LT 2024 si ale můžete načíst LISP reaktor, který se o to postará. Příklad:[CODE](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")[/CODE]

Petr_K.
07.02.2024, 09:54
Příklad věc asi řeší, nicméně v mé kombinaci ACLT2022/W11 je to nepoužitelné.Jiná cesta tedy neexistuje?Petr K.

Vladimír Michl
07.02.2024, 15:58
aby to bylo "přednastavené", ne - lze ale třeba kopírovat nějaký mustr multiodkazu, např. z palety