CAD Fórum : Hromadná zmena kótovacieho štýlu https://www.cadforum.cz/forum/ Fri, 05 Jun 2026 08:13:22 +0000 Sat, 01 Sep 2018 21:33:49 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=26478 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Hromadná zmena kótovacieho štýlu : Pozrite sa ako máte nastavené...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112600&title=hromadna-zmena-kotovacieho-stylu#112600 Autor: mikeborecek1
Předmět: 26478
Zasláno: 01.zář.2018 v 21:33

Pozrite sa ako máte nastavené ucs (dole vľavo) -  osy xy - x by mala ísť z ľava do prava a y z dola nahor. Vy sa na tú kótu text pozeráte vlastne zospodu, preto to vodíte zrkadlovo. Aj hore v pravo na kocke máte napísané "zdola"

Upravil mikeborecek1 - 01.zář.2018 v 21:38]]> Sat, 01 Sep 2018 21:33:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112600&title=hromadna-zmena-kotovacieho-stylu#112600 <![CDATA[Hromadná zmena kótovacieho štýlu : Zdravim Vasneviem si poradit s...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112561&title=hromadna-zmena-kotovacieho-stylu#112561 Autor: Stenlo
Předmět: 26478
Zasláno: 28.srp.2018 v 17:48

Zdravim Vas
neviem si poradit s tymto problemom.
Text novych kot, multiodkazov aj textov mi stale zrkadli, aj ked mam mirrtext na hodnote 0.
Vo vykrese mam aj starsie koty, ktore su vporiadku ale ked chcem napajat retazovou kotou na povodne koty, tak mi vyhodi ze: "Kota nie je zarovnana s USS"

Nevie niekto ako toto vyriesit?
Diky moc!




Upravil Stenlo - 28.srp.2018 v 17:53]]> Tue, 28 Aug 2018 17:48:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112561&title=hromadna-zmena-kotovacieho-stylu#112561 <![CDATA[Hromadná zmena kótovacieho štýlu : Není to tak častý požadavek...Tady...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112324&title=hromadna-zmena-kotovacieho-stylu#112324 Autor: johny
Předmět: 26478
Zasláno: 09.srp.2018 v 15:52

Není to tak častý požadavek... 

Tady máme narychlo upravenou verzi pro MLEADER. Tabulky... jestli je opravdu potřebujete, tak snad někdo jiný. Mějte se.


(vl-load-com)

(defun c:MleaderStyleMerge ( / *error* acDoc l new e ss)
  (setq acDoc (vla-get-activeDocument (vlax-get-acad-object)))
  (vla-StartUndoMark acDoc)
  
  (defun *error* (msg)
    (princ msg)
    (vla-EndUndoMark acDoc))
  
  (if (ssget "_X" '((0 . "MULTILEADER")))
    (progn
      (princ "\n\n\n****Mleader Styles****\n\n")
      (setq l (mapcar (function (lambda (s)
                                  (princ (strcat "   " (cdr s) "\n"))
                                  (cdr s)))
                      (vl-remove-if
                        '(lambda (x) (/= (car x) 3))
                        (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE"))))
      (textscr)
      (if (and (member (setq old (getstring T "\nEnter ole style name: ")) l)
               (member (setq new (getstring T "\nEnter new style name: ")) l)
               )
        (progn
          (vlax-for e (setq ss (vla-get-ActiveSelectionSet acDoc))
            (if (= old (vla-get-StyleName e))
              (vla-put-StyleName e new)))
          (vla-delete ss))
        (princ "\nStyle name not found."))
      (graphscr)))
  (princ)
  )
]]> Thu, 09 Aug 2018 15:52:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112324&title=hromadna-zmena-kotovacieho-stylu#112324 <![CDATA[Hromadná zmena kótovacieho štýlu : trochu som googlil, narazil som...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112323&title=hromadna-zmena-kotovacieho-stylu#112323 Autor: mikeborecek
Předmět: 26478
Zasláno: 09.srp.2018 v 15:35

trochu som googlil, narazil som na to isté, len som si myslel, či tu na fóre nie je niečo overené]]> Thu, 09 Aug 2018 15:35:02 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112323&title=hromadna-zmena-kotovacieho-stylu#112323 <![CDATA[Hromadná zmena kótovacieho štýlu : A googlil jste?autocad lisp merge...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112320&title=hromadna-zmena-kotovacieho-stylu#112320 Autor: johny
Předmět: 26478
Zasláno: 09.srp.2018 v 15:00

A googlil jste?
autocad lisp merge text style

Toto se jeví rozumně pro text
http://forums.augi.com/showthread.php?160709-Merge-Text-Styles-ie-LAYMRG-but-for-text-styles


]]> Thu, 09 Aug 2018 15:00:23 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112320&title=hromadna-zmena-kotovacieho-stylu#112320 <![CDATA[Hromadná zmena kótovacieho štýlu : existuje niečo také aj pre :TextLeaderTable?...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112319&title=hromadna-zmena-kotovacieho-stylu#112319 Autor: mikeborecek
Předmět: 26478
Zasláno: 09.srp.2018 v 14:26

