CAD Fórum : Multiodkaz - písmo s diakritiko https://www.cadforum.cz/forum/ Thu, 04 Jun 2026 18:57:00 +0000 Mon, 11 Dec 2017 20:55:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=25392 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Multiodkaz - písmo s diakritiko : Ve stylu multiodkazu jsem tohle...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109745&title=multiodkaz-pismo-s-diakritiko#109745 Autor: Mara821
Předmět: 25392
Zasláno: 11.pro.2017 v 20:55

Ve stylu multiodkazu jsem tohle nastavení nenašel, tak používám tenhle lisp:

(vl-load-com)
;;; command to load or unload reactor
(defun c:mleaderLineSpace (/ def opt)
  (if *mleaderLineSpace*
    (setq def "OFF")
    (setq def "ON")
  )
  (initget "ON OFF")
  (setq
    opt (cond
  ((getkword (strcat "\nEnter an option [ON/OFF]<" def ">")))
  (def)
)
  )
  (cond ((eq opt "ON")
(MLS:start)
)
((eq opt "OFF")
(MLS:stop)
)
  )
  (princ)
)
;;; load reactor
(defun MLS:start (/)
  (if *mleaderLineSpace*
    (vlr-remove *mleaderLineSpace*)
  )
  (setq *mleaderLineSpace*
(vlr-command-reactor
   nil
   '((:vlr-commandended . MLS:CommandEnded)
    )
)
  )
  (princ "\nMleaderLineSpace reactor has been loaded. ")
)
;;; unload reactor
(defun MLS:stop (/)
  (if *mleaderLineSpace*
    (progn (vlr-remove *mleaderLineSpace*)
   (setq *mleaderLineSpace* nil)
   (princ "\nMleaderLineSpace reactor has been stopped.")
    )
  )
)


;;; when command ends
(defun MLS:CommandEnded (rea cmd / doc obx)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq cmd (strcase (car cmd)))
  (cond
    ;; leader
    ((eq cmd "MLEADER")
     (setq obx (vlax-ename->vla-object (entlast)))
     (vla-put-textLineSpacingStyle obx acLineSpacingStyleExactly)
     (vla-put-dogLegged obx :vlax-false)
    )
  )  
)
;;; autoload
(MLS:start)

Stačí uložit jako soubor *.lsp a nahrát do aktovky. Lisp se po spuštění výkresu nahraje automaticky, vypnout lze přes příkaz "mleaderLineSpace".
Upraví to ale u každého udělaného multiodkazu.
Kdyžtak si smažte řádek s (vla-put-dogLegged obx :vlax-false)to upravuje "Horizontal landing" (česky ekvivalent si už nepamatuju) na "Ne", tuhle vlastnost jsem taky nenašel v nastavení stylu, tak se Vám bude možná hodit. Vypne se ta šipka na prodlužování vodorovné čáry.

Edit: Teď mě ještě tak napadá, že to nemusí fungovat v české verzi. Kdyžtak zkuste ten konec nahradit tímto:
;;; when command ends
(defun MLS:CommandEnded (rea cmd / doc obx)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq cmd (strcase (car cmd)))
  (cond
    ;; leader
    ((eq cmd "MODKAZ")
     (setq obx (vlax-ename->vla-object (entlast)))
     (vla-put-textLineSpacingStyle obx acLineSpacingStyleExactly)
     (vla-put-dogLegged obx :vlax-false)
    )
  )  
)
;;; autoload
(MLS:start)


Upravil Mara821 - 11.pro.2017 v 21:07]]> Mon, 11 Dec 2017 20:55:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109745&title=multiodkaz-pismo-s-diakritiko#109745 <![CDATA[Multiodkaz - písmo s diakritiko : Dobrý den,děkuji moc, toto ((lane...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109742&title=multiodkaz-pismo-s-diakritiko#109742 Autor: jeniksedlacek
Předmět: 25392
Zasláno: 11.pro.2017 v 16:39

Dobrý den,
děkuji moc, toto ((lane space style) z "nejméně" na "přesně" ve vlastnostech.) pomohlo. 
PS. ale jak to udělat, aby to dělalo pořád. Jistě, že si pomohu funkcí "kopírovat vlastnosti", ale jsem tvor líný,... :-)

Honza
]]> Mon, 11 Dec 2017 16:39:56 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109742&title=multiodkaz-pismo-s-diakritiko#109742 <![CDATA[Multiodkaz - písmo s diakritiko : Pan Sedláček píše, že nedělá změny...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109721&title=multiodkaz-pismo-s-diakritiko#109721 Autor: Vladimír Michl
Předmět: 25392
Zasláno: 10.pro.2017 v 21:39

Pan Sedláček píše, že nedělá změny stylu. Pokud je přeci jen styl změněn - na podtržení praporkem, pak opravdu pomůže změna řádkování, popř. tip http://www.cadforum.cz/cadforum/jak-zvetsit-odsazeni-textu-modkazu-od-podtrzeni-tip7187]]> Sun, 10 Dec 2017 21:39:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109721&title=multiodkaz-pismo-s-diakritiko#109721 <![CDATA[Multiodkaz - písmo s diakritiko : Zkuste změnit řádkování (lane...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109720&title=multiodkaz-pismo-s-diakritiko#109720 Autor: Mara821
Předmět: 25392
Zasláno: 10.pro.2017 v 20:41

Zkuste změnit řádkování (lane space style) z "nejméně" na "přesně" ve vlastnostech. ]]> Sun, 10 Dec 2017 20:41:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109720&title=multiodkaz-pismo-s-diakritiko#109720 <![CDATA[Multiodkaz - písmo s diakritiko : Dobrý den,děkuji za odpověď a...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109717&title=multiodkaz-pismo-s-diakritiko#109717 Autor: jeniksedlacek
Předmět: 25392
Zasláno: 09.pro.2017 v 23:21

Dobrý den,
děkuji za odpověď a pomoc, ale nefunguje to.
Honza
]]> Sat, 09 Dec 2017 23:21:31 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109717&title=multiodkaz-pismo-s-diakritiko#109717 <![CDATA[Multiodkaz - písmo s diakritiko : Zkuste ve stylu multiodkazu (nebo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109716&title=multiodkaz-pismo-s-diakritiko#109716 Autor: Vladimír Michl
Předmět: 25392
Zasláno: 09.pro.2017 v 22:39

Zkuste ve stylu multiodkazu (nebo ve Vlastnostech) změnit zarovnání, resp. uchycení vlevo/vpravo z "Polovina horního řádku" na "Polovina dolního řádku".]]> Sat, 09 Dec 2017 22:39:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109716&title=multiodkaz-pismo-s-diakritiko#109716 <![CDATA[Multiodkaz - písmo s diakritiko : Dobrý den,jak udělat, když v AutoCadu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109715&title=multiodkaz-pismo-s-diakritiko#109715 Autor: jeniksedlacek
Předmět: 25392
Zasláno: 09.pro.2017 v 21:14

Dobrý den,
jak udělat, když v AutoCadu vkládám Multiodkaz, tak pokud je text bez diakritiky, tak se krásně udělá mezi textem a "praporkem", tedy podtržením textu mezera. Ale pokud udělám text s "háčky a čárkami", tak se text posune na čáru pod textem.
Jedná se o AutoCad 2018 standardně nainstalovaný, žádné změny ve stylech a písmech.
Děkuji za pomoc
Honza
]]> Sat, 09 Dec 2017 21:14:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25392&PID=109715&title=multiodkaz-pismo-s-diakritiko#109715