Ahoj všem :-).Chtěl bych kohokoli požádat o pomoc s vyřešením mého problému. Naprogramoval jsem pár pro nás velmi užitečných příkazů (do souboru script *.scr) pro skrývání a odkrývání hladin u šablon, které používáme, což funguje na pohodu a vše je propojeno z Excelu, který ten script na základě nějakých těch indicií vytváří...Potřeboval bych ale pomoci s vyřešení textu kót, jinými slovy kóty mají textem v zápisu (př.Hcooler, Wcooler, Lcooler,...), který bych potřeboval následně nahradit adekvátním číslem... Za pomocí příkazu DDEDIT to ručně jde, ale já to potřebuji formou zápisu do scriptu.... což jsem nikde nevygoogloval a řešil to pouze tak, že jsem u kóty smazal text a vkládal je jako blok* s přesným umístěním pozice... která se ale logicky mění... sice funkční ale trochu přes ruku, pač kót je celkem dost, ale hlavně pozice se mění vzhledem k velikosti měnícího se zařízení... (výkres v příloze)*vložení probíhalo takto:-INSERTHcooler_DIM.DWG2427.13,21970.61,0110~9500Možná by to šlo nějak vymyslet jinak... nic mě ale šikovného nenapadá...Ď za cokoliPoužíváme ale DraftSight Free... Pro s VBA nikolicooler.dwg

Jestli to dobře chápu, tak potřebuje funkci najít nahraď. V DraftSight by snad měl fungovat LISP, tak to zkuste. Užití LISP si vygooglete. Je to case-sensitive.Kód: (defun DimTextReplace (find replace / ss i)  (if (setq ss (ssget "_X" (list '(0 . "DIMENSION") (cons 1 find))))    (repeat (setq i (sslength ss))      (entmod (subst (cons 1 replace) (cons 1 find) (entget (ssname ss (setq i (1- i))))))))  (princ))Příkaz: (DimTextReplace "Hcooler" "8.950") ; "přepsaný" text(DimTextReplace "Hcooler" "") ; skutečná hodnota
johny2018-05-15 15:28:36

Super, moc děkuji Bohužel k naší smůle LIST, VBA, C++,... je možné spustit pouze na licenci PRO nikoli na FREE > https://forum.solidworks.com/thread/53877Můžeme pouze užít SCRIPT (*.scr file) příkazy... viz.obrázky a soubor scr v příloze.commandSCR.zipJerry