Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
 - od firmy Arkance Systems [www.cadforum.cz slaví 20 let]
CZ | SK | EN | DE
Přihlášení
či registrace
  právě nás čte: 6589

CAD tip CAD tip # 14020:

   
Otázka CAD 
 %  platforma  kategorie 
Q - otázka

Jak přednastavit pevné řádkování popisek multiodkazů.

A - odpověď Řádkování MText popisek není součástí stylu multiodkazu, takže standardně toto nastavit nejde. V plném AutoCADu nebo v AutoCADu LT 2024 si ale můžete načíst LISP reaktor, který se o toto nastavení automaticky postará, ihned po opuštění příkazu MODKAZ.

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"
)
ACADACLT2024
100% *  CAD 
6.2.2024    490×  
lisp součást
 
Související CAD produkty:
Ceny - CAD eShop:
platí pro: AutoCAD · AutoCAD LT 2024 ·

Zpět   Všechny další tipy



Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy Arkance Systems.
Můžete si také přidat odkaz na vaše stránky: CAD Fórum - diskuze, tipy, bloky a utility
CAD:    OS:    Kateg: 
Text:  FAQ   






Tipy a triky prosím využívejte na vlastní zodpovědnost.
Provozovatel (Arkance Systems CZ s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů.
Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení.
Další publikování obsahu je dovoleno jen se souhlasem autora.
TOPlist