AutoCAD - Hromadná zmena kótovacieho štýlu

1. vybrat vsechny koty bud "Select similar" na pravem tlacitku nebo pres Quick select

2. z roletky pak vybrat pozadovany styl koty

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.

(defun c:MergeDims ( / d1 d2 ss )
;; Example by Lee Mac 2010 - http://www.lee-mac.com" rel="nofollow - 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)
)

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" rel="nofollow - http://forums.augi.com/showthread.php?160709-Merge-Text-Styles-ie-LAYMRG-but-for-text-styles

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" rel="nofollow - 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)

)