Zobrazit plnou verzi příspěvku: připsání průměru ke kótě - VBA

stbiker
11.11.2010, 18:45
Dobrý den .. potřeboval bych v AutoCadu vytvořit jedno tlačítko ... mělo by fungovat takhle ... po označení kóty a zmáčknutí tlačítka by se před hodnotu kóty mělo vytvořit fí (značka průměru) ... možná taky znáte ten dlouhý postup několika nudných kliknutí a přepsání než ho tam dostanete :) ... zkoušel jsem to vytvořit přes makra, ale bohužel jsem v tomhle úplný nováček ... a mé jakékoliv pokusy selhaly :) .... jestli můžu někoho poprosit, aby mi poradil jak na to .. nebo kdyby mi sem hodil kód ve VBA .. byl bych rád .. díky :)

Vladimír Michl
11.11.2010, 19:41
Já myslím, že není třeba nic programovat - to se dá nastavit pomocí standardních kótovacích stylů. Viz např.:
 
http://www.cadforum.cz/cadforum/pridani-znacky-prumeru-k-textu-koty-tip7639

stbiker
11.11.2010, 20:03
taky řešení ... ale pokud bych měl mít na výkrese více kót s průměrem ... musel bych kótovací styl přepínat často ... rád bych, kdybych tam měl prostě tlačítko, které by zajistilo přidání "fí" ke kótě ... nebo kdyby tam bylo tlačítko, které už by přímo při vytváření kóty tam to fí mělo

vbehun
11.11.2010, 21:18
K čemu takovou věc prosím potřebujete ?
Obyčejná kóta průměru "_DIMDIAMETER" (přidává Ø) nebo kóta poloměru "_DIMRADIUS" (přidává R) Vám nestačí ?Ještě je možné jako berličku využít příkaz "_TOLERANCE": vloží rámeček s Ø a hodnotou.

Vladimír Michl
11.11.2010, 21:19
Takové tlačítko si tam ale můžete snadno přidat i bez programování - stačí mu přiřadit příkaz:
 
[CODE]_-DIMSTYLE;_Restore;vášstylsprůměrem;_-DIMSTYLE;_Apply;[/CODE]
 

stbiker
11.11.2010, 22:56
to vbehun: tak například když kreslím hřídele ... a chci pomocí přímých kót zakótovat průměry ... stále musím klikat do vlastností a přepisovat hodnotu kóty :) ... rovnou čáru pomocí kóty průměru nebo poloměru tuším nezakótujito Vladimír Michl: díky, funguje