Diskuzní fórum, poradna

archiv

   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:
-INSERT
Hcooler_DIM.DWG
2427.13,21970.61,0
1
1
0
~9500

Možná by to šlo nějak vymyslet jinak... nic mě ale šikovného nenapadá...

Ď za cokoli

Používáme ale DraftSight Free... Pro s VBA nikoli

Připojené souborycooler.dwg

Autor	Zpráva Najít Téma Možnosti tématu Odpovědět Vytvořit nové téma Verze pro tisk Přeložit Téma
jerry00769 Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 11.pro.2013 Lokalita: ČR (ÚL) Používám: DraftSight Stav: Offline Bodů: 9	Téma: DDEDIT bez dialog boxu pro použití jako script pří Zasláno: 15.kvě.2018 v 09:32
	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: -INSERT Hcooler_DIM.DWG 2427.13,21970.61,0 1 1 0 ~9500 Možná by to šlo nějak vymyslet jinak... nic mě ale šikovného nenapadá... Ď za cokoli Používáme ale DraftSight Free... Pro s VBA nikoli Připojené souborycooler.dwg

johny Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 24.led.2006 Lokalita: ČR (JM) Používám: C3D 2024 Stav: Offline Bodů: 1741	Zasláno: 15.kvě.2018 v 10:20
	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 Upravil johny - 15.kvě.2018 v 15:28

jerry00769 Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 11.pro.2013 Lokalita: ČR (ÚL) Používám: DraftSight Stav: Offline Bodů: 9	Zasláno: 18.kvě.2018 v 11:16
	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/53877 Můžeme pouze užít SCRIPT (*.scr file) příkazy... viz.obrázky a soubor scr v příloze. Připojené náhledy Připojené náhledy Připojené souborycommandSCR.zip Jerry

Příbuzné CAD tipy:
Tip 9904:		Poklepání na text vypíše: neznámý příkaz DDEDIT.
Tip 6648:		Dávkové spuštění Převodníku hladin - vynucení standardů.
Tip 6682:		Ohraničení výkresových objektů obrysovým "boxem".
Tip 9100:		Snadná externí modifikace iVlastností souborů Inventoru, bez Inventoru.
Tip 6265:		Použití anglických příkazů v české verzi Revitu.
Tip 289:		Jak přidat komentáře k entitám výkresu?

Diskuzní fórum, poradna

?CAD diskuze, rady, výměna zkušeností

DDEDIT bez dialog boxu pro použití jako script pří

?
CAD diskuze, rady, výměna zkušeností