mám výkres v ktorom mám viacej kótovacích štýlov. Viem nejako hromadne zmeniť všetky kótovacie štýly na jeden?

Pokud se jedna o jeden vykres tak:1. vybrat vsechny koty bud "Select similar" na pravem tlacitku nebo pres Quick select2. z roletky pak vybrat pozadovany styl koty

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?

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))


johny2018-08-08 10:24:50

Funguje perfektne

existuje niečo také aj pre :TextLeaderTable?

A googlil jste?autocad lisp merge text styleToto se jeví rozumně pro texthttp://forums.augi.com/showthread.php?160709-Merge-Text-Styles-ie-LAYMRG-but-for-text-styles

trochu som googlil, narazil som na to isté, len som si myslel, či tu na fóre nie je niečo overené

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.;; BeekeeCZ quicked modified the original https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/set-mleader-to-existing-mleader-style-via-lisp/m-p/3732830/highlight/true#M307995(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)  )

Zdravim Vasneviem 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!Stenlo2018-08-28 17:53:08

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"mikeborecek12018-09-01 21:38:45