existuje niečo také aj pre :
Text
Leader
Table
?
]]> Thu, 09 Aug 2018 14:26:09 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112319&title=hromadna-zmena-kotovacieho-stylu#112319 <![CDATA[Hromadná zmena kótovacieho štýlu : Funguje perfektne ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112306&title=hromadna-zmena-kotovacieho-stylu#112306 Autor: mikeborecek
Předmět: 26478
Zasláno: 08.srp.2018 v 10:30

Funguje perfektne]]> Wed, 08 Aug 2018 10:30:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112306&title=hromadna-zmena-kotovacieho-stylu#112306 <![CDATA[Hromadná zmena kótovacieho štýlu : Select similar v tomto případě...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112305&title=hromadna-zmena-kotovacieho-stylu#112305 Autor: johny
Předmět: 26478
Zasláno: 08.srp.2018 v 09:49

Select similar v tomto případě nedává moc smysl, nevybere všechny typy kót, ani to nefiltruje dle kontrétního stylu.

Jinak vybrat všechny typy kót na základě jejich kótovacího stylu asi můžete příkazem FILTER.

Jinak co jsem tak namátkou koukal na netu na lisp, tak zatím žádný z nich neni dost důkladný aby nahradil i kóty uvnitř bloků, ale předpokládám, že by se dalo pohledat.

(vl-load-com)

(defun c:MergeDims ( / d1 d2 ss ) 
  ;; Example by Lee Mac 2010 - www.lee-mac.com

  (if
    (and
      (vl-every
        (function
          (lambda ( sym str )
            (while
              (not
                (or
                  (eq ""
                    (set sym
                      (getstring t str)
                    )
                  )
                  (tblsearch "DIMSTYLE" (eval sym))
                )
              )
              (princ "\n** DimStyle not Found **")
            )
            (not (eq "" (eval sym)))
          )
        )
        (list 'd1 'd2)
        (list "\nSpecify DimStyle to Merge <Exit> : " "\nSpecify DimStyle to Use <Exit> : ")
      )
      (ssget "_X" (list (cons 0 "*DIMENSION") (cons 3 d1)))
    )
    (progn
      (vlax-for dim
        (setq ss
          (vla-get-ActiveSelectionSet
            (vla-get-ActiveDocument (vlax-get-acad-object))
          )
        )
        (vla-put-StyleName dim d2)
      )
      (vla-delete ss)
    )
  )
  (princ)
)


Upravil johny - 08.srp.2018 v 10:24]]> Wed, 08 Aug 2018 09:49:09 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112305&title=hromadna-zmena-kotovacieho-stylu#112305 <![CDATA[Hromadná zmena kótovacieho štýlu : skúsil som to cez &#034;Select...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112304&title=hromadna-zmena-kotovacieho-stylu#112304 Autor: mikeborecek
Předmět: 26478
Zasláno: 08.srp.2018 v 09:41

skúsil som to cez "Select similar" ale keď chcem vymazať nepoužívané kotovacie štýly, tak sa stále niekde používajú...

Nedajú sa označiť objekty cez kótovací štýl?]]> Wed, 08 Aug 2018 09:41:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112304&title=hromadna-zmena-kotovacieho-stylu#112304 <![CDATA[Hromadná zmena kótovacieho štýlu : Pokud se jedna o jeden vykres...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112303&title=hromadna-zmena-kotovacieho-stylu#112303 Autor: splonk
Předmět: 26478
Zasláno: 08.srp.2018 v 09:20

Pokud se jedna o jeden vykres tak:
1. vybrat vsechny koty bud "Select similar" na pravem tlacitku nebo pres Quick select
2. z roletky pak vybrat pozadovany styl koty
]]> Wed, 08 Aug 2018 09:20:18 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26478&PID=112303&title=hromadna-zmena-kotovacieho-stylu#112